VBScript to get Installed application information

[win2kguy]

Does anyone know how I would use VBScript to determine what applications are installed on a system? Any help would be greatly appreciated.

 

[lorax]

Here's some code I put together to do something similar. I have a page where the user can click a link (which has an id="startapp&quot and launch a local application. This may be different than what you're after since I'm looking for a specific app and not polling all installed apps.

Sub startapp_OnClick
   Dim strAppPath, strTestPath
   Dim MyObj
   Dim fso, drives, drive

   strTestPath = ":\PROGRA~1\AppName\AppName.exe"
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set drives = fso.Drives

  For Each drive In drives
      If Drive.DriveLetter <> &quot;A&quot; Then 
         If fso.FileExists(Drive.DriveLetter&strTestPath) Then strAppPath = Drive.DriveLetter&strTestPath
      End If
   Next

   Set MyObj = CreateObject(&quot;WScript.Shell&quot;)

   If strAppPath <> &quot;&quot; Then 
      MyObj.Run strAppPath 
   Else 
      MsgBox &quot;Application could not be found on your system&quot;
   End If 

   Set MyObj = Nothing
   Set fso = Nothing
End Sub

Hope this helps.
'UNLESS someone like you
cares a whole awful lot,
nothing is going to get better.
It´s not.'
(The Lorax, by Dr. Seuss)