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

来源：本站原创|时间：2020-01-10|栏目：vb|点击：次

该文章由老刘原创，转载需注明原作者昵称。

在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基础篇 - vbs数组Array的定义与使用方法

栏目：vb

下一篇：VBS 脚本中的字典、动态数组、队列和堆栈实现代码

本文标题：在vbscript中判断COM类是否存在的实现代码

本文地址：https://www.xiuzhanwang.com/a1/vb/7127.html

更多vb

vb

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

您可能感兴趣的文章

阅读排行

本栏相关

随机阅读