在VBS中判断COM类是否存在
2018-03-11 13:58
253 查看
在VBS中,我们有时需要判断一个COM类是否存在,以便执行不同的操作。
这里介绍2种基本的方法,其函数的返回值为Bool值,为真则证明COM类存在。
1、注册表查询法。
该方法用到了一个Win Script Host附带的COM类。通过直接查询注册表来确定COM类是否有效。
优点:快速,无需创建对象。
缺点:一些COM类的卸载残留可能会使该函数误判。如果WScript.Shell对象异常,会无法判断。
2、尝试创建法。
该方法比较简单粗暴,直接创建下COM对象看看成不成功。
优点:非常的严谨&靠谱。
缺点:如果用这个来测试一些创建&销毁时间长的类(如Word.Application),会耗费大量时间,并留下进程残留(如Word对象需手动.Quit)。
这里介绍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中判断COM类是否存在的实现代码
- VBS中如何判断一个引用对象是否存在?
- vbs学习笔记1——判断文件和文件夹是否存在
- 如何判断注册用户是否已经存在(membership验证)
- 数据结构实验之图论十:判断给定图是否存在合法拓扑序列
- python 新建目录,删除目录,判断目录是否存在
- 12.30sqlite判断表、字段是否存在
- Node.js 中fs.access() 判断文件和目录是否存在;
- 如何判断 DataRow 中是否存在某列????
- Python判断文件和文件夹是否存在的方法
- oracle中判断表是否存在,进行处理
- 判断表是否存在 创建表前判断表是否存在
- Java判断文件、文件夹是否存在
- shell判断条件是否存在
- 判断表是否存在或表是否有数据的sql语句
- c# mysql INSERT 数据前判断表中是否存在
- asp.net(c#)判断远程图片是否存在
- delphi clientdataset判断字段存在是否存在
- [转] FMDB中判断Sqlite的表是否存在
- 杭电1272~~小希的迷宫——并查集判断是否存在环