Set WshShell = WScript.CreateObject("WScript.Shell")
    Dim objInstaller 
    Dim strVersion
    Set objInstaller = CreateObject("WindowsInstaller.Installer") 
    strVersion = objInstaller.Version 
    MsgBox("Installer version is: " & strVersion)