0514-86177077
9:00-17:00（工作日）
該文章由老劉原創，轉載需注明原作者昵稱。
在VBS中，我們有時需要判斷一個COM類是否存在，以便執行不同的操作。 這里介紹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 End Function
該方法用到了一個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）。
標簽：西安 海口 湖州 邢臺 文山 鶴壁 四平 銅川
上一篇：15分鐘學會vbscript中的正則表達式
下一篇：vbs-toolkit VBSEdit 提供 免費的COM組件
Copyright ? 1999-2012 誠信 合法 規范的巨人網絡通訊始建于2005年
蘇ICP備15040257號-8
