Set TLIApp=WScript.CreateObject("TLI.TLIApplication")
Set TLBInfo = TLIApp.TypeLibInfoFromFile( "C:\Program Files\abc\abc.dll")
For Each TypeInf In TLBInfo.CoClasses
ProgID = TypeInf.Name
CLSID = TypeInf.Guid
msgbox ProgID
msgbox CLSID
Next

怎么TLI.TLIApplication老是创建不了,到底怎么才能查到

Last edited by hjkk123 on 2008-6-24 at 11:01 AM ]

也就是我根据vb代码
vbs我以前能创建TLI.TLIApplication的啊

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

顺便问下，dll的clsid可以是
一定的吗，也就是说clsid本身就包含在dll里面吗