$obj = createobject("COMAdmin.COMAdminCatalog.1")

$apps = $obj.GetCollection("Applications")

$apps.Populate()

for each $app in $apps

   ? $app.Name

   ? $app.key

   $comps = $apps.GetCollection("Components",$app.key)

   $comps.Populate()

   for each $comp in $comps

      ? $comp.Name

      ? readvalue("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\" + 

                  $comp.Key + "\InprocServer32", "")

   next

   ?

next