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