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
时间: 2024-10-07 12:01:59