Dim strComputer
Dim objSoftware
Dim colSoftware
Dim strList

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & _
  "{impersonationLevel=impersonate}!\\" & _
  strComputer & "\root\cimv2")

Set colSoftware = objWMIService.ExecQuery _
  ("SELECT * FROM Win32_Product")   

If colSoftware.Count >  0  Then
    For Each objSoftware in colSoftware
        strList = strList & objSoftware.Caption & "  " & _
          objSoftware.Version & vbCrLf
    Next
Else
    WScript.Echo "Не удается получить информацию."
End If

WScript.Echo strList