Get installed products, VBS, WMI

getProducts.vbs

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Report=FSO.CreateTextFile("getProducts.txt") 'report file
strComputer = "." 'local computer
Set objWMIService = GetObject("winmgmts:\\"  & strComputer  & "\root\cimv2")
For Each objProduct in objWMIService.InstancesOf("Win32_Product")
    echoStr = objProduct.AssignmentType & vbTab  & _
    objProduct.Caption & vbTab  & _
    objProduct.Description & vbTab  & _
    objProduct.IdentifyingNumber & vbTab  & _
    objProduct.InstallDate & vbTab  & _
    objProduct.InstallLocation & vbTab  & _
    objProduct.InstallState & vbTab  & _
    objProduct.HelpLink & vbTab  & _
    objProduct.HelpTelephone & vbTab  & _
    objProduct.InstallSource & vbTab  & _
    objProduct.Language & vbTab  & _
    objProduct.LocalPackage & vbTab  & _
    objProduct.Name & vbTab  & _
    objProduct.PackageCache & vbTab  & _
    objProduct.PackageCode & vbTab  & _
    objProduct.PackageName & vbTab  & _
    objProduct.ProductID & vbTab  & _
    objProduct.RegOwner & vbTab  & _
    objProduct.RegCompany & vbTab  & _
    objProduct.SKUNumber & vbTab  & _
    objProduct.Transforms & vbTab  & _
    objProduct.URLInfoAbout & vbTab  & _
    objProduct.URLUpdateInfo & vbTab  & _
    objProduct.Vendor & vbTab  & _
    objProduct.WordCount & vbTab  & _
    objProduct.Version
    
    'Wscript.Echo echoStr 'uncomment if run in console: cscript getProducts.vbs
    Report.WriteLine(echoStr)
Next