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 vote186 views1 answer
Dynamic array vba
VBA
1 vote200 views1 answer
Sort using vba
VBA
0 vote176 views1 answer
Vba code to open a file with login rights
VBA
0 vote177 views1 answer
Vba copy paste value only
VBA
1 vote1.5K views1 answer
Vba Remove Case Sensitivity
VBA
0 vote193 views1 answer
Windows Forms dark title bar
VBA
0 vote147 views10 answers
Vba excel create event log
VBA
0 vote186 views1 answer
WGET FTP
VBA
0 vote187 views1 answer
How to carry text to the next line in a label in vb.net
VBA
2 votes199 views1 answer
Excel vba extract file name
VBA