当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 在vbscript中判断COM类是否存在的实现代码

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

2018年08月08日  | 移动技术网IT编程  | 我要评论

g4论坛,骚北,杜达雄2012

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

在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）。

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网