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 vote257 views1 answer
Build an index all files of a FTP site
VBA
0 vote243 views1 answer
Vbnet find highest value in chart
VBA
3 votes224 views1 answer
Excel vba last row in range
VBA
0 vote266 views1 answer
Excel vba add reference programmatically
VBA
0 vote269 views1 answer
If statement vdhl
VBA
0 vote299 views2 answers
Excel vba store array and write to sheet
VBA
0 vote241 views1 answer
Vba border weight
VBA
0 vote245 views1 answer
Vba min
VBA
0 vote240 views1 answer
Vba sheet visible
VBA
0 vote227 views1 answer
Dynamically change drop down list visual basic
VBA