Well Microsoft Windows Scripting Guide is a good place to look for it should be in MSDN on your machine if you often use Scripting
I found exactly what you want
Set objFSO = CreateObject("Scripting.Fi
Set objTextFile = objFSO.CreateTextFile("c:\
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=imper
Set colSoftware = objWMIService.ExecQuery _
("SELECT * FROM Win32_Product")
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.IdentifyingNum
objSoftware.InstallLocatio
objSoftware.InstallState & vbtab & _
objSoftware.Name & vbtab & _
objSoftware.PackageCache & vbtab & _
objSoftware.SKUNumber & vbtab & _
objSoftware.Vendor & vbtab & _
objSoftware.Version
Next
objTextFile.Close
A few comments on it:
It opens a File Software.tsv (basically a text file, Tab Separated Values)
Then it initializes a colSoftware Querying the Installed Products and Writes them in the File Software.tsv
Main Topics
Browse All Topics





by: naiea1231Posted on 2004-10-12 at 21:32:54ID: 12294715
I've experimented with this in the past and i find the best way is to look at the uninstall part of the registry
E\Microsof t\Windows\ CurrentVer sion\Unins tall
HKEY_LOCAL_MACHINE\SOFTWAR
If you enumerate all the keys in there, and then look at the value for the DisplayName for each one, that should give you a good indication of all the software installed (at least, all those present in add/remove programs)
If you'd like any assistance with the code for reading from the registry just let me know
James