'------------------------------------------------------------------------------ 
' magic_uninstall.vbs 
'------------------------------------------------------------------------------ 
' generic uninstaller script to uninstall applications based on the Add/Remove 
' Programs DisplayName and UninstallString properties 
'------------------------------------------------------------------------------ 
' Author: David M. Dolan 
' Created: 4/19/2005 
' Modified: 21/03/2012 (Info@Screwloose.com.au) 
'------------------------------------------------------------------------------ 
' Use this script for whatever you want -- I'm stating that there is no warranty 
' and that I'm not responsible for any damage you do with it. 
'------------------------------------------------------------------------------ 
' designed for use with MSI's but it should work on any other program that 
' specifies and uninstall string -- but you have to miff out the /Options 
' (" " works) 
'------------------------------------------------------------------------------ 

 
'On error resume next 

'------------------------------------------------------------------------------ 
' constants 
'------------------------------------------------------------------------------ 
Const HKEY_LOCAL_MACHINE = &H80000002 
Const KeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall" 
 
'modify this if you want to, I default mine for MSIs, and if you're silly enough 
' not to pass your own options and accidentally uninstall something, I want 
' the dialog to pop up telling you what you just foobarred 
Const defaultOptions = "/qb+" 
'------------------------------------------------------------------------------ 

'------------------------------------------------------------------------------ 
' read the command line paramters, and bomb out if there is a problem 
'------------------------------------------------------------------------------ 
progToRemove = WScript.Arguments.Named("Program") 
 
MSIOptions = WScript.Arguments.Named("Options") 
If MSIOptions = "" Then 
 MSIOptions = defaultOptions 
End If 
 
 
'------------------------------------------------------------------------------ 
' Main Program 
'------------------------------------------------------------------------------ 
If progToRemove = "" Then 
 usage 
Else 
 
 SeekAndDestroy 
 
End If 
WScript.Quit(0) 
 
'------------------------------------------------------------------------------ 
Sub usage 
 '------------------------------------------------------------------------------ 
 WScript.Echo "usage: magic_uninstall.vbs /Program:<DisplayNameString> /Options:<commandlineopts>" 
 WScript.Echo " ex: magic_uninstall.vbs /Program:""Orca"" /Options:""/qb-""" 
 WScript.Quit(1) 
End Sub 
'------------------------------------------------------------------------------ 
Sub SeekAndDestroy 
 '------------------------------------------------------------------------------ 
 
 Set locator = CreateObject("WbemScripting.SWbemLocator") 
 Set oWMI = locator.ConnectServer(".","root/default") 
 
 
 Set objReg = oWMI.Get("StdRegProv") 
 
 lRC = objReg.EnumKey (HKEY_LOCAL_MACHINE, KeyPath, arrSubKeys) 
 
 
 'ok, so we're at the install key, loop through the sub keys... 
 For Each Subkey In arrSubKeys 
 
 'look at the next key 
 newKeyPath = KeyPath & "\" & SubKey 
 
 'get all of the values and store them in two arrays -- value names in arrEntryNames 
 '    -- value Types in to arrValueTypes 
 objReg.EnumValues HKEY_LOCAL_MACHINE,_ 
 newKeyPath,arrEntryNames,arrValueTypes 
 
 'make sure we have an array, then grok it 
 If IsArray(arrEntryNames) Then 
 
 uninstallable = "f" 
 
 'loop through the entry names and keep the ones we're looking for 
 For i = 0 To UBound(arrValueTypes) 
 entryName = arrEntryNames(i) 
 
 Select Case entryName 
 
 Case "DisplayName" 
 
 'ok, display name, so what's the value? put it into sName 
 objReg.GetStringValue HKEY_LOCAL_MACHINE, _ 
 newKeyPath, entryName, sName 
 
 Case "DisplayVersion" 
 'ok, displayVersion, so store it into sVers 
 
 objReg.GetStringValue HKEY_LOCAL_MACHINE, _ 
 newKeyPath, entryName, sVers 
 
 Case "UninstallString" 
 objReg.GetStringValue HKEY_LOCAL_MACHINE, _ 
 newKeyPath, entryName, sUninstall 
 uninstallable = "t" 
 End Select 
 
 Next '-- value 
 
 If sName <> "" And uninstallable = "t" Then 
 
 'ok so we know that we have a software name, and it's uninstallable, so 
 ' only now do we check to see if it's what we're looking for... 
 
 If InStr(LCase(sName), LCase(progToRemove)) <> 0 Then 
 
 'this is where the magic happens 
 Set oCmd = CreateObject("Wscript.Shell") 
 
 uninstallCommand = Replace(sUninstall, "/I", "/x") & " " & MSIOptions  
 commandLine = "%comspec% /c " & uninstallCommand  
 'wscript.echo commandLine 
 
 oCmd.Run commandLine, 0, True 
 wscript.Echo "UnInstalled " & sName & " Successfully!"
 WScript.Quit(0) ' haha we're done, quit digging in the registry now! 
 
 End If  
 End If 
 End If 
 
 sName = "" 
 sVers = "" 
 
 Next '-- subKey 
 wscript.Echo progToRemove & " Not Found."
End Sub