Script to list all installed programs on a pc.

[simdan42]

I need to write a script that will list all of the programs installed on a pc. Any idea where this info is stored?

 

[bcastner]

The Scripting Guys enumerated this in a Webcast last Thursday.

I can write the script shown, or poke around the site:

http://www.microsoft.com/technet/scriptcenter/default.mspx

They wrote a qute nice script to enumerate instaled programs using WMI scripting on Thursday, as part and parcel of Scripting Weel Webcasts #2.

 

[wantstolearncfm]

I know you say a script, but if its just a a pc, then you could install something like belarc adivsor, that works just as well and its all pretty when its outputted !

http://google.com

http://support.microsoft.com/

CF Reference
The links of my knowledge

 

[bcastner]

The "Scripting Guys" have a great lady, who specificly delt with ugly output. All of the Week #2 scripts are available for download.

I like and respect Belarc Advisor, but I am not convinced it answered the original posters's question.

 

[simdan42]

I need something that I can run in the login script that will save the list of programs on a network drive.

 

[simdan42]

Just in case you are wondering, here is what I did.
------------------------------------------------------------

Dim strUserName, strCompName, strLocation


SET WSHShell = CreateObject("WScript.Shell")

strUserName = WSHShell.ExpandEnvironmentStrings("%USERNAME%")
strCompName = WSHShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
strLocation = "PATH GOES HERE" + strUserName + "-" + strCompName + ".txt"

Dim strComputer, strKey, strSubKey
DIM fso, GuyFile
Dim objRegistry
Dim arrSubKeys()
Dim strDisplayName, strDisplayVersion, strInstallLocation
Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

' BEGIN CALLOUT A
Set objRegistry = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
' END CALLOUT A

' BEGIN CALLOUT B
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKey,
arrSubKeys
' END CALLOUT B

' BEGIN CALLOUT C
On Error Resume Next
For Each strSubKey In arrSubKeys
objRegistry.GetStringValue HKEY_LOCAL_MACHINE, _
strKey & "\" & strSubKey, "DisplayName",
strDisplayName

Set fso = CreateObject("Scripting.FileSystemObject")
Set GuyFile = fso.CreateTextFile(strLocation, True)
GuyFile.WriteLine(strDisplayName)
strDisplayName = vbEmpty
Next
GuyFile.Close
' END CALLOUT C

Msgbox "Update completed successfully"

------------------------------------------------------------