在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）。
相關(guān)文章
用vbs讀取index.dat內(nèi)容的實(shí)現(xiàn)代碼
用vbs讀取index.dat內(nèi)容的實(shí)現(xiàn)代碼，需要的朋友可以參考下。2010-11-11
對(duì)于想結(jié)合OWC的朋友，可以參考下。2009-05-05
VBS教程：函數(shù)-Hour 函數(shù)...2006-11-11
VBS教程：函數(shù)-IsEmpty 函數(shù)...2006-11-11
Google關(guān)鍵詞“WMI CPU使用率”，得到的全是《python使用WMI監(jiān)視系統(tǒng)－CPU使用率》，不用看，肯定又是采集的2011-10-10
在windows 64位操作系統(tǒng)上運(yùn)行32位的vbscript的方法
這篇文章主要介紹了在windows 64位操作系統(tǒng)上運(yùn)行32位的vbscript的方法,需要的朋友可以參考下2016-11-11
創(chuàng)建Guid 的代碼...2007-03-03
使用VBS禁用、啟動(dòng)USB存儲(chǔ)設(shè)備
這篇文章主要介紹了使用VBS禁用、啟動(dòng)USB存儲(chǔ)設(shè)備,需要的朋友可以參考下2014-09-09
ActiveX部件不能創(chuàng)建對(duì)象：dm.dmsoft代碼：800A01AD
vbs調(diào)用插件報(bào)：ActiveX部件不能創(chuàng)建對(duì)象，代碼：800A01AD，一般是因?yàn)椴《緦?dǎo)致dll文件丟失或者64系統(tǒng)問題導(dǎo)致,需要的朋友可以參考下2019-12-12
用vbscript實(shí)現(xiàn)啟用 Caps Lock （大寫）鍵
用vbscript實(shí)現(xiàn)啟用 Caps Lock （大寫）鍵...2007-04-04