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

8 votes385 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote317 views1 answer
Vbnet check if sting contians symbols
VBA
1 vote303 views1 answer
Textbox find and replace vb
VBA
0 vote320 views1 answer
Xlbycolumns is not declared
VBA
0 vote338 views2 answers
Checking and changing system volume vb.net
VBA
0 vote287 views1 answer
How to make a if statement with vbs
VBA
0 vote343 views1 answer
Tester si une case est vide vba
VBA
0 vote335 views1 answer
Nested if else in vb.net
VBA
0 vote363 views1 answer
Vba foreach 2d array
VBA
1 vote307 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA