Set oShell = CreateObject("WScript.Shell")
If Not LCase(Right(WScript.FullName, 12)) = "\cscript.exe" Then For Each Arg In WScript.Arguments If InStr(Arg, " ") Then Arg = """" & Arg & """" Str = Str & " " & Arg Next cmd = "cscript //nologo """ & WScript.ScriptFullName & """ " & Str oShell.Run cmd, 0, false WScript.Quit
End If