Help with Installed Software

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Help with Installed Software

Logged in as: Guest

arrSession:exec spGetSession 2,2,64994

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Help with Installed Software
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Help with Installed Software - 10/12/2008 3:14:52 PM

ploosie

Posts: 43
Score: 0
Joined: 3/2/2008
Status: offline

Hi

I have a script that lists all installed software on a computer + security patches (Example: KB78453)

Although the script pulls alot of information, I still find that there are some software or security patches that are not listed sometimes. Can anyone give me some advice where I can search for more Installed Software / security patches on a computer?

Here is the code I have:

Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
strComputer = "."
DIM strExcelPath, objExcel, objSheet, intRow, strPath 
DIM objFSO, objFolder 
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\InstalledSoftware.xls")
Set objWorksheet = objWorkbook.Worksheets(1)
 objExcel.Columns(1).ColumnWidth = 70
   objExcel.Columns(2).ColumnWidth = 70
'intRow = introw +1
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
strEntry1a = "DisplayName"
strEntry1b = "QuietDisplayName"
Set objReg = GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")
   objReg.EnumKey HKLM, strKey, arrSubkeys
   'WScript.Echo "Installed Applications" & VbCrLf
   For Each strSubkey In arrSubkeys
       intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, strEntry1a, strValue1)
       If intRet1 <> 0 Then
           objReg.GetStringValue HKLM, strKey & strSubkey, strEntry1b, strValue1
       End If
       If strValue1 <> "" Then
       intRow = introw +1 
       objExcel.Cells (1,3).Value = "Column 1 processed at " & Date() & "--" & Time ()
       objExcel.Cells (intRow,1).Value = strValue1
          
       End If
   Next
   
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
   "SELECT * FROM Win32_QuickFixEngineering",,48) 
 
 For Each objItem in colItems 
If UCase(objItem.HotFixID) <> "FILE 1" Then 
intRow = introw +1 
objExcel.Cells (intRow,1).Value = objItem.HotFixID 
End If 
Next 
   
   
   objWorkbook.Save()
msgbox "Capture Installed Software Phase 1 Complete"

Post #: 1

RE: Help with Installed Software - 10/12/2008 4:17:59 PM

dm_4ever

Posts: 2641
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

Have you also tried looking under

SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to ploosie)