A VBScript to enumerate applications installed on a machine and output a tab-delimited CSV file, one for each machine. The idea is for this to be slightly less awful than all the similar scripts out there on the webz.

software.vbs

'*******************************************************************************
' software.vbs
' Create a list of software installed on one or more 
' machines in TSV format.
'
' Usage: cscript.exe software.vbs [/path:<path>] [machine names]
'
' If <path> is given, the script will attempt to store logs 
' in that location. It is treated as a relative path and must 
' end in a backslash.
'*******************************************************************************

' Define a bunch of constants VBScript should define for us but doesn't
Const ForReading = 1, ForWriting = 2, ForAppending = 8

' Get shell and network
Set objShell = CreateObject("Wscript.Shell")
Set objNet = CreateObject("WScript.Network")
Set objArgs = WScript.Arguments

' Array to hold computer names
Dim arrComputers()

' Get attributes, if we got command line arguments, use those 
' as the hostnames. Otherwise use the local machine name.
If objArgs.Unnamed.Length > 0 Then
    Dim i
    i = 0
    While i < objArgs.Unnamed.Length
        ReDim Preserve arrComputers(i)
        arrComputers(i) = objArgs.Unnamed.Item(i)
        i = i + 1
    Wend
Else
    ReDim arrComputers(0)
    arrComputers(0) = objNet.ComputerName
End If

' Get named arguments if they were passed
Dim strLogPath

If objArgs.Named.Length > 0 Then
    strLogPath = objArgs.Named.Item("path")
Else
    strLogPath = ""
End If

' Create a FSO to write the output to a text file
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Get a list of software from each machine and format it as TSV.
For Each strComputer In arrComputers
    ' Put some error handling in here, if we can't contact the computer 
    ' then we log the failure and move on.
    On Error Resume Next
    ' Get the list of installed software
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("Select * FROM Win32_Product",,48)
    
    If Err.Number <> 0 Then
        ' An error occurred trying to contact the machine, skip this computer
        ' and log the error so it can be noted and investigated.
        objShell.LogEvent 1, "software.vbs: Could not contact computer: " & _
            strComputer
        On Error Goto 0
    Else
        ' No error contacting the machine so write the log file.
        On Error Goto 0
        ' Create and/or open the log file
        Dim currentDate
        currentDate = Date
        Dim currentTime
        currentTime = Time
        Set objLogFile = objFSO.OpenTextFile(_
            strLogPath & _
            strComputer & _
            "_" & _
            Year(currentDate) & _
            "-" & _
            Month(currentDate) & _
            "-" & _
            Day(currentDate) & _
            "-" & _
            Hour(currentTime) & _
            "-" & _
            Minute(currentTime) & _
            "-" & _
            Second(currentTime) & _
            "_" & _
            "log.csv", ForWriting, True)

        ' Start the tsv
        objLogFile.WriteLine _
            "computer" & _
            vbTab & _
            "application" & _
            vbTab & _
            "vendor" & _
            vbTab & _
            "version"
        
        ' Build the tsv
        For Each objItem In colItems
            objLogFile.WriteLine _
                strComputer & vbTab & _
                objItem.Name & vbTab & _
                objItem.Vendor & vbTab & _
                objItem.Version
        Next
        
        ' Close the log file
        objLogFile.Close
    End If
Next

WScript.Echo "Finished: software.vbs has finished. Check event log for errors."
WScript.Quit(0)

awesome