• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    在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)。

    上一篇:15分钟学会vbscript中的正则表达式
    下一篇:vbs-toolkit VBSEdit 提供 免费的COM组件
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    在vbscript中判断COM类是否存在的实现代码 在,vbscript,中,判断,COM,类,