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

1 vote170 views1 answer
Excel vba last row of range
VBA
0 vote150 views1 answer
Excel vba concatenate range
VBA
0 vote175 views1 answer
Excel vba DisplayAlerts
VBA
-1 vote150 views2 answers
How close excel through visual basic
VBA
0 vote168 views1 answer
Putting marquee in vb.net
VBA
13 votes301 views2 answers
Vba write text file
VBA
2 votes162 views1 answer
Excel vba check if string entirely numeric
VBA
1 vote168 views1 answer
Vbs run
VBA
0 vote158 views1 answer
Remove last 8 characters from string vb
VBA
0 vote151 views1 answer
Vba check 32 or 64 bit
VBA