Detect whether an MSI has been installed

[bluebearr]

This was a happy little discovery. There are places in the registry you can search to see if a program is installed, but they can be uncertain if the installation has been damaged. As far as I can determine, this is the "official" way to query Windows Installer to see if a product is installed. You have to know the product GUID in order to use this.

; http://windowssdk.msdn.microsoft.com/en-us/library/ms707471.aspx
; INSTALLSTATE_ABSENT   The product is installed for a different user.
; INSTALLSTATE_ADVERTISED   The product is advertised but not installed.
; INSTALLSTATE_DEFAULT  The product is installed for the current user.
; INSTALLSTATE_INVALIDARG   An invalid parameter was passed to the function.
; INSTALLSTATE_UNKNOWN  The product is neither advertised or installed.

Const $INSTALLSTATE_ABSENT = 2, $INSTALLSTATE_ADVERTISED = 1
Const $INSTALLSTATE_DEFAULT = 5, $INSTALLSTATE_INVALIDARG = -2
Const $INSTALLSTATE_UNKNOWN = -1

$prodName = "Microsoft Office XP Professional"
$prodCode = "{90110409-6000-11D3-8CFE-0050048383C9}"
$IsInstalled = DllCall("msi.dll", "int", "MsiQueryProductStateA", "str", $prodCode)
;MsgBox(0, "Return", "Return Code : " & $IsInstalled[0])
Select
    Case $IsInstalled[0] = $INSTALLSTATE_ABSENT
        $msg = " is installed for a different user."
    Case $IsInstalled[0] = $INSTALLSTATE_ADVERTISED
        $msg = " is advertised."
    Case $IsInstalled[0] = $INSTALLSTATE_UNKNOWN
        $msg = " is not installed."
    Case $IsInstalled[0] = $INSTALLSTATE_DEFAULT
        $msg = " is installed."
    Case Else
        $msg = ": The program's install state could not be determined."
EndSelect
MsgBox(0, "Install Test", $prodName & $msg)

Other keywords: msiexec

[WTS]

pretty cool..

Edited August 17, 2006 by WTS

[jftuga]

What about $prodCode? How does one obtain this?

-John

[bluebearr]

Easiest way to find the GUID (prodcode) is to go to a system where you know the software is installed, open the registry to HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall, and search for the name of the software. You'll find the name in a subkey called DisplayName, and the GUID will be the key that contains this value, like so:

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{90110409-6000-11D3-8CFE-0050048383C9}]
"DisplayName"="Microsoft Office XP Professional"

[davil]

Ok what about checking the version? and maybe writing to a text file rather than to screen?