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 vote152 views1 answer
Vba date to unix timestamp
VBA
0 vote147 views2 answers
Excel vba close without saving
VBA
0 vote156 views1 answer
Vba find sub dictionary
VBA
5 votes171 views2 answers
Excel vba write to the windows registry
VBA
-1 vote175 views1 answer
Code for reading letters only in vb 6
VBA
0 vote165 views1 answer
Regex numeric digits
VBA
0 vote153 views1 answer
Vba character ascii code
VBA
3 votes162 views1 answer
Vba post request json
VBA
5 votes170 views1 answer
Excel-vba get integer high byte
VBA
1 vote146 views1 answer
What does vbs stand for
VBA