List of Installed Software

  • Thread starter Thread starter Talal Itani
  • Start date Start date
T

Talal Itani

Hello,

I would like to generate a list of all software installed on my computer,
and then print that list. Is there an easy way to do that?

Best Regards,
Talal Itani
 
Hi,

Belarc Advisor, www.belarc.com, it's free.

--
Best of Luck,

Rick Rogers aka "Nutcase" MS-MVP - Win9x
Windows isn't rocket science! That's my other hobby!

Associate Expert - WinXP - Expert Zone
 
Talal said:
I would like to generate a list of all software installed on my computer,
and then print that list. Is there an easy way to do that?
Click to expand...

Hi

Here is a VBScript that enumerates the keys under the Uninstall key in registry
and shows the result in notepad:


Const OpenAsASCII = 0 ' Opens the file as ASCII (TristateFalse)
Const OpenAsUnicode = -1 ' Opens the file as Unicode (TristateTrue)
Const OpenAsDefault = -2 ' Opens the file using the system default

Const OverwriteIfExist = -1
Const FailIfNotExist = 0
Const ForReading = 1

sComputer = "." ' use . for local computer

Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sTmpFile = oShell.ExpandEnvironmentStrings("%TEMP%") & "\" & oFSO.GetTempName

Set fTmpFile = oFSO.CreateTextFile(sTmpFile, _
OverwriteIfExist, OpenAsASCII)

fTmpFile.Write InstalledApplications(sComputer)
fTmpFile.Close
oShell.Run "notepad.exe " & sTmpFile, 1, True
oFSO.DeleteFile sTmpFile


Function InstalledApplications(node)
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Set oRegistry = _
GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
& node & "/root/default:StdRegProv")
sBaseKey = _
"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
iRC = oRegistry.EnumKey(HKLM, sBaseKey, arSubKeys)
For Each sKey In arSubKeys
iRC = oRegistry.GetStringValue( _
HKLM, sBaseKey & sKey, "DisplayName", sValue)
If iRC <> 0 Then
oRegistry.GetStringValue _
HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
End If
If sValue <> "" Then
InstalledApplications = _
InstalledApplications & sValue & vbCrLf
End If
Next
End Function
 
Well, we're all entitled to our opinions. I like Belarc for this sort of
thing, as the information the user wants will be right there on the list the
program generates. With Aida32, the user has to locate it in the multitude
of system information the program provides.

--
Best of Luck,

Rick Rogers aka "Nutcase" MS-MVP - Win9x
Windows isn't rocket science! That's my other hobby!

Associate Expert - WinXP - Expert Zone
 
Talal Itani said:
Hello,

I would like to generate a list of all software installed on my computer,
and then print that list. Is there an easy way to do that?
Click to expand...

run appwiz.cpl and take a screenshot.
 
Subject: Re: List of Installed Software
From: (e-mail address removed) (d2003xx)
Date: 11/28/2003 9:36 PM Eastern Standard Time
Message-id: <[email protected]>



run appwiz.cpl and take a screenshot.
Click to expand...
Sorry I missed the OP. I use BelarcAdvisor from www.belarc.com . It will give
you a nice list of installed programs and a lot of other useful info about your
PC(inc. some License #'s) in a printable form. And it's FREE.

HTH,
John
"Any sufficiently advanced technology is indistinguishable from magic"
***Arthur C. Clarke***
 
Talal Itani said:
Hello,

I would like to generate a list of all software installed on my computer,
and then print that list. Is there an easy way to do that?

Best Regards,
Talal Itani
Click to expand...

Basically, you can't get a 100% list. Depends what you mean by
installed - take the Mozilla Firebird install as an example - a simple
"unzip" and its installed. The best way is to be strict with your
programs and store everything in a single directory structure, but
even then a lot of "installers" will insist on throwing dll's and the
like all over your system / not let you change install location / etc,
etc...
 
Back
Top