Demon

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"
复制代码