Link to home
Create AccountLog in
Avatar of VR6_MTL
VR6_MTL

asked on

Acrobat Reader Patch Help.

Hi !

I Need help .  We recently deployed Acrobat reader 9 to our users... but now facing an issue with browser integration. Reader won't load.  We are looking to downgrade reader to version 8.1.2 who work perfect.

I'm looking for a VBS that will remove any acrobat READER and then install the version 8.1.2..
Avatar of rejoinder
rejoinder
Flag of Canada image

I suggest using the following to uninstall Acrobat and then use Group Policies to deploy Acrobat 8.x
Here are some links regarding installing acrobat reader...
http://www.appdeploy.com/packages/detail.asp?id=915
http://kb.adobe.com/selfservice/viewContent.do?externalId=kb403246


'Remove Adobe Reader
'vbscript
On Error Resume Next
 
'**********************************************************************
const AppName = "Adobe Reader"
'**********************************************************************
 
const HKEY_LOCAL_MACHINE = &H80000002
 
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'First, find the GUID 
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_ 
    strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
 
For Each subkey In arrSubKeys
    InstalledAppName = ""
    InstalledAppName = WshShell.RegRead("HKLM\" & strKeyPath & "\" & subkey & "\DisplayName")
 
    If InStr(InstalledAppName, AppName) > 0 then
	RawGUID = ""
	GUID = ""
        RawGUID = WshShell.RegRead("HKLM\" & strKeyPath & "\" & subkey & "\UninstallString")
        GUID = Mid(RawGUID, instr(RawGUID, "{"), 38)
	If GUID<>"" then
	    ' Found matching GUID, removing...
	    	    WshShell.Run "msiexec /x " & GUID & " /q"
	    Exit For
	End If
    End If
Next

Open in new window

Avatar of VR6_MTL
VR6_MTL

ASKER

That exellent ..  working fine..
How can I add at the end to install the MSI +MST ?
 
cause we are deploying from altiris not GPO ..  and I would like everything in 1 vbs.
Avatar of VR6_MTL

ASKER

Ho ..  and it need to be fully silent..
OK - I suppose you will forst need to get the adobe installer file.
You could download from here...
ftp://ftp.adobe.com/pub/adobe/reader/win/8.x/8.1.2/enu/AdbeRdr812_en_US.msi
or
ftp://ftp.adobe.com/pub/adobe/reader/win/8.x/8.1.2/enu/AdbeRdr812_en_US.exe
Next download the customization wizard...
http://www.adobe.com/support/downloads/thankyou.jsp?ftpID=3564&fileID=3358
Run the wizard, create the MST file.
The script above needs to be modified to have this at the end...


WshShell.Run "msiexec.exe /i AdbeRdr812_en_US.msi TRANSFORMS=""AcroRdr.mst"" /qn"

Open in new window

Avatar of VR6_MTL

ASKER

Hi ! thanks for your anwser.
I found our problem with version 9.0 .. I need to rename a api pluggin.
But still I want to use your script to remove all the acrobat reader then install 9.1 and rename that file.
But I get an error.. when running that.

'Remove all acrobat Reader and install acrobat reader 9.1.0
'vbscript
On Error Resume Next
 
'**********************************************************************
const AppName = "Adobe Reader"
'**********************************************************************
 
const HKEY_LOCAL_MACHINE = &H80000002
 
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'First, find the GUID 
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_ 
    strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
 
For Each subkey In arrSubKeys
    InstalledAppName = ""
    InstalledAppName = WshShell.RegRead("HKLM\" & strKeyPath & "\" & subkey & "\DisplayName")
 
    If InStr(InstalledAppName, AppName) > 0 then
	RawGUID = ""
	GUID = ""
        RawGUID = WshShell.RegRead("HKLM\" & strKeyPath & "\" & subkey & "\UninstallString")
        GUID = Mid(RawGUID, instr(RawGUID, "{"), 38)
	If GUID<>"" then
	    ' Found matching GUID, removing...
	    	    WshShell.Run "msiexec /x " & GUID & " /q"
	    Exit For
	End If
    End If
 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "msiexec.exe /i AcroRead.msi TRANSFORMS=""AcroRead.mst"" /qn"
 
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Cim_Datafile where Name = " _
& "'C:\\Program Files\\Adobe\\Reader 9.0\\Reader\\plug_ins\\ia32.api'")
For Each objFile in colFiles
errResult = objFile.Rename("C:\\Program Files\\Adobe\\Reader 9.0\\Reader\\plug_ins\\ia32.txt")
Wscript.Echo errResult

Open in new window

ASKER CERTIFIED SOLUTION
Avatar of rejoinder
rejoinder
Flag of Canada image

Link to home
membership
Create a free account to see this answer
Signing up is free and takes 30 seconds. No credit card required.
See answer
Have you found a solution for this?  We have the same problem following an update.  Users can open files  _except_ in the browser.  IE7 reports that Acrobat 8 or 9 is required to open the pdf file (9.1.1 is installed).  Users can right-click a pdf link and save it to disk and then successfully open the same file.  Users who have both Acrobat Pro and Acrobat Reader installed do not have difficulty opening pdf files over the web.  AcroPDF.dll and AcroIEHelper.dll show the same size, date, and versions on the machines where pdf web view works as the ones it does not.  Any ideas?  Are others having this problem?