VBS for uninstall a Windows installer

[ghoomp]

Dear all,

Can someone please help me out with this script? I can't make it work. I am not so familiar with the vb script  

Thanks for your help!!!!

expandcollapse popup

Option Explicit 'all variables must be defined

Dim oReg, oShell, oFSO 
Dim UninstallString, ProductCode
Dim strComputer, colItems, objWMIService, objItem
Dim strKeyPath, subkey, arrSubKeys
strComputer = "." 

'********************************
'Enter Product Code Of The Application Here That You Want To Uninstall within the Bracket 
ProductCode = "{88C972E7-D7FC-40F3-9FE5-180957F37B45}"

'********************************

' Get scripting objects needed throughout script.
Set oShell = CreateObject("WScript.Shell")

'**************************
UninstallString = "MsiExec.exe /X{88C972E7-D7FC-40F3-9FE5-180957F37B45} /qn" & " /norestart"

Const HKEY_LOCAL_MACHINE = &H80000002

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
 
For Each subkey In arrSubKeys 
 
 IF subkey = ProductCode Then 
 oShell.Run UninstallString, 1, True
 End If

Next

Set oShell = Nothing
Set oReg = Nothing
'************* End Code ************

 

 

Edited May 19, 2015 by ghoomp

[Melba23]

ghoomp,

 I am not so familiar with the vb script

And as this an AutoIt forum, why would we be familiar with it either? I suggest you ask on a VB forum.

M23 

[JLogan3o13]

For Autoit, you can do it like this:

ShellExecuteWait("msiexec.exe", '/x "<uninstall code>" /qn')

If you don't have the actual uninstall code (say you have several versions of an application on different machines and need to uninstall them all). You can do something like this:

$sName = "PDF-XChange"
$oWMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & @ComputerName & "\root\cimv2")
$aProducts = $oWMI.ExecQuery("Select * from Win32_Product Where Name LIKE '%" & $sName & "%'")

For $app in $aProducts
    If StringInStr($app.Name, $sName) Then $app.Uninstall()
Next