1.vbs代码:
WScript.Sleep 1000
WScript.Echo "test"
WScript.Quit 5|
2.vbs代码:
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("wscript.exe 1.vbs")
Do While oExec.Status = 0
     WScript.Sleep 100
Loop
WScript.Echo oExec.ExitCode
如此就可以捕获1.vbs的退出码为5,2.vbs中的sleep语句是等待1.vbs执行的,去掉2中的sleep语句会显示为0而不是5了。
顺便说一下,Exec函数具有很多Run函数不具有的功能,Exec函数返回的是一个对象,故而具有更多功能(见下面),恰恰Run函数返回的仅仅是个数字,代表运行结果即返回值,所以2.vbs的代码当然也可以写成如下:
Dim WshShell, oExec                          
Set WshShell = CreateObject("WScript.Shell")  
WScript.Echo WshShell.Run("wscript.exe ""C:\Documents and Settings\patrol\桌面\1.vbs""",,True)
注意这里1.vbs要使用绝对地址了,因为Wscript.exe默认其所在的目录为当前目录;另外一定要使用True。
附记:WshExec类具有属性ExitCode,ProcessID,Status,StdErr,StdIn,StdOut以及一个函数Terminate,这些属性和函数都很好理解。
Status属性具有三个值:
Const WshFailed = 2
Const WshFinished = 1
Const WshRunning = 0
关于Run的用法可以参见http://hi.baidu.com/patrolsun/blog/item/1695eb1fc851f608304e15ca.html