VBS基础篇 - wscript 对象详解

一、wscript对象

在VBScript的世界里，WScript对象可以说是“根”一样的存在——它是Windows脚本宿主对象模型层次结构的根对象。换句话说，任何脚本文件里都能直接用，完全不需要额外声明。它到底能干些什么呢？

WScript对象主要提供对命令行参数、脚本文件名、宿主文件名以及宿主版本信息的访问。同时，它还能用来创建对象、连接或断开与对象的连接、同步事件、以编程方式停止脚本执行，甚至把信息输出到默认设备（比如Windows对话框或者命令控制台）。此外，脚本运行模式（交互模式或批处理模式）也是由它来设定的。

就像前面提到的，任何对象都靠“属性”和“方法”这两个工具来提供功能，WScript也不例外。

二、属性

1、Arguments 属性

描述： 返回 Arguments 对象（这个对象后续会专门讲，现在先了解就行）。

语法： object.Arguments

参数： object —— WScript 对象

例子： 显示本vbs文件运行的参数

Set Arg = WScript.Arguments
For i = 0 To Arg.Count - 1
  MsgBox Arg(i)
Next

把上面这段代码保存为vbs文件，然后随意拖一个或多个文件到它上面，你就会看到它逐个显示你拖放的文件名。这里只是用实例引入Arguments对象，具体用法后面再说。

2、FullName 属性

描述： 返回主机可执行文件（CScript.exe 或 WScript.exe）的完整路径。

语法： object.FullName

参数： object —— WScript 对象

例子： 显示本机wscript的路径

MsgBox wscript.fullname

默认情况下会显示类似 "C:WINDOWSsystem32wscript.exe"。

3、Interactive 属性

描述： 设置或确定脚本模式。

语法： object.Interactive

参数： object —— WScript 对象

说明： Interactive 属性返回一个布尔值。脚本有批处理和交互两种模式。交互模式（默认）下，脚本可以提供交互功能，比如弹对话框等待用户反馈；批处理模式下，所有输入输出都被禁用。另外，还可以用命令行开关 /I（交互式）和 /B（批处理）来设置模式。

例子： 显示本机的脚本模式

MsgBox WScript.Interactive

4、Name 属性

描述： 返回 WScript 对象（主机可执行文件）的名称。

语法： object.Name

参数： object —— WScript 对象

例子：

MsgBox WScript.name

5、Path 属性

描述： 返回包含主机可执行文件（CScript.exe 或 WScript.exe）的路径名称。

语法： object.Path

参数： object —— WScript 对象

例子：

MsgBox WScript.Path

如果你的wscript.exe在 "C:WINDOWSsystem32wscript.exe"，那么本属性会显示 "C:WINDOWSsystem32"。

6、ScriptFullName 属性

描述： 返回当前运行脚本的完整路径。

语法： object.ScriptFullName

参数： object —— WScript 对象

例子： 显示本vbs的完整路径

MsgBox WScript.ScriptFullName

神奇吧？这个vbs竟然知道自己在哪里。

7、ScriptName 属性

描述： 返回当前运行脚本的文件名。

语法： object.ScriptName

参数： object —— WScript 对象

说明： 刚才用ScriptFullName可以获取完整路径，但如果你只想要文件名呢？看下面。

例子： 显示本VBS文件的名字

MsgBox WScript.ScriptName

看到了吗？就是这么简单。

8、Version 属性

描述： 返回 Windows 脚本宿主的版本。

语法： object.Version

参数： object —— WScript 对象

例子： 显示本机脚本宿主版本

MsgBox WScript.version

三、方法

1、CreateObject方法

描述： 创建一个对象。

语法： CreateObject(appname.objecttype [,servername])

解释：

• appname —— 必需的，Variant（字符串）。提供该对象的应用程序名。
• objecttype —— 必需的；Variant（字符串）。待创建对象的类型或类。
• servername —— 可选的；Variant (String)。要在其上创建对象的网络服务器名称。

说明： 要创建 ActiveX 对象，只需将 CreateObject 返回的对象赋给一个对象变量。例如：Set ExcelSheet = CreateObject("Excel.Sheet")。每个支持自动化的应用程序都至少提供一种对象类型。比如，一个字处理应用程序可能会提供 Application 对象、Document 对象以及 Toolbar 对象。

下面是一个完整的示例，它将启动 Excel 并做一系列操作：

Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
ExcelSheet.Cells(1, 1).Value = "This is column A, row 1"
ExcelSheet.Sa veAs "C:TEST.xls"
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing

这段代码会启动 Excel 创建电子表格，在第一个单元格写入文本，保存到 C 盘，然后退出并释放对象。

2、GetObject方法

描述： 从文件中检索一个 Automation 对象，或检索 strProgID 参数所指定的对象。

语法： object.GetObject(strPathname [,strProgID], [strPrefix])

参数：

• object —— 必选项。WScript 对象。
• strPathname —— 必选项。包含要获取的对象的完整路径和名称。
• strProgID —— 可选项。表示对象的程序标识符(ProgID)的字符串。
• strPrefix —— 可选项。如果指定了参数 strPrefix，Windows 脚本宿主将在创建对象之后把对象的输出接口与脚本文件连接起来。在对象中触发事件时，Windows 脚本宿主会调用一个子例程，其名称包括 strPrefix 和事件的名称。例如，如果 strPrefix 为 "MYOBJ_"，对象产生的事件为 "OnBegin"，那么 Windows 脚本宿主将调用脚本中的 "MYOBJ_OnBegin" 子例程。

说明： 如果当前已有对象的实例，或者希望使用已经被装载的文件创建对象，那就用 GetObject。如果当前不存在实例，而且不希望从已经装载的文件启动对象，那就用 CreateObject。注意：如果一个对象将自己注册为单实例对象（比如 Microsoft Word 7.0 中的 Word.Basic 对象），那么无论执行多少次 CreateObject 都只能创建一个实例。此外，对于单实例对象，如果用零长度的字符串语法 ("") 调用 GetObject，总是返回同一个实例；省略路径参数会导致错误。GetObject 适用于所有 COM 类，不限语言。

示例： 执行下面代码时，与指定路径相关联的应用程序会被启动，文件中的对象被激活。如果 strPathname 是零长度字符串，GetObject 会返回指定类型的新对象实例；如果完全省略路径参数，则返回当前活动对象；如果不存在指定类型的对象，就会报错。

Dim MyObject As Object
Set MyObject = GetObject("C:CADSCHEMA.CAD")
MyApp = MyObject.Application

有些应用程序允许激活文件的一部分。如果要这样做，需要在文件名后加惊叹号 (!)，然后跟一个字符串标识要激活的部分。比如，激活绘图文件中的某一层：

Set LayerObject = GetObject("C:CADSCHEMA.CAD!Layer3")

如果不指定对象的类，COM 会根据文件名确定启动哪个应用程序和激活哪个对象。但有些文件可能支持多个对象类，比如一幅图纸可能同时包含应用程序对象、绘图对象和工具栏对象。下面例子中，FIGMENT 是绘图应用程序名，DRAWING 是它支持的一种对象类型：

Dim MyObject As Object
Set MyObject = GetObject("C:DRAWINGSSAMPLE.DRW", "FIGMENT.DRAWING")

3、Quit 方法

描述： 退出执行，返回指定的错误代码。

语法： object.Quit [intErrorCode]

解释： object 必选项（WScript 对象）。intErrorCode 可选项，若包含此参数，WScript 会把它作为进程终止码返回；省略则返回 0。

例子： 退出并返回错误代码 1：

WScript.Quit

4、Sleep 方法

描述： 使脚本进程在指定的毫秒数内处于非活动状态，然后继续执行。

语法： object.Sleep(intTime)

参数： object（必选，WScript 对象）。intTime 是非活动状态的持续时间（毫秒）。

说明： 睡眠期间，脚本会继续处理所发生的事件。如果脚本引擎超时或被中断，睡眠会立即结束。

例子： 延迟3秒后启动记事本：

wscript.sleep(3000)
Set apprun = CreateObject("wscript.shell")
apprun.run "%windir%notepad.exe"

5、Timeout 方法

描述： 设置脚本的生存时间。

语法： wscript.timeout

例子：

wscript.timeout = 10
MsgBox "hello"

6、Echo 方法

描述： 将输出发送到对话框或控制台。

语法： object.Echo [Arg1] [,Arg2] [,Arg3] ...

参数： object（必选，WScript 对象）。Arg1, Arg2, Arg3 ... 是显示的项列表。

说明： 如果宿主是 WScript.exe，输出显示在对话框中；如果是 CScript.exe，结果显示在控制台。每一项之间会用空格隔开，CScript.exe 下输出末尾会加换行符。如果不提供任何项，则显示空行。

例子： 显示文件内容：

Set fso = CreateObject("scripting.filesystemobject")
Set f = fso.OpenTextFile("c:test.txt")
wscript.echo f.ReadAll

这会把文件内容全部显示出来。这么看，它的功能和 MsgBox 差不多，但 MsgBox 更强大一些。

7、ConnectObject 方法

描述： 将一个对象事件源连接到具有给定前缀的函数。

语法： object.ConnectObject strObject, strPrefix

参数： object（必选，WScript 对象）。strObject 是要连接的对象名称，strPrefix 是事件函数的前缀。

说明： 对象必须能够枚举自身类的事件集合。

例子： 实例化一个假想对象，连接后调用其方法。如果对象中发生了名为 "Event" 的事件，会调用 MyEvent_Event 子例程。

Set MyObject = WScript.CreateObject("SomeObject")
MyObject.SomeMethod
WScript.ConnectObject MyObject, "MyEvent"
Sub MyEvent_Event(strName)
  WScript.Echo strName
End Sub
WScript.DisconnectObject MyObject

8、DisconnectObject 方法

描述： 将原先与 Windows 脚本宿主连接的对象断开。

语法： object.DisconnectObject obj

参数： object（必选，WScript 对象）。obj 是要断开连接的对象的名称。

说明： 如果指定的对象尚未连接，此方法无任何作用。

例子： 创建对象、连接、调用方法，然后断开：

Set MyObject = WScript.CreateObject("SomeObject", "MyEvent")
MyObject.SomeMethod
Sub MyEvent_Event(strName)
  WScript.Echo strName
End Sub
WScript.DisconnectObject MyObject

这篇文章就介绍到这里，希望能帮你更好地理解 WScript 对象的属性与方法。需要的话，可以动手试试这些例子，感受一下 VBS 脚本的灵活之处。