vbs run with cscript
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