'Add/Remove Programs' - Can you generate a report? 2

[HiBoo]

I'm looking for help in creating a text file that lists all the programs on a computer listed in 'Add/Remove Programs' (In the Control Panel)

I'd like to use VB or VBS to do this for the purpose of auditing some of the content of our remote workstation and server computers.

Any thoughts or comments or code bits to get me started???

Thanks,

 

[sfriday]

The following was taken from Technet scripting and will identify software installed via an MSI - link to the info below:

http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/compmgmt/scrcm16.asp

Set objFSO = CreateObject("Scripting.FileSystemObject&quot
Set objTextFile = objFSO.CreateTextFile("c:\scripts\software.tsv", True)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2&quot
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product&quot
objTextFile.WriteLine "Caption" & vbtab & _
"Description" & vbtab & "Identifying Number" & vbtab & _
"Install Date" & vbtab & "Install Location" & vbtab & _
"Install State" & vbtab & "Name" & vbtab & _
"Package Cache" & vbtab & "SKU Number" & vbtab & "Vendor" & vbtab _
& "Version"
For Each objSoftware in colSoftware
objTextFile.WriteLine objSoftware.Caption & vbtab & _
objSoftware.Description & vbtab & _
objSoftware.IdentifyingNumber & vbtab & _
objSoftware.InstallDate2 & vbtab & _
objSoftware.InstallLocation & vbtab & _
objSoftware.InstallState & vbtab & _
objSoftware.Name & vbtab & _
objSoftware.PackageCache & vbtab & _
objSoftware.SKUNumber & vbtab & _
objSoftware.Vendor & vbtab & _
objSoftware.Version
Next
objTextFile.Close


Regards
Steve Friday

 

[HiBoo]

Thanks SFriday,

Thats what I was looking for! Much appreciated.