ocxファイルについての質問です。

対応を表にしたいのですが、これは手作業しか無理なのでしょうか。

ActiveX(COM) の情報は、基本的には「レジストリ」＋「タイプライブラリ」（OLEView.exe で表示できる内容）から取得できます。

これらの情報を取得するコンポーネントがありますので、それらを使用して一覧を作成することが可能です。

参考までにコンポーネントの一覧を取得するスクリプト（VBScript を使用）を作成してみました。

＜スクリプトの概要＞
1. レジストリ HKCR\CLSID\ 配下のレジストリを列挙
2. レジストリ HKCR\CLSID\{XXXXXXXX}\Control のものを ActiveX と判断する
3. コンポーネント情報（ProgID, HelpString 等）を取得
4. 結果をレコードセットに詰める
5. 1～4 を繰り返す
6. 結果をタブ区切り形式で表示

以下のスクリプトをコマンドラインで

CScript ExportOcxList.vbs //Nologo > out.txt

として、実行すると、結果をタブ区切りのファイルとして出力します。

• ソース

' File Name : ExportOcxList.vbs
' Usage : CScript ExportOcxList.vbs //Nologo > out.txt

Option Explicit

' Registry
Const HKEY_CLASSES_ROOT = &H80000000

' ADO
Const adVarChar = 200
Const adFldIsNullable = 32

Call Main()

' メイン
Sub Main()
    ' 初期処理
    Dim strComputer
    strComputer = "." 
    
    ' ■ レジストリ / サブキーの列挙
    ' http://www.microsoft.com/japan/technet/scriptcenter/scripts/os/registry/osrgvb10.mspx
    Dim oReg
    Set oReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
    
    ' ■ FILE: Tlbinf32.exe : Help Files for Tlbinf32.dll
    ' http://support.microsoft.com/kb/224331/en-us
    Dim tliApp
    Set tliApp = CreateObject("TLI.TLIApplication")
    
    ' データ格納用レコードセットの用意
    Dim rs
    Set rs = MakeRecordset()
    
    ' データ収集開始
    Dim strKeyPath
    strKeyPath = "CLSID"
    Dim arrSubKeys
    oReg.EnumKey HKEY_CLASSES_ROOT, strKeyPath, arrSubKeys 
    Dim subKey
    Dim strFindKey
    For Each subkey In arrSubKeys 
        If Left(subKey,1) = "{" And Right(subKey,1) = "}" Then
            strFindKey = strKeyPath & "\" & subkey
            If IsActiveX( oReg, strFindKey ) Then
                Call GetComInfo( tliApp, oReg, strFindKey, rs )
            End If
        End If
    Next
    
    ' データ表示
    Dim strDelimiter
    strDelimiter = vbTab ' 区切り文字を指定（vbTab : タブ文字）
    ShowRecordset rs, strDelimiter
    
    ' メモリ開放
    Set rs = Nothing
    Set tliApp = Nothing
    Set oReg = Nothing
End Sub

' ActiveX かどうかの判別
Function IsActiveX( oReg, strKeyPath )
    Dim bResult
    bResult = False
    
    Dim subkey
    Dim arrSubKeys
    oReg.EnumKey HKEY_CLASSES_ROOT, strKeyPath, arrSubKeys
    If IsNull( arrSubKeys ) Then
        IsActiveX = bResult
        Exit Function
    End If
    ' "HKCR\CLSID\{XXXXXXXX}\Control" がある COM を ActiveX と判断する
    For Each subkey In arrSubKeys 
        If LCase( subkey ) = "control" Then
            bResult = True
            Exit For
        End If
    Next

    IsActiveX = bResult
End Function

' データ格納用レコードセットの準備
Function MakeRecordset()
    Dim rs
    Set rs = CreateObject("ADODB.Recordset")
    rs.Fields.Append "CLSID",          adVarChar, 255, adFldIsNullable
    rs.Fields.Append "ProgID",         adVarChar, 255, adFldIsNullable
    rs.Fields.Append "InprocServer32", adVarChar, 255, adFldIsNullable
    rs.Fields.Append "LocalServer32",  adVarChar, 255, adFldIsNullable
    rs.Fields.Append "Description",    adVarChar, 255, adFldIsNullable
    rs.Fields.Append "HelpString",     adVarChar, 255, adFldIsNullable
    rs.Open
    Set MakeRecordset = rs
End Function

' データ表示
Sub ShowRecordset( rs, strDelimiter )
    On Error Resume Next

    rs.MoveFirst
    
    ' タイトル行
    Dim strLine
    strLine = GetFieldNameList( rs, strDelimiter )
    WScript.Echo strLine ' タイトル行を出力
    
    ' データ行
    While Not rs.BOF And Not rs.EOF
        strLine = GetFieldValueList( rs, strDelimiter )
        WScript.Echo strLine ' データ行を出力
        rs.MoveNext
    Wend
    
End Sub

' カラム名の一覧（１行分）を取得
Function GetFieldNameList( rs, strDelimiter )
    Dim strResult
    
    Dim bFirst
    bFirst = True
    Dim fld
    For Each fld In rs.Fields
        If bFirst Then
            strResult = Chr(34) & fld.Name & Chr(34)
            bFirst = False
        Else
            strResult = strResult & strDelimiter & Chr(34) & fld.Name & Chr(34)
        End If
    Next
    
    GetFieldNameList = strResult
End Function

' カラムデータの一覧（１行分）を取得
Function GetFieldValueList( rs, strDelimiter )
    Dim strResult
    
    Dim bFirst
    bFirst = True
    Dim fld
    For Each fld In rs.Fields
        If bFirst Then
            strResult = Chr(34) & fld.Value & Chr(34)
            bFirst = False
        Else
            strResult = strResult & strDelimiter & Chr(34) & fld.Value & Chr(34)
        End If
    Next
    
    GetFieldValueList = strResult
End Function

' COM 情報を取得
Function GetComInfo( tliApp, oReg, strKeyPath, ByRef rs )
    Dim strCLSID
    Dim strProgID
    Dim strInprocServer32
    Dim strLocalServer32
    Dim strDescription
    Dim strHelpString
    Dim strFilePath
    
    strCLSID          = Mid( strKeyPath, InStrRev( strKeyPath, "\" ) + 1 )
    strProgID         = GetKeyValue( oReg, strKeyPath & "\ProgID", "" )
    strInprocServer32 = GetKeyValue( oReg, strKeyPath & "\InprocServer32", "" )
    strLocalServer32  = GetKeyValue( oReg, strKeyPath & "\LocalServer32", "" )
    strDescription    = GetKeyValue( oReg, strKeyPath, "" )
    strFilePath = SelectFilePath( strInprocServer32, strLocalServer32 )
    strHelpString     = GetHelpString( tliApp, strFilePath )
    
    rs.AddNew()
    rs.Fields( "CLSID" )           = strCLSID
    rs.Fields( "ProgID" )          = strProgID
    rs.Fields( "InprocServer32" )  = strInprocServer32
    rs.Fields( "LocalServer32" )   = strLocalServer32
    rs.Fields( "Description" )     = strDescription
    rs.Fields( "HelpString" )      = strHelpString
    rs.Update()

End Function

' レジストリ値を取得
Function GetKeyValue( oReg, strKeyPath, strValueName )
    Dim strResult

    Dim strValue
    Call oReg.GetStringValue( HKEY_CLASSES_ROOT, strKeyPath, strValueName, strValue )
    strResult = strValue
    
    GetKeyValue = strResult
End Function

' パス名がセットされている方を選択
Function SelectFilePath( strFileName1, strFileName2 )
    Dim strResult
    
    If Len( strFileName1) > 0 Then
        strResult = strFileName1
    Else
        strResult = strFileName2
    End If
    
    SelectFilePath = strResult
End Function

' 指定コンポーネントのヘルプ情報を取得
Function GetHelpString( tliApp, strFullPath )
    Dim strResult
    
    On Error Resume Next
    
    ' TypeLibInformation ActiveX オブジェクト (tlbinf32.dll) を使用してヘルプ情報を取得
    Dim tli
    Set tli = tliApp.TypeLibInfoFromFile( strFullPath )
    If Err.Number > 0 Then
        strResult = ""
    Else
        strResult = tli.HelpString
    End If
    Set tli = Nothing
    
    GetHelpString = strResult
End Function

• 実行例（一部を抜粋）

• 参考情報

■ [VB] Visual Basic 6.0 に添付されている ActiveX コントロール一覧
http://support.microsoft.com/kb/412577/ja
■ [VB] ActiveX コンポーネントで作成されるレジストリ エントリ
http://support.microsoft.com/kb/183771/ja
■ レジストリ / サブキーの列挙
http://www.microsoft.com/japan/technet/scriptcenter/scripts/os/r...
■ FILE: Tlbinf32.exe : Help Files for Tlbinf32.dll
http://support.microsoft.com/kb/224331/en-us
■ ADO API リファレンス
http://msdn.microsoft.com/library/ja/jpado260/htm/mdmscadoapiref...