LISTING 2: Script That Uses the WMI Windows Installer Provider

strComputer = "."
Set objWmiService = _
	GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colMsiProducts = _
	objWmiService.ExecQuery("SELECT * FROM Win32_Product")
For Each objMsiProduct in colMsiProducts
	WScript.Echo "Caption:           " & objMsiProduct.Caption & vbCrLf & _
	"Description:       " & objMsiProduct.Description & vbCrLf & _
	"IdentifyingNumber: " & objMsiProduct.IdentifyingNumber & vbCrLf & _
	"InstallDate:       " & objMsiProduct.InstallDate & vbCrLf & _
	"InstallLocation:   " & objMsiProduct.InstallLocation & vbCrLf & _
	"InstallState:      " & objMsiProduct.InstallState & vbCrLf & _
	"Name:              " & objMsiProduct.Name & vbCrLf & _
	"PackageCache:      " & objMsiProduct.PackageCache & vbCrLf & _
	"SKUNumber:         " & objMsiProduct.SKUNumber & vbCrLf & _
	"Vendor:            " & objMsiProduct.Vendor & vbCrLf & _
	"Version:           " & objMsiProduct.Version & vbCrLf
Next