Forum Discussion

MulgraveTester's avatar
MulgraveTester
Frequent Contributor
8 years ago
Solved

Identify if product is installed

My tested program now comes in 3 variants so I need to load different data depending on the variant of the product installed. Only one variant can be installed at a time, so I want to see which vari...
MulgraveTester's avatar
MulgraveTester
Frequent Contributor

I've written this

 

sub checkInstall
  Set WmiService = GetObject ("WinMgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

  Set colSoftware = WmiService.ExecQuery ("Select * from Win32_Product") 

  for each softwareItem in colSoftware
    log.message("Name (" & softwareItem.name & ") and Version (" & softwareItem.version & ") and Vendor (" & softwareItem.vendor & ")")
  next

end sub

 

which lists all software installed by a Windows installer but it does not list all products installed and the product I am testing in particular. How do I get a complete list of software installed - as shown in Programs and Features?

  • MulgraveTester's avatar
    MulgraveTester
    Frequent Contributor
    8 years ago

    Thanks Colin, The registry search solution worked for me. Here is my simplified version (Where you see the emoticon it should be ":" then "S". I couldn't see how to turn off emoticons.)

     

    sub checkInstallReg
      Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
      strComputer = "."
      strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
     
      Set objReg = GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")
      objReg.EnumKey HKLM, strKey, arrSubkeys

      For Each strSubkey In arrSubkeys
        objReg.GetStringValue HKLM, strKey & strSubkey, "DisplayName", strSoftwareName
        objReg.GetStringValue HKLM, strKey & strSubkey, "InstallDate", strInstalledDate
        objReg.GetStringValue HKLM, strKey & strSubkey, "DisplayVersion", strDisplayVersion   
        log.Message("Name (" & strSoftwareName & ") Version (" & strDisplayVersion & ") Installed on (" & strInstalledDate & ")")  
      Next

    end sub