该文章由老刘原创，转载需注明原作者昵称。
在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）。
标签：
vbs,COM
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
内蒙古资源网 Copyright www.nmgbbs.com
暂无“在vbscript中判断COM类是否存在的实现代码”评论...
P70系列延期，华为新旗舰将在下月发布
3月20日消息，近期博主@数码闲聊站 透露，原定三月份发布的华为新旗舰P70系列延期发布，预计4月份上市。
而博主@定焦数码 爆料，华为的P70系列在定位上已经超过了Mate60，成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢？
根据目前爆料的消息来看，华为P70系列将推出三个版本，其中P70和P70 Pro采用了三角形的摄像头模组设计，而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智，但辨识度绝对拉满。