VBS技术内幕：CreateObject函数详解

曾经我也不明白为什么在CreateObject函数中传递不同的字符串就可以创建各种各样功能强大的对象。后来无意中看到UMU的《[UMU WSH 教程](9)CreateObject 过程》，才知道CreateObject函数创建的是COM对象，第一个参数是COM对象的ProgID。再后来拜读了Jeff Glatt的《COM in plain C》，知道了如何用纯C语言编写COM组件。

COM（组件对象模型）是一个很复杂的概念，需要用砖头那么厚的书才能讲得清楚，而且没有C++和面向对象编程背景的话很难理解，比较经典的书有《COM原理与应用》、《COM技术内幕》和《COM本质论》，不过貌似都绝版了。

当然，作为VBSer，我们不需要去理解COM的原理或者本质。简单的说，COM就是别人写好的模块，我们要做的仅仅是调用它，而不必关心它的内部实现，这也是COM技术的一个初衷。ProgID可以认为是开发人员为COM对象起的一个名字，我们把COM对象的名字传递给CreateObject函数，告诉它我们想创建这个对象，CreateObject函数就会返回这个对象的指针给你。

例如我可以（当然，你也可以）用VB来编写一个COM组件，然后给它起个名字demon.tw，那么注册该COM组件之后，就可以用CreateObject函数来创建了：

我们常用的Scripting.FileSystemObject、WScript.Shell、ADODB.Stream等只不过是微软开发的系统自带的COM对象的名字罢了。

那么CreateObject函数是如何创建对象的呢？用OllyDbg跟了一下，核心的代码大概可以分成四步：

第一步调用CLSIDFromProgIDEx从ProgID获取对应的CLSID，如果找不到对应的CLSID，就会报错“ActiveX 部件不能创建对象”。

我们可以用注册表编辑器手工查找CLSID。例如要获取WScript.Shell的CLSID，用注册表编辑器查找HKEY_CLASSES_ROOT\WScript.Shell\CLSID的值即可。需要注意的是，《[UMU WSH 教程](9)CreateObject 过程》里说：

1、CreateObject 函数先检查注册表 HKEY_CLASSES_ROOT\WScript.Shell 下的子键 CurVer 的默认值，结果为 WScript.Shell.1，所以知道最新版本是 WScript.Shell.1；

2、读 HKEY_CLASSES_ROOT\WScript.Shell.1，下面有一个子键 CLSID，默认值为 {72C24DD5-D70A-438B-8A42-98424B88AFB8}；

这是错误的，CreateObject函数（准确的说是其内部调用的CLSIDFromProgIDEx函数）先检查注册表子键 HKEY_CLASSES_ROOT\WScript.Shell\CLSID是否存在，只要子键存在，即使默认值为空或者不是类标识符，都不会再检查子键CurVer ，只有CLSID子键不存在，才会检查子键 CurVer。

第二步调用CoGetClassObject函数获取IClassFactory接口的指针，如果获取不到，报错“ActiveX 部件不能创建对象”或者“类不支持 Automation 操作”，也可能是其他错误信息，这取决于COM的实现。

第三步调用IClassFactory接口的CreateInstance方法获取IUnknown接口指针，所有的COM都必须支持IUnknown接口，所以这步应该不会出错。

最后调用IUnknown接口的QueryInterface方法查询该COM是非支持IDispatch接口，只有支持IDispatch接口的COM类才能用CreateObject创建对象。如果获取到IDispatch接口的指针，就可以给VARIANT变量赋值了；如果不支持IDispatch接口，报错“类不支持 Automation 操作”，也可能是其他错误信息，取决于具体实现。

说了半天还是没有说到一个关键的问题：VBS到底能调用哪些对象？或者说，哪些字符串可以作为CreateObject函数的第一个参数？欲知问题答案，请听下回分解。

VBS深入CreateObject函数

本篇要讲的是对象的创建，属于 COM 的内容，这里不可能说太多，大家可以找一些 COM 的书看看，也可以看看 UMU 的其他关于 COM 的文章：《ATL 体验》、《基于 WebBrowser 的新型应用程序研究小记》、《学习 ATL 的理由》、《关于 COM 的几个概念问题》、《关于 COM 的几个概念问题(2)》。最常见的对象有：WScript.Shell、Scripting.FileSystemObject、Scripting.Dictionary 等，这里以 WScript.Shell 为例。

马上来看对象的创建过程，语句 Set objWSH = CreateObject( "WScript.Shell" )：

1、CreateObject 函数先检查注册表 HKEY_CLASSES_ROOT\WScript.Shell 下的子键 CurVer 的默认值，结果为 WScript.Shell.1，所以知道最新版本是 WScript.Shell.1；

2、读 HKEY_CLASSES_ROOT\WScript.Shell.1，下面有一个子键 CLSID，默认值为 {72C24DD5-D70A-438B-8A42-98424B88AFB8}；

3、找到了 HKEY_CLASSES_ROOT\CLSID\{72C24DD5-D70A-438B-8A42-98424B88AFB8}，子键 InProcServer32 的默认值说明服务程序是 C:\WINDOWS\system32\wshom.ocx。

4、对于脚本可以调用的 COM 对象，要使用对象里的方法 TypeLib 是必要的，HKEY_CLASSES_ROOT\CLSID\{72C24DD5-D70A-438B-8A42-98424B88AFB8} \TypeLib 的默认值是 {F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}，HKEY_CLASSES_ROOT\TypeLib \{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}\1.0\0\win32 的默认值说明类型库是 C:\WINDOWS\system32\wshom.ocx。

支持脚本调用的 COM 对象必然要实现 IDispatch 接口，可以从 C:\WINDOWS\system32\wshom.ocx 的“资源 – TYPELIB”里看出来，每个对象开头的 7 个函数都是 QueryInterface、AddRef、Release、GetTypeInfoCount、GetTypeInfo、 GetIDsOfNames、Invoke，前 3 个是 IUnknown 接口的函数。PE 文件里的 TYPELIB 资源是 *.idl 源码文件编译后的类型库的二进制数据，可以反编译回去。不过 UMU 推荐使用 eXeScope 查看，即使用 eXeScope 打开 C:\WINDOWS\system32\wshom.ocx，查看“资源 – TYPELIB”，可以看出每个接口函数的参数和返回值定义。

VB 开发环境就是这样知道对象里有什么函数的。所以，如果我们知道一个对象名，却不知道这个对象里有什么函数，可以用上面说的方法获得。

xuejinglan 于 2007年03月31日 星期六 11:40 问 UMU 这样一个问题：“系统中存在哪些对象，对象有那些函数可以调用，如何知道？”这个问题已经回答后一半了，下面回答前一半。

对象的注册信息 HKEY_CLASSES_ROOT\CLSID\{GUID} 下可能会有这样的一些子键：Control 说明该组件是一个 ActiveX 控件、Programmable 说明该组件支持自动化、Insertable 说明该组件可以被嵌入到一个 OLE 文档容器中。能找到 Programmable，说明支持自动化，也就是支持 IDispatch 接口，所以它可以被脚本语言使用。不过这种方式比较老了，现在已经被一个的组件类属代替，即 Implemented Categories 子键下面的 GUID 形式的子键。比如 HKEY_CLASSES_ROOT\CLSID\{72C24DD5-D70A-438B-8A42-98424B88AFB8}\Implemented Categories\{40FC6ED5-2438-11CF-A3DB-080036F12502}，看一下 HKEY_CLASSES_ROOT\Component Categories\{40FC6ED5-2438-11CF-A3DB-080036F12502} 下的 409 字符串值为 Automation Objects，也就是“自动化对象”。

查找“自动化对象”可以使用 VS 带的工具 oleview.exe，它专门用来查看 OLE/COM 对象的注册信息，界面如下图：

人民群众可能有点头晕了，总结一下：组件类属为 {40FC6ED5-2438-11CF-A3DB-080036F12502}(Automation Objects) 的对象都支持被脚本调用。

接下去的创建过程不属于脚本应该考虑的范围，有兴趣学 COM 的话可以研究研究，很好的一个机制，值得学习。标题: VBS技术内幕：CreateObject函数
作者: Demon
链接: http://demon.tw/reverse/vbscript-internal-createobject.html