在VBS中判斷COM類是否存在
阿新 • • 發佈：2018-03-11
老劉 Vbscript COM 在VBS中，我們有時需要判斷一個COM類是否存在，以便執行不同的操作。
這裏介紹2種基本的方法，其函數的返回值為Bool值，為真則證明COM類存在。
該方法用到了一個Win Script Host附帶的COM類。通過直接查詢註冊表來確定COM類是否有效。
優點：快速，無需創建對象。
缺點：一些COM類的卸載殘留可能會使該函數誤判。如果WScript.Shell對象異常，會無法判斷。
缺點：如果用這個來測試一些創建&銷毀時間長的類（如Word.Application），會耗費大量時間，並留下進程殘留（如Word對象需手動.Quit）。
這裏介紹2種基本的方法，其函數的返回值為Bool值，為真則證明COM類存在。
1、註冊表查詢法。
Function ComExist(ComName)
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
On Error Resume Next
WshShell.RegRead("HKCR\"&ComName&"\")
ComExist = CBool(Err.Number = 0)
On Error Goto 0
該方法用到了一個Win Script Host附帶的COM類。通過直接查詢註冊表來確定COM類是否有效。
優點：快速，無需創建對象。
缺點：一些COM類的卸載殘留可能會使該函數誤判。如果WScript.Shell對象異常，會無法判斷。
2、嘗試創建法。
Function ComExist(ComName)
On Error Resume Next
Set CreateTest = CreateObject(ComName)
ComExist = CBool(Err.Number = 0)
On Error Goto 0
End Function
該方法比較簡單粗暴，直接創建下COM對象看看成不成功。
缺點：如果用這個來測試一些創建&銷毀時間長的類（如Word.Application），會耗費大量時間，並留下進程殘留（如Word對象需手動.Quit）。
在VBS中判斷COM類是否存在