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

2018年11月12日 6628 字数 2978 阅读 4 评论 标签:
在VBS中,我们有时需要判断一个COM类是否存在,以便执行不同的操作。这里介绍2种基本的方法,其函数的返回值为Bool值,为真则证明COM类存在。...

在VBS中,我们有时需要判断一个COM类是否存在,以便执行不同的操作。这里介绍2种基本的方法,其函数的返回值为Bool值,为真则证明COM类存在。

1、注册表查询法。

  1. Function ComExist(ComName)
  2.   Dim WshShell
  3.   Set WshShell = CreateObject("Wscript.Shell")
  4.   On Error Resume Next
  5.   WshShell.RegRead("HKCR\"&ComName&"\")
  6.   ComExist = CBool(Err.Number = 0)
  7.   On Error Goto 0
  8. End Function

该方法用到了一个Win Script Host附带的COM类。通过直接查询注册表来确定COM类是否有效。

优点:快速,无需创建对象。

缺点:一些COM类的卸载残留可能会使该函数误判。如果WScript.Shell对象异常,会无法判断。

2、尝试创建法。

  1. Function ComExist(ComName)
  2.     On Error Resume Next
  3.     Set CreateTest = CreateObject(ComName)
  4.     ComExist = CBool(Err.Number = 0)
  5.     On Error Goto 0
  6. End Function

该方法比较简单粗暴,直接创建下COM对象看看成不成功。
优点:非常的严谨&靠谱。

缺点:如果用这个来测试一些创建&销毁时间长的类(如Word.Application),会耗费大量时间,并留下进程残留(如Word对象需手动.Quit)。

TAG:
阅读:
上一篇:没有了 下一篇:没有了
广告 330*360
广告 330*360

热门文章

HOT NEWS
  • 周榜
  • 月榜
微信二维码扫一扫
关注微信公众号
ZYHOT.COM 联系QQ:888199
二维码
意见反馈 二维码