Software collection

From this page: http://msdn.microsoft.com/en-us/library/aa394588(v=vs.85).aspx

comes the following code - which should do what you want.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
    ("Select * from Win32_Product")

For Each objSoftware in colSoftware
    Wscript.Echo "Name: " & objSoftware.Name
    Wscript.Echo "Version: " & objSoftware.Version
Next

Sorry - missed that you wanted it in a csv file...

http://briandesmond.com/blog/script-to-collect-basic-inventory-data-from-machines/

This page has a link to a script that does this:
http://www.briandesmond.com/blog-attachments/collectworkstationinventory.zip

But this collect HW. I was interested in SW collection.

You asked the list of programs.  Therefore, there is only one column.

So here, the only thing that will look like a csv output file will be the extension.

wmic product get caption>C:\output.csv

Not excat what I had in mind. But it is useful.

Glad i could help

:)