在vbscript中判断COM类是否存在的实现代码
该文章由老刘原创，转载需注明原作者昵称。
在VBS中，我们有时需要判断一个COM类是否存在，以便执行不同的操作。
这里介绍2种基本的方法，其函数的返回值为Bool值，为真则证明COM类存在。
1、注册表查询法。
FunctionComExist(ComName)
DimWshShell
SetWshShell=CreateObject("Wscript.Shell")
OnErrorResumeNext
WshShell.RegRead("HKCR\"&ComName&"\")
ComExist=CBool(Err.Number=0)
OnErrorGoto0
EndFunction
该方法用到了一个WinScriptHost附带的COM类。通过直接查询注册表来确定COM类是否有效。
优点：快速，无需创建对象。
缺点：一些COM类的卸载残留可能会使该函数误判。如果WScript.Shell对象异常，会无法判断。
2、尝试创建法。
FunctionComExist(ComName) OnErrorResumeNext SetCreateTest=CreateObject(ComName) ComExist=CBool(Err.Number=0) OnErrorGoto0 EndFunction
该方法比较简单粗暴，直接创建下COM对象看看成不成功。
优点：非常的严谨&靠谱。
缺点：如果用这个来测试一些创建&销毁时间长的类（如Word.Application），会耗费大量时间，并留下进程残留（如Word对象需手动.Quit）。
热门推荐
10 读书祝福语女生短句简短
11 感谢同事新婚祝福语简短
12 感谢教官文案祝福语简短
13 员工聚会蛋糕祝福语简短
14 元宵发客户祝福语简短
15 给团队信心祝福语简短
16 医美的祝福语大全简短
17 异国姻缘的祝福语简短
18 兄妹拍照祝福语简短的话