VBScript WScript对象

WScript 对象提供对 Windows 脚本宿主对象模型根对象的访问。
WScript 对象是 Windows 脚本宿主对象模型层次结构的根对象。它可在任何脚本文件中使用,不需要特定的声明或实例化
WScript 对象提供对以下信息的访问命令行参数, 脚本文件的名称,宿主文件名, 宿主版本信息。
WScript 对象可用来创建对象,连接对象, 与对象断开连接, 同步事件, 以编程方式停止脚本的执行,将信息输出到默认输出设备(Windows 对话框或命令控制台)。

WScript 对象也可用来设置脚本运行的模式(交互模式或批处理模式)。 就像刚才我们说的一样,对象通过两种其自有的特性想我们提供工具,这两种特性分别是“属性”和“方法”。

msgBox WScript.ScriptFullName

WSCRIPT对象不需要创建,可以直接使用


WScript对象属性

WScript 对象提供对以下信息的访问:

属性 返回值类型 说明
Application Object 返回 IHost_Class 对象(Wscript 对象)。
Arguments IArguments_Class 返回 WshArguments 对象(参数集)。
BuildVersion Long 返回 Windows 脚本宿主的内部版本。
FullName String 返回宿主可执行文件(CScript.exe 或 WScript.exe)的全路径。
Interactive Boolean 设置或确定脚本模式。
Name String WScript 对象(宿主可执行文件)的名称。
Path String 返回包含宿主可执行文件(CScript.exe 或 WScript.exe)的路径名称。
ScriptFullName String 返回当前运行脚本的完整路径。
ScriptName String 返回当前运行脚本的文件名。
StdErr TextStream 显示当前脚本的错误输出流。
StdIn TextStream 显示当前脚本的输入流。
StdOut TextStream 显示当前脚本的输出流。
Timeout Long 超时设定秒:允许脚本运行的最长时间。
Version String 返回 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文件,然后将一个或者数个任意的文件拖放到这个vbs文件上面上,那么他会逐个显示你拖放的文件。(这仅仅给出了一个实例,用到了Arguments对象,其的具体用法我们以后再了解)

2、FullName 属性
描述:返回主机可执行文件(CScript.exe 或 WScript.exe)的完全限定路径。
语法:object.FullName
参数:object ,WScript 对象

例子:显示本机wscript的路径

MsgBox wscript.fullname
在默认的情况下会显示"C:\WINDOWS\system32\wscript.exe"

3、Interactive 属性

描述:设置或确定脚本模式。
语法:object.Interactive
参数:object ,WScript 对象
说明:Interactive 属性返回一个布尔值。

有批处理和交互两种模式。在交互模式(默认模式)下,该脚本为用户提供交互功能。启用对 Windows 脚本宿主的输入和输出。该脚本可以将信息显示在对话框中并等待用户提供反馈。在批处理模式下,不支持这种类型的用户交互,所有对 WSH 的输入和输出被禁用。还可以使用 Windows 脚本宿主命令行开关 / / 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: \ WINDOWS \ system32 \ wscript.exe“那么本属性会显示”C: \ WINDOWS \ system32“

6、ScriptFullName 属性

描述:返回当前运行脚本的完整路径。
语法:object.ScriptFullName
参数:object ,WScript 对象
例子:显示本vbs的完整路径

MsgBox WScript.ScriptFullName

神奇吧,这个vbs竟然知道他自己的名字。

7、ScriptName 属性

描述:返回当前运行脚本的文件名。
语法:object.ScriptName
参数:object ,WScript 对象
说明:刚才我们知道了用ScriptFullName可以获取vbs文件自身的完整路径,加入你只想要这个文件的名字改怎么办?看例子。
例子:显示本VBS文件的名字

MsgBox WScript.ScriptName

8、Version 属性

描述:返回 Windows 脚本宿主的版本。
语法:object.Version
参数:object ,WScript 对象
例子:显示本机脚本宿主版本

MsgBox WScript.version

WSCript属性代码示例

如我们建一个WScript.vbs存到电脑桌面:

BuildVersion = "WScript.BuildVersion:"+CStr(WScript.BuildVersion)+chr(10)
FullName = "WScript.FullName:"+WScript.FullName+chr(10) 
Interactive = "WScript.Interactive:"+CStr(WScript.Interactive)+chr(10)
Name = "WScript.Name:"+CStr(WScript.Name)+chr(10)   
Path = "WScript.Path:"+WScript.Path+chr(10)  

ScriptFullName = "WScript.ScriptFullName:"+WScript.ScriptFullName+chr(10)
ScriptName = "WScript.ScriptName:"+WScript.ScriptName+chr(10)
Version = "WScript.Version:"+WScript.Version+chr(10)
Timeout = "WScript.Timeout:"+CStr(WScript.Timeout)+chr(10)

Arguments=""
For I = 0 to WScript.Arguments.Count - 1
Arguments = Arguments + "Arguments"+CStr(I)+":"+WScript.Arguments(I)+chr(10)
Next


MsgBox BuildVersion+FullName+Interactive+Name+ScriptFullName+ScriptName+Version+Timeout+Arguments

wscript属性

WScript方法

1、CreateObject方法
描述:创建一个对象
语法:CreateObject(appname.objecttype,[servername])
解释:

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

说明:要创建 ActiveX 对象,只需将 CreateObject 返回的对象赋给一个对象变量:

Set ExcelSheet = CreateObject("Excel.Application")

每个支持自动化的应用程序都至少提供一种对象类型。
例如,一个字处理应用程序可能会提供 Application 对象,Document 对象,以及 Toolbar 对象。
要创建 ActiveX 对象,只需将 CreateObject 返回的对象赋给一个对象变量:

    Set ExcelSheet = WsCRipt.CreateObject("Excel.Application")
    ExcelSheet.Application.Visible = True    '设置 Application 对象使 Excel 可见
    ExcelSheet.workBooks.add
    ExcelSheet.Cells(1,1).Value  = "This is column A, row 1"   '在表格的第一个单元中写些文本
    ExcelSheet.activeWorkBook.Saveas ("C:\TEST.xls")   '将该表格保存到 C:\test.xls 目录
    ExcelSheet.Application.Quit   '使用应用程序对象的 Quit 方法关闭 Excel。
    Set ExcelSheet = Nothing  '释放该对象变量

上述代码将启动该应用程序创建该对象,在本例中就是创建一个 Microsoft Excel 电子数据表。
对象创建后,就可以在代码中使用自定义的对象变量来引用该对象。在下面的示例中,可以使用对象变量 ExcelSheet 来访问新建对象的属性和方法,以及访问 Microsoft Excel 的其它对象,包括应用程序对象和单元格集合。

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 不能获得对 Visual Basic 4.0 以及以前版本创建的 Microsoft Visual Basic(R)类的引用。

GetObject 适用于所有的 COM 类,不受创建对象所用语言的限制。

示例:在执行下列代码时,与指定的 strPathname 相关联的应用程序被启动,指定文件中的对象被激活。 如果 strPathname 是一个零长度的字符串 (“”), GetObject 将返回指定类型的新对象实例。如果 strPathname 参数完全被省略,GetObject 将返回指定类型的当前活动对象。如果不存在指定类型的对象,将发生错误。

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

某些应用程序允许激活一个文件的某些部分。如果要这样做,需要在文件名后添加一个惊叹号 (!),然后跟一个字符串,标识出文件中希望被激活的部分。关于如何创建该字符串的信息,请参阅创建对象的应用程序的有关文档。

例如,在一个绘图应用程序中,文件中存储的一幅图可能包含多层。可以使用下面的代码激活绘图文件中称为 schema.cad 的一层:

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

如果不指定对象的类,COM 将根据所提供的文件名来确定要启动的应用程序和要激活的对象。但是,某些文件可能支持多个对象类。例如,一幅图纸可能支持三种不同类型的对象:一个应用程序对象,一个绘图对象,以及一个工具栏对象,它们都是同一个文件的组成部分。

在下例中,FIGMENT 是一个绘图应用程序的名称,DRAWING 是它支持的对象类型之一。

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

3、Quit 方法

描述:退出执行,返回指定的错误代码。
语法:object.Quit [intErrorCode]
解释:object 必选项。 WScript 对象。
intErrorCode可选项。如果包含此参数,WScript 将把它作为进程终止码返回。如果省略了 intErrorCode,WScript 将返回零 (0) 作为进程终止码。

例子:
下例退出执行并返回错误代码 1:

WScript.Quit

4、Sleep 方法

描述:使脚本进程在指定的毫秒数内处于非活动状态,然后继续执行。
语法:object.Sleep(intTime)
参数:object必选项。WScript 对象。
intTime脚本进程在非活动状态的时间长度,以毫秒为单位。
说明:在睡眠状态下,脚本将继续执行所处理的事件。如果脚本引擎超时或被中断,睡眠将立即结束。
例子:

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

此例子将会延迟3秒启动记事本。

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一样,不过不如他强大。

7、ConnectObject 方法

描述:将一个对象事件源连接到具有给定前缀的函数。
语法:object.ConnectObject strObject, strPrefix
参数:object必选项。WScript 对象。
strObject要连接的对象的名称。
strPrefix事件函数的前缀。
说明:
对象必须能够枚举自己类的事件集合。

例子:下例实例化了一个假想的对象,并将其连接到脚本文件。然后脚本调用该对象的 “SomeMethod” 方法。如果对象中发生了名为 “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要断开连接的对象的名称。
说明:
如果所指定的对象尚未被连接到 Windows 脚本宿主,则此方法不起任何作用。
例子:
下例创建了一个假想的对象并将其连接到脚本文件。然后脚本调用对象的 “SomeMethod” 方法。如果对象中发生名为 “Event” 的错误,MyEvent_Event 子例程将被调用。

    Set MyObject = WScript.CreateObject("SomeObject", "MyEvent")
    MyObject.SomeMethod
    Sub MyEvent_Event(strName)
      WScript.Echo strName
    End Sub
    WScript.DisconnectObject MyObject
取消
感谢您的支持,我会继续努力的!
扫码支持
扫码打赏,你说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

Powered by bytekits.com,汇天下文字,成非凡梦想!!!