Listing Installed Software List In Computer 1

[AceJet]

Hii guys,

I need to get a list of installed software in a computer to generate a report in VB. Is there anyone know how to get the installed software using VB. Please help.....

 

[JGillespie]

look at wmi - has class for installed software.

Beware though this sometimes does not list all installed software (in my case it missed some import apps out), so i resorted to drilling through the registry to pick up the keys that are used by the ADD/Remove programs control panel

Jamie Gillespie
Senior IT Technician
South Cheshire College
j-gillespie@s-cheshire.ac.uk

 

[johnwm]

Welcome to Tek-Tips, AceJet

To get the best from the forum, read faq222-2244 carefully.

For this question, a quick search on this forum, using the keyword search tab, shows several approaches to this including:
thread222-522146

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

 

[AceJet]

Thank's JGillespie, but where can I get the wsi and how to associate it into VB ?

 

[JGillespie]

heres the WMI script:

Set oLocator=CreateObject("WbemScripting.SWbemLocator&quot

strNamespace="root\cimv2"
strPC=Inputbox("Enter a computername to query. DO NOT ENTER THE LOCAL COMPUTER NAME!!!&quot
strUser=""
strPassword=""
Set oSvc=oLocator.ConnectServer(strPC,strNamespace,strUser,strPassword)

for each prod in oSvc.InstancesOf("Win32_Product&quot
strYr=Left(prod.InstallDate,4)
strMo=Mid(prod.InstallDate,5,2)
strDy=Right(prod.InstallDate,2)
strInstalled=strMo&"/"&strDy&"/"&strYr

msgbox strPC & "," & prod.Name & "," & prod.Vendor & _
"," & prod.Version & "," & strInstalled & "," & DATE
Next


set oSvc=Nothing
set oLocator=Nothing


and heres the registry one:

Dim refRegistry
Const HKEY_LOCAL_MACHINE = &H80000002

Set fso = CreateObject("Scripting.FileSystemObject&quot
Set fil = fso.CreateTextFile("c:\Test_Installed.txt",True)


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

Set WshShell = WScript.CreateObject("WScript.Shell&quot

Set refRegistry = getobject("winmgmts:\root\default:stdregprov&quot

Enumerate "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall",refRegistry,0

Set refRegistry = Nothing

'recursive subroutine call
Sub Enumerate(strKey,refRegistry,numLevel)
Dim arrSubKeys
Dim strSubKey
Dim strIndent
Dim i
'prefix output with correct indentation level
strIndent = ""
For i = 0 To numLevel
strIndent = strIndent + " "
Next

'display output
'WScript.Echo strIndent & strKey
'enumerate any subkeys
If refRegistry.EnumKey( _
HKEY_LOCAL_MACHINE, strKey, arrSubKeys) = 0 Then
For Each strSubKey In arrSubKeys
'recursively call ourselves


On Error Resume Next
'WScript.Echo WshShell.RegRead("HKLM\" & strKey & "\" & strSubKey & "\DisplayName&quot
fil.WriteLine(WshShell.RegRead("HKLM\" & strKey & "\" & strSubKey & "\DisplayName&quot)

'txt = txt & WshShell.RegRead("HKLM\" & strKey & "\" & strSubKey & "\DisplayName&quot & vbcrlf
'WScript.Echo strSubKey
Next
Else
'WScript.Echo "Unable to enumerate. Sorry."
'WScript.Quit
End If

Jamie Gillespie
Senior IT Technician
South Cheshire College
j-gillespie@s-cheshire.ac.uk