批处理之家's Archiver

老刘1号 发表于 2018-3-11 13:29

在VBS中判断COM类是否存在

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

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

1、注册表查询法。[code]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[/code]该方法用到了一个Win Script Host附带的COM类。通过直接查询注册表来确定COM类是否有效。
优点:快速,无需创建对象。
缺点:一些COM类的卸载残留可能会使该函数误判。如果WScript.Shell对象异常,会无法判断。

2、尝试创建法。[code]Function ComExist(ComName)
        On Error Resume Next
        Set CreateTest = CreateObject(ComName)
        ComExist = CBool(Err.Number = 0)
        On Error Goto 0
End Function[/code]该方法比较简单粗暴,直接创建下COM对象看看成不成功。
优点:非常的严谨&靠谱。
缺点:如果用这个来测试一些创建&销毁时间长的类(如Word.Application),会耗费大量时间,并留下进程残留(如Word对象需手动.Quit)。

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.