Issue:
After upgrade to new version, a trust certificate import
prompt comes up as older version of Acrobat had Trusted Certificates recorded
over time.
Analysis:
The Certificates are saved in user profiles at this
location:
%appdata%\Adobe\Acrobat\<version>\Security\addressbook.acrodata
If the file is copied to new version Security folder for each users then it
will not prompt for import, and all the Trust Certificates will be imported to
new version.
Solution:
Create a custom VBScript to copy addressbook.acrodata from older
versions to new version for each users (e.g. upgrading from versions 9.0/10.0 to
11.0) for Win7
Add it to Execute
Immediate Installation Sequence after InstallFinalize
Copy_Trust_Cert.vbs Script:
dim arcfolder,
arc10folder, arc9folder
Set objFSO =
CreateObject("Scripting.FileSystemObject")
Set objFolder =
objFSO.GetFolder("C:\Users")
Set colSubfolders =
objFolder.Subfolders
arcfolder =
"\AppData\Roaming\Adobe\Acrobat\11.0\Security"
arc10folder =
"\AppData\Roaming\Adobe\Acrobat\10.0\Security"
arc9folder =
"\AppData\Roaming\Adobe\Acrobat\9.0\Security"
For Each objSubfolder
in colSubfolders
'Wscript.Echo objSubfolder
arcsubfolder = objSubfolder & arcfolder
arc10subfolder = objSubfolder
& arc10folder
arc9subfolder = objSubfolder
& arc9folder
'Wscript.Echo
arcsubfolder
If
(objFSO.FolderExists(arc9subfolder) = True) Then
'Wscript.Echo
"Yes"
If
objFSO.FolderExists(arcsubfolder) Then
Else
objFSO.CreateFolder(objSubfolder
& "\AppData\Roaming\Adobe\Acrobat\11.0")
objFSO.CreateFolder(objSubfolder
& "\AppData\Roaming\Adobe\Acrobat\11.0\Security")
End If
objFSO.CopyFile
arc9subfolder & "\addressbook.acrodata", arcsubfolder &
"\addressbook.acrodata"
End If
If
(objFSO.FolderExists(arc10subfolder) = True) Then
'Wscript.Echo
"Yes"
If
objFSO.FolderExists(arcsubfolder) Then
Else
objFSO.CreateFolder(objSubfolder
& "\AppData\Roaming\Adobe\Acrobat\11.0")
objFSO.CreateFolder(objSubfolder
& "\AppData\Roaming\Adobe\Acrobat\11.0\Security")
End If
objFSO.CopyFile
arc10subfolder & "\addressbook.acrodata", arcsubfolder &
"\addressbook.acrodata"
End If
Next
Author: Dinesh Shilpakar
Comments
Post a Comment