[技术讨论] vbs中的"Wscript"[属性与方法]

czjt1234

Wscript 对象提供对 Windows 脚本宿主对象模型根对象的访问


属性
Application           当前的应用对象 "Windows Script Host"
Arguments             运行vbs时的参数的集合
BuildVersion          wscript.exe 的内部版本号
FullName              wscript.exe 的完整路径和文件名
Interactive           用户交互模式。默认值为 True
Name                  wscript.exe 的昵称 "Windows Script Host"
Path                  wscript.exe 的完整路径
scriptfullname        当前运行的vbs的完整路径和文件名
ScriptName            当前运行的vbs的文件名
Version               wscript.exe 的版本


方法
ConnectObject         将对象的事件源连接到具有给定前缀的函数??
CreateObject          创建 COM 对象
DisconnectObject      断开已连接对象的事件源的连接??
Echo                  弹出消息框
GetObject             用指定的 ProgID 检索现有的对象或从文件中创建新对象??
Quit                  立即结束vbs
Sleep                 暂停vbs，单位：毫秒
Timeout               延时结束vbs，单位：秒


Wscript 对象的属性、方法，都可以在 Script5.6.chm 里找到参考

-----------------------------------------------------------------------------

Wscript 对象的属性和方法，创建了
WshArguments   对象
WshNamed       对象
WshUnnamed     对象

czjt1234

下面是 Wscript 对象的属性和方法的参数，及用法举例

代码测试环境：winxpsp3 IE8 Wscript版本5.7.0.18066

'-------------------------------------------------------------

Dim strRead, arrArguments, intNumber

strRead = wscript.scriptfullname     '当前运行的vbs的完整路径和文件名
strRead = Wscript.ScriptName         '当前运行的vbs的文件名

strRead = Wscript.FullName           'wscript.exe 的完整路径和文件名
strRead = Wscript.Path               'wscript.exe 的完整路径
strRead = Wscript.Name               'wscript.exe 的昵称 "Windows Script Host"
strRead = Wscript.Application        '当前的应用对象 "Windows Script Host"

strRead = Wscript.Version            'wscript.exe 的版本
strRead = Wscript.BuildVersion       'wscript.exe 的内部版本号

Wscript.Timeout = 5                  '5秒后结束vbs
Wscript.Sleep 3000                   '延时3000毫秒
Wscript.Echo strRead                 '弹出消息框。标题栏 "Windows Script Host"

strRead = Wscript.Interactive        '读取当前的用户交互模式。默认为 True
Wscript.Interactive = True|False     '设定为 False 时，禁用vbs的输入输出命令

'-------------------------------------------------------------

Wscript.Quit (intErrorCode)          '立即结束vbs。intErrorCode为可选返回值


下面是一个批处理调用intErrorCode返回值的例子
'----d:\test.vbs----
Wscript.Quit (99)

'----d:\test.bat----
@echo off
d:\test.vbs
echo %errorlevel%
pause

运行 d:\test.bat 可以看到返回值

'-------------------------------------------------------------

Wsh.Echo Wsh.FullName       'Wscript 可以简写为 Wsh

需要注意的就是如果用 Wsh 做变量，必须先 Dim Wsh 定义变量名

'-------------------------------------------------------------

Demon

Err是VBS内置的，而不是wscript内置的。

czjt1234

WScript 对象的 Arguments 属性创建 WshArguments 对象

WshArguments 对象提供对整个命令行参数集的访问


属性
Item        缺省属性。显示指定的项目
Count       参数的个数
Named       已命名的参数。比如 test.vbs /c:"aaa" 。返回 WshNamed 对象
Unnamed     未命名的参数。比如 test.vbs "aaa" 。返回 WshUnnamed 对象


方法
ShowUsage   在.wsf脚本文件里用以显示使用说明。在.vbs脚本文件里没实际用处

'-------------------------------------------------------------

WshArguments 对象的 Named 属性返回 WshNamed 对象

WshNamed 对象提供对已命名的参数的访问


属性
Item        显示指定的项目
Count       参数的个数


方法
Exists      查询某个命名参数是否存在。返回True|False

'-------------------------------------------------------------

WshArguments 对象的 Unnamed 属性返回 WshUnnamed 对象

WshUnnamed 对象提供对未命名的参数的访问


属性
Item        显示指定的项目
Count       参数的个数


方法
(无)

'-------------------------------------------------------------

下面是 WshArguments WshNamed WshNamed 对象的属性和方法的参数，及用法举例

代码测试环境：winxpsp3 IE8 Wscript版本5.7.0.18066

'-------------------------------------------------------------

新建 d:\test.vbs，代码如下:
Dim objArguments, objArgsNamed, objArgsUnnamed, intNumber

Set objArguments = WScript.Arguments
Set objArgsNamed = objArguments.Named
Set objArgsUnnamed = objArguments.Unnamed

MsgBox "共有参数 "   & objArguments.count   & "个" & vbCrLf & vbCrLf & _
       "命名参数 "   & objArgsNamed.count   & "个" & vbCrLf & vbCrLf & _
       "未命名参数 " & objArgsUnnamed.count & "个"

If objArgsNamed.Exists("C") Then
    MsgBox "命名为 C 的参数: " & objArgsNamed.Item("C")
End If

objArguments.ShowUsage    '弹出一个信息框。没啥用。在.wsf脚本文件里有用

MsgBox "枚举全部参数:"
For intNumber = 0 To objArguments.count - 1
  MsgBox objArguments.Item(intNumber)
Next

MsgBox "枚举未命名参数:"
For intNumber = 0 To objArgsUnnamed.count - 1
  MsgBox objArgsUnnamed.Item(intNumber)
Next

运行命令行
d:\test.vbs /c:CCC /d:"d f" "a s" 1 q
对照运行结果，可以看出vbs命令行参数的含义

'-------------------------------------------------------------