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

Question

如题，多谢了俄

Answer 1

方案一：引用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

Answer 2

如果我想检查一个activaex呢？