There's a few sample scripts around to list the installed applications using WMI. The trap on 64-bit platforms is that the 32-bit and 64-bit installation information is stored in different places in the registry, and you need to be clever about telling WMI that you want the 32-bit data instead of the 64-bit.

Here's some VBScript that will list first the 32-bit and then 64-bit installed applications:

strComputer = "." Const HKLM = &h80000002 Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet") objCtx.Add "__ProviderArchitecture", 32 objCtx.Add "__RequiredArchitecture", TRUE Set objLocator = CreateObject("Wbemscripting.SWbemLocator") Set objServices = objLocator.ConnectServer("","root\default","","",,,,objCtx) Set objStdRegProv = objServices.Get("StdRegProv")

WScript.Echo "32-bit Applications" WScript.echo "——————-"

Call GetApplications

objCtx.Add "__ProviderArchitecture", 64 objCtx.Add "__RequiredArchitecture", TRUE Set objLocator = CreateObject("Wbemscripting.SWbemLocator") Set objServices = objLocator.ConnectServer("","root\default","","",,,,objCtx) Set objStdRegProv = objServices.Get("StdRegProv")

WScript.Echo "64-bit Applications" WScript.echo "——————-"

Call GetApplications

Sub GetApplications

' Use ExecMethod to call the GetStringValue method Set Inparams = objStdRegProv.Methods_("EnumKey").Inparameters Inparams.Hdefkey = HKLM Inparams.Ssubkeyname = "Software\Microsoft\Windows\CurrentVersion\Uninstall\"

set Outparams = objStdRegProv.ExecMethod_("EnumKey", Inparams,,objCtx)

For Each strSubKey In Outparams.snames

Set Inparams = objStdRegProv.Methods_("GetStringValue").Inparameters Inparams.Hdefkey = HKLM Inparams.Ssubkeyname = "Software\Microsoft\Windows\CurrentVersion\Uninstall\" & strSubKey Inparams.Svaluename = "DisplayName" set Outparams = objStdRegProv.ExecMethod_("GetStringValue", Inparams,,objCtx)

if ("" & Outparams.sValue) = "" then 'wscript.echo strSubKey Else wscript.echo Outparams.SValue End iF

'Inparams.Svaluename = "QuietDisplayName" 'set Outparams = objStdRegProv.ExecMethod_("GetStringValue", Inparams,,objCtx) 'wscript.echo Outparams.SValue

Next

End Sub