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 vote185 views1 answer
Vba check if class implements interface
VBA
0 vote167 views1 answer
Make all controls in an area not visable vb
VBA
0 vote179 views1 answer
Excel VBA web scraping
VBA
0 vote183 views1 answer
Vba static variable
VBA
0 vote162 views1 answer
Vba argument is set
VBA
1 vote187 views1 answer
What does vbs stand for
VBA
3 votes186 views1 answer
Vba not equal
VBA
2 votes183 views1 answer
Excel vba check if string entirely numeric
VBA
0 vote194 views1 answer
Vba userform textbox wrap text
VBA
0 vote197 views1 answer
Vba listbox remove all items
VBA