Source code for progids.vbs

Option Explicit

Const HKEY_CLASSES_ROOT = &H80000000

Dim arrProgID, lstProgID, objReg, strMsg, strProgID, strSubKey, subKey, subKeys()

If WScript.Arguments.Count > 0 Then

	strMsg = "ProgIDs.vbs,  Version 1.00"                       & vbCrLf _

	       & "List all ProgIDs available on the local computer" & vbCrLf & vbCrLf _

	       & "Based on a PowerShell script on www.readify.net"  & vbCrLf & vbCrLf _

	       & "Usage:  " & WScript.ScriptName                    & vbCrLf & vbCrLf _

	       & "Written by Rob van der Woude"                     & vbCrLf _

	       & "http://www.robvanderwoude.com"

	WScript.Echo strMsg

End If

Set lstProgID = CreateObject( "System.Collections.ArrayList" )

Set objReg    = GetObject( "winmgmts://./root/default:StdRegProv" )

' List all subkeys of HKEY_CLASSES_ROOT\CLSID

objReg.EnumKey HKEY_CLASSES_ROOT, "CLSID", subKeys

' Loop through the list of subkeys

For Each subKey In subKeys

	' Check each subkey for the existence of a ProgID

	strSubKey = "CLSID\" & subKey & "\ProgID"

	objReg.GetStringValue HKEY_CLASSES_ROOT, strSubKey, "", strProgID

	' If a ProgID exists, add it to the list

	If Not IsNull( strProgID ) Then lstProgID.Add strProgID

Next

' Sort the list of ProgIDs

lstProgID.Sort

' Copy the list to an array (this makes displaying it much easier)

arrProgID = lstProgID.ToArray

' Display the entire array

WScript.Echo Join( arrProgID, vbCrLf )