- Dim WshShell
- Set WshShell = CreateObject("wscript.Shell")
-
- If LCase(Right(WScript.FullName, 11)) = "wscript.exe" Then
- WshShell.Run "cscript.exe " & Chr(34) & WScript.ScriptFullName & Chr(34)
- WScript.Quit
- End If
-
- WScript.Echo "process one"
- WScript.Sleep 3000
- WScript.Echo "process two"
复制代码
|