Uninstall an Application Using GUID from Registry

I wrote this Visual Basic script when I came across a scenario where I know only the Application Name [As it is under Add/Remove  programs] and I need to uninstall the application based on application GUID.

Look at the example below:

I have to uninstall 7-zip but I don't know the uninstall string. In this scenario this script will find out the product GUID based on DisplayName and give you the uninstall string as output.

'==========================================================================

On error resume Next

Dim strName, WshShell, oReg, keyname

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."

'==================================
'Change the value here with DisplayName's value
strName = "InstallShield 2009"
'==================================
Set WshShell = CreateObject("WScript.Shell")
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
 keyname = ""
    keyname = wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & subkey & "\DisplayName")
 If keyname = strName then
  i = subkey
 End If
Next

If i Then
 MsgBox "MSIEXEC.EXE /X " & i & " /QB!"
 'WshShell.Run "MSIEXEC.EXE /X " & i & " /QB!", 1, True
End If

Set WshShell = Nothing
set ObjReg = Nothing

WScript.Quit

'==========================================================================

Just change strname as indicated in the script. one you execute the script, it will prompt a message box with the complete uninstall string. But if you want to execute the uninstall then comment the message box ['MsgBox "MSIEXEC.EXE /X " & i & " /QB!"
] and remove the comment from WshShell.Run [ WshShell.Run "MSIEXEC.EXE /X " & i & " /QB!", 1, True].

If you want to execute the uninstall in silent replace QB! with QN.

You can edit the script and fine tune according to your requirement. Rename the attached text file to .VBS and execute.

Note: This script will uninstall based on application GUID. If you are trying to uninstall a legacy application [without GUID] or any application without a GUID, this script won't work. I will try to post a script soon which will uninstall using "UninstallString" registry key.