Question

各位大牛，小弟最近刚刚学习vbs脚本。遇到小面的vbs脚本代码不知道是啥意思，望大牛详细解答。谢谢

Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"

Answer 1

一、 以下是代码的详细注释：

Dim d '定义变量d
Set d = CreateObject("Scripting.Dictionary") '创建 Scripting.Dictionary 对象实例
d.Add "a", "Athens"  '调用 Scripting.Dictionary 对象的方法，添加一些关键字和项目

、

二、以下是相关的知识：

1. Scripting.Dictionary 对象

这个对象的用途是：用于存储数据键和项目对。

说明：

Dictionary 对象等价于 PERL 联合数组。项目可以是数据的任何形式，并存储在数组中。每个项目都与一个具有唯一性的键相联。该键用于取得单个项目，并且通常是整数或字符串，但也可以是除数组以外的任何类型。

2. Add 方法

用途：向 Dictionary 对象中添加一个关键字项目对。

语法：object.Add (key, item)

参数：

object   必选项。总是一个 Dictionary 对象的名称。

key       必选项。与被添加的 item 相关联的 key。

item     必选项。与被添加的 key 相关联的 item。

说明： 如果 key 已经存在，那么将导致一个错误。

追问

大牛呀，我还想问一下这个函数createobject 的用法是CreateObject(
servername.typename）但是我不明白servername是不是指应用程序名称，typename这个指类型名称。像这个Scripting.Dictionary 系统中能找见吗。这个具体代表啥意思呢大牛。能不能给举个简单的例子大牛。这个函数我不是很了解。谢谢大牛了

追答

CreateObject函数的功能是创建并返回一个对 ActiveX 对象的引用。

每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序可能会提供 Application 对象，Document 对象，以及 Toolbar 对象。

severname.typename

举个例子说：

常用的vbs脚本功能是完成office办公自动化处理。比如：你可以调用 excel，并通过vbs脚本来自动完成诸如自动往表格里填写数据、排序、打印等等功能。一个示例的代码如下：

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\New_users.xls")

上面的代码，先建立一个excel应用，再打开C盘上的一个excel文件。

至于，你的电脑上都有什么 ActiveX 对象，以及这些对象的名称（severname.typename），这个你可以利用专门的软件来查看，比如：oleview等。

Answer 2

创建一个字典对象