请问怎么得到一个DLL的CLSID 和PROGID？

[SeeMin]

如题，多谢了俄

[韧恒]

方案一：引用TLBINF32.DLL类库，这个文件在系统目录中

Private Sub Command1_Click()
Dim TLIApp As Object
Dim TLBInfo As Object
Dim TypeInf As Object
Set TLIApp = CreateObject("TLI.TLIApplication")
Dim ProgID As String
Dim CLSID As String
' 在这里给出dll文件名，注意它不支持长文件名
Set TLBInfo = TLIApp.TypeLibInfoFromFile("l:\DbgWProc.dll")

For Each TypeInf In TLBInfo.CoClasses
ProgID = TypeInf.Name
CLSID = TypeInf.Guid
Debug.Print ProgID
Debug.Print CLSID
Next
End Sub

[zxbsyx]

注册表root下直接搜

[SeeMin]

如果我想检查一个activaex呢？