dim obj_shell
set obj_shell = createobject("wscript.shell")
host = WScript.FullName
If LCase( right(host, len(host)-InStrRev(host,"\")) ) = "wscript.exe" Then
obj_shell.run "cscript """ & WScript.ScriptFullName & chr(34), 0
WScript.Quit
End If
原文：http://www.cnblogs.com/resie/p/4432759.html