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..
VB Script

Avatar of undefined
Last Comment
cathyn

8/22/2022 - Mon
rejoinder

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

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.
VR6_MTL

ASKER
Ho ..  and it need to be fully silent..
Experts Exchange is like having an extremely knowledgeable team sitting and waiting for your call. Couldn't do my job half as well as I do without it!
James Murphy
rejoinder

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

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
rejoinder

THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
GET A PERSONALIZED SOLUTION
Ask your own question & get feedback from real experts
Find out why thousands trust the EE community with their toughest problems.
cathyn

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?
⚡ FREE TRIAL OFFER
Try out a week of full access for free.
Find out why thousands trust the EE community with their toughest problems.