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

Similar codes

0 vote153 views1 answer
Thread sleep vb
VBA
2 votes95 views2 answers
Vba exit loop
VBA
0 vote139 views1 answer
Vba static variable
VBA
1 vote154 views1 answer
Vba optional
VBA
0 vote135 views1 answer
Excel vba current folder
VBA
1 vote160 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
3 votes136 views1 answer
Vba folderexists
VBA
0 vote133 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
15 votes261 views2 answers
Xl vba dynamic string array
VBA
0 vote135 views1 answer
Vlookup columns not next to each other
VBA