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 vote356 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote417 views1 answer
Visual basic run command
VBA
0 vote376 views1 answer
Vba min
VBA
0 vote345 views1 answer
Vba full date format
VBA
5 votes403 views1 answer
Xlvba double quotes in string literal
VBA
6 votes386 views1 answer
Excel vba check if a string only contains letters
VBA
0 vote324 views1 answer
Vb.net round to 2 decimal places
VBA
0 vote336 views1 answer
Vba format currency
VBA
1 vote378 views1 answer
Export datagridview to excel vb.net
VBA
0 vote330 views1 answer
How to make a if statement with vbs
VBA