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组件
