脚本宝典收集整理的这篇文章主要介绍了在vbscript中判断COM类是否存在的实现代码,脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。
在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)。
以上是脚本宝典为你收集整理的在vbscript中判断COM类是否存在的实现代码全部内容,希望文章能够帮你解决在vbscript中判断COM类是否存在的实现代码所遇到的问题。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。