Forum Discussion

MulgraveTester's avatar
MulgraveTester
Frequent Contributor
9 years ago

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
    9 years ago

    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
        9 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