在vbscript中判斷COM類是否存在的實(shí)現(xiàn)代碼

該文章由老劉原創(chuàng)，轉(zhuǎn)載需注明原作者昵稱。

在VBS中，我們有時(shí)需要判斷一個(gè)COM類是否存在，以便執(zhí)行不同的操作。
這里介紹2種基本的方法，其函數(shù)的返回值為Bool值，為真則證明COM類存在。

1、注冊(cè)表查詢法。

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

該方法用到了一個(gè)Win Script Host附帶的COM類。通過直接查詢注冊(cè)表來確定COM類是否有效。
優(yōu)點(diǎn)：快速，無需創(chuàng)建對(duì)象。
缺點(diǎn)：一些COM類的卸載殘留可能會(huì)使該函數(shù)誤判。如果WScript.Shell對(duì)象異常，會(huì)無法判斷。

2、嘗試創(chuàng)建法。

Function ComExist(ComName)
	On Error Resume Next
	Set CreateTest = CreateObject(ComName)
	ComExist = CBool(Err.Number = 0)
	On Error Goto 0
End Function

該方法比較簡(jiǎn)單粗暴，直接創(chuàng)建下COM對(duì)象看看成不成功。
優(yōu)點(diǎn)：非常的嚴(yán)謹(jǐn)靠譜。
缺點(diǎn)：如果用這個(gè)來測(cè)試一些創(chuàng)建銷毀時(shí)間長(zhǎng)的類（如Word.Application），會(huì)耗費(fèi)大量時(shí)間，并留下進(jìn)程殘留（如Word對(duì)象需手動(dòng).Quit）。