🚀 go-pugleaf

If you happened to deploy the SU1 via GPO, like many companies have, you might find issues uninstalling, specifically stating that you need to verify the transform paths or some other such nonsense. The reason for this is deploying it remotely with a "Cache Installer Files Locally" option (default) sets the registry key to use an @ instead of the full file path. This script fixes said glitch via the VBScript function of Windows. Simply copy the following into a text file, edit where it needs editing, and save as a .vbs file. Deploy via active directory or psexec and your remote upgrades/uninstalls will work perfectly fine, as will local ones. At present you'd only be able to uninstall with the Microsoft Windows Installer Clean-up utility otherwise. This works en-masse, however. Enjoy.

'Written by Christopher Crabtree
'July 16, 2008
'This script is designed to be a silent patching process for use with any remote execution program,
'such as PSEXEC by Sysinternals, a Microsoft company, or the Active Directory logon scripts method.
'It will fix the bad value of Adobe Reader and Adobe Acrobat uninstall transforms caused by
'deploying the .msi patch of Acrobat & Reader 8.1.2 Security Update 1 released by Adobe Software.
'Once this script has run, an administrator can successfully uninstall Adobe Acrobat or Reader 8.1.2 with SU1,
'or run the Adobe Reader 9 installer, which automatically removes the old version.

'Note, you must set the value of OpenTextFile on line 17.

On Error Resume Next
Const HKEY_CLASSES_ROOT = &H80000000
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutFile = objFSO.OpenTextFile("C:\patch_log.txt", 8, True) 'Set the path where you would like the output logged to.
Set objNet = CreateObject("WScript.NetWork")

strComputerName = objNet.ComputerName 'Set the computer name that is currently being run.
dateStamp = Date() 'Duh.
strComputer = "." 'Since this script is designed to run from the computer in question, the "." acts as an identifier for this.

Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 'Open the registry of the computer.
strKeyPath = "Installer\Products\68AB67CA7DA73301B7448A2100000030" 'Set the key path in question.
ValueName = "Transforms" 'Set the value name in question.
objReg.GetStringValue HKEY_CLASSES_ROOT, strKeyPath, ValueName, strValue 'Get the string value.
If strValue = "C:\Program Files\Adobe\Reader 8.0\Setup Files\{AC76BA86-7AD7-1033-7B44-A81200000003}\AcroRead.mst;C:\Program Files\Adobe\Reader 8.0\Setup Files\{AC76BA86-7AD7-1033-7B44-A81200000003}\RdrSU.mst" Then
  'This section checks the value of the string to see if it has already got the correct value. If so, it logs and ends.
  'If it does not find ANY value, it logs that the program must not be installed and ends.
  'However, if it finds the value and it is NOT correct, it sets it to the correct value, then double checks to make sure it was successful.
  'Note, this value is valid for local cache installer files only. If the installer files are cached elsewhere, you probably won't need to run this.
  strLine = "--------------------------------------"
  objOutFile.WriteLine strLine
  strLine = "Computer: " & strComputerName
  objOutFile.WriteLine strLine
  strLine = "Reader 8 Patch Status: Patched."
  objOutFile.WriteLine strLine
  strLine = "Checked: " & dateStamp
  objOutFile.WriteLine strLine

Else If IsNull(strValue) Then
    strLine = "--------------------------------------"
    objOutFile.WriteLine strLine
    strLine = "Computer: " & strComputerName
    objOutFile.WriteLine strLine
    strLine = "Reader 8 Not installed!"
    objOutFile.WriteLine strLine
    strLine = "Checked: " & dateStamp
    objOutFile.WriteLine strLine
    Else
    strLine = "--------------------------------------"
    objOutFile.WriteLine strLine
    strLine = "Computer: " & strComputerName
    objOutFile.WriteLine strLine
    strLine = "Patch