Resolve UninstallString from Partial DisplayName

Written by James McDonald

March 22, 2011

I want to automate the removal of an application using a query to the registry using Visual Basic Script (VBS) to get the Uninstall string (the command that would be executed if you went into Control Panel Add/Remove and Un-installed a specific application).

I have workstations with a mix of Windows 7 and Windows XP in x32 and x64 bit architectures. And the location of Uninstall settings change across different architectures because 32 bit applications have a separate Registry area on 64 bit operating systems.

I don’t want to have to specify the entire DisplayName but a substring to search on.

This is my Googled-together answer to the problem.
To return the Operating Systems bit type:

Find the correct registry uninstall key by looping through the Uninstall Registry Key/s using – Uninstall an Application Using GUID from Registry

'use this with
' uiString("PROD Enterprise App 2007 RE")
wscript.echo uiString("PROD Enterprise App 2007 RE")
wscript.echo uiString("DEV Enterprise App 2007 RE")

Function getBits() 
	' from
	getBits = GetObject("winmgmts:root\cimv2:Win32_Processor='cpu0'").AddressWidth 

End Function

Function uiString(strName)
	' from
	On error resume Next

	Dim WshShell, oReg, keyname

	Const HKEY_LOCAL_MACHINE = &H80000002
	strComputer = "."

	Set WshShell = CreateObject("WScript.Shell")
	Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

	' the registry uninstall key shifts for 32bit applications on a 64bit OS
	if getBits = 64 then
		strKeyPath	= "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
		strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
	end if

	oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
	For Each subkey In arrSubKeys
		keyname = ""
			keyname = wshshell.RegRead("HKEY_LOCAL_MACHINE\" & strKeyPath & "\" & subkey & "\DisplayName")
			'wscript.echo subkey 
			'wscript.echo keyname
		' use the instr function to check for part of the DisplayName
		If Instr ( keyname, strName ) > 0 then
			uiString = wshshell.RegRead("HKEY_LOCAL_MACHINE\" & strKeyPath & "\" & subkey & "\UninstallString")
			exit function
		End If

	uiString = ""

	Set WshShell = Nothing
	set ObjReg = Nothing

end function


Submit a Comment

Your email address will not be published. Required fields are marked *

This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

The reCAPTCHA verification period has expired. Please reload the page.

You May Also Like…