Software Inventory Scripts
Hi All Scripting Expects;
I'm in need of help to build a Software Inventory Scripts to capture all software install listed in the Control Pannel (Add/Remove Programs)of local computers.
Have found and edit a scripts to extract to excel file but with the following problem.
1. list override each others
2. Only MSI installed program are listed (Need all programs).
Thanks for responding
Regards
Shawn
--------------------------------------------------
Dim objExcel
Dim objWbem
Dim colInstProducts
Dim objProduct
Dim colFeatures
Dim objFeature
Dim blnDetails
Dim strComputer
Set objExcel = WScript.CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.ActiveSheet.Name = "Delco Invent 1"
objExcel.ActiveSheet.Range("A1").Activate
objExcel.ActiveCell.Value = "Com Name"
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
If WScript.Arguments.Count = 2 Then
Set objWbem = GetObject("winMgmts:\\" & strComputer)
Set colInstProducts = objWbem.InstancesOf("Win32_Product")
Else
Set objWbem = GetObject("winmgmts:\\" & strComputer)
Set colInstProducts = objWbem.InstancesOf("Win32_Product")
End If
If Err <> 0 Then
WScript.Echo "Could not connect to WMI"
WScript.Quit
End If
'Loop through Products adding report entries
For Each objProduct in colInstProducts
' WScript.Echo "-----------------------------------------"
objExcel.ActiveCell.offset(0,1)= objProduct.Name
objExcel.ActiveCell.offset(0,2)= objProduct.Version
objExcel.ActiveCell.offset(0,3)= objProduct.Vendor
Next