me, on scripting, trance and other subjects i enjoy
by Lewis · Wed 5th October, 2005
This bit of VBScript will allow you to return a list of applications installed (as seen by Add/Remove Programs). The function returns a simple Array() containing the list of applications installed.
Combined with an ADSI script that returns a list of computers, you can use this function to iterate through all machines on your network to gather a list of installed applications on each machine.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
Function getApps(strComputer) HKLM = &H80000002 'HKEY_LOCAL_MACHINE strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}//" & _ strComputer & "/root/default:StdRegProv") If Err.Number > 0 Then getApps = False Err.Clear Exit Function End If objReg.EnumKey HKLM, strKey, arrSubkeys arrInstalledApps = Array() For Each strSubkey In arrSubkeys '====== Display Name ======== intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, "DisplayName", strValue1) If intRet1 <> 0 Then objReg.GetStringValue HKLM, strKey & strSubkey, "QuietDisplayName", strValue1 End If If InStr(strValue1, "Hotfix") Or InStr(strValue1, "Security Update") Or InStr(strValue1, "Update for Windows") Then 'Nothing Elseif strValue1 <> "" Then ReDim Preserve arrInstalledApps(UBound(arrInstalledApps) + 1) arrInstalledApps(UBound(arrInstalledApps)) = strValue1 End If Next getApps = arrInstalledApps End Function Now I'm sure you want to know how to access the function too so here's the code you need to do just that. On Error Resume Next strComputer = "." arrIA = getApps(strComputer) If IsArray(arrIA) Then WScript.Echo "There are " & UBound(arrIA)+1 & " applications installed on " & UCase(strComputer) & VbCrLf i = 1 For Each strApp In arrIA WScript.Echo i & ": " & strApp i = i + 1 Next Else WScript.Echo "Unable to connect." End If |
Scripting / Web Development / Windows
Integrating SimpleSAMLphp with ADFS 2012R2
Sun 6th September, 2015
O2 XDA Exec, TomTom Navigator 5 and Windows Mobile 5 compatibility issues fixed!
Fri 18th November, 2005
Azure / Scripting / Web Development / Windows
Single Sign-on to Azure AD using SimpleSAMLphp
Sat 5th September, 2015
More
Subscribe now to keep reading and get access to the full archive.