Ever wanted to just remove all the old version of Adobe Acrobat from a system but didn't want to create a package for each one
Modify as needed.
-------------------------- uninstall-adobe.vbs
Dim objShell, RegLocate
Set objShell = WScript.CreateObject("WScript.Shell")
On error resume next
Dim sngVersion
'''' Adobe Readers
sngVersion = objShell.RegRead ("HKLM\SOFTWARE\Adobe\Acrobat Reader\8.0\Installer\ENU_GUID")
if NOT sngVersion="" then
objShell.run("msiexec /x " & sngVersion & " /qb /norestart"), 0, True
end if
sngVersion = objShell.RegRead ("HKLM\SOFTWARE\Adobe\Acrobat Reader\7.0\Installer\ENU_GUID")
if NOT sngVersion="" then
objShell.run("msiexec /x " & sngVersion & " /qb /norestart"), 0, True
end if
sngVersion = objShell.RegRead ("HKLM\SOFTWARE\Adobe\Acrobat Reader\6.0\Installer\ENU_GUID")
if NOT sngVersion="" then
objShell.run("msiexec /x " & sngVersion & " /qb /norestart"), 0, True
end if
''''Adobe Acrobat
sngVersion = objShell.RegRead ("HKLM\SOFTWARE\Adobe\Adobe Acrobat\7.0\Installer\ENU_GUID")
if NOT sngVersion="" then
objShell.run("msiexec /x " & sngVersion & " /qb /norestart"), 0, True
end if
sngVersion = objShell.RegRead ("HKLM\SOFTWARE\Adobe\Adobe Acrobat\6.0\Installer\ENU_GUID")
if NOT sngVersion="" then
objShell.run("msiexec /x " & sngVersion & " /qb /norestart"), 0, True
end if
objShell.run("isuninst.exe -f""c:\program files\common files\adobe\acrobat 5.0\nt\uninst.isu"" -c""c:\program files\common files\adobe\acrobat 5.0\nt\uninst.dll"" -a ")
WScript.Quit
---------------------------
