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 vote210 views1 answer
Backspace key has stopped working visual studio
VBA
0 vote244 views1 answer
Iterate all file in a folder vba
VBA
0 vote221 views1 answer
Vbscript for loop
VBA
0 vote211 views1 answer
Excel vba disable screen update
VBA
4 votes226 views1 answer
Excel vba how to reset usedrange
VBA
25 votes510 views2 answers
Excel vba folder exist
VBA
0 vote225 views1 answer
Excel vba linter
VBA
4 votes243 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
5 votes237 views1 answer
Excel vba second byte from INTEGER
VBA
3 votes219 views1 answer
Excel vba read registry key value
VBA