Returns a list of ProgIDs (Programmatic Identifiers) found on a computer.

This script was tested using Kixtart 2001 (412) for Microsoft Windows, available from Kixtart.org.

Kixtart
Edit|Remove
$strComputer = "."
$objWMIService = GetObject("winmgmts:\\"+ $strComputer + "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_ProgIDSpecification")
For Each $objItem in $colItems
    ? "Caption:" + $objItem.Caption
    ? "Check ID:" + $objItem.CheckID
    ? "Check Mode:" + $objItem.CheckMode
    ? "Description:" + $objItem.Description
    ? "Name:" + $objItem.Name
    ? "Parent:" + $objItem.Parent
    ? "ProgID:" + $objItem.ProgID
    ? "Software Element ID:" + $objItem.SoftwareElementID
    ? "Software Element State:" + $objItem.SoftwareElementState
    ? "Target Operating System:" + $objItem.TargetOperatingSystem
    ? "Version:" + $objItem.Version
Next