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 vote397 views1 answer
Vb.net get name by Cell Click
VBA
0 vote338 views1 answer
Excel vba existence of a file
VBA
0 vote356 views1 answer
Convert unix to date vba
VBA
0 vote348 views2 answers
Excel vba prevent save
VBA
0 vote355 views1 answer
Vbscript check if string contains
VBA
0 vote360 views1 answer
Vbnet get file name from path
VBA
0 vote384 views2 answers
Excel vba number format file size
VBA
4 votes337 views1 answer
Excel formula for last non-empty cell in a column
VBA
1 vote309 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote366 views1 answer
Vbs expand env var
VBA