Determine Installed "Windows Installer" Version (via vbs)

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