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 vote206 views1 answer
Vba get relative cell address
VBA
0 vote206 views1 answer
Excel text to columns line break
VBA
0 vote207 views1 answer
Excel vba StartUpPosition
VBA
0 vote197 views1 answer
Excel protect cells with formulas
VBA
0 vote230 views1 answer
Sendkeys vba selenium
VBA
0 vote214 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote211 views1 answer
Excel named range sum
VBA
0 vote238 views1 answer
Vba code for cutoff time
VBA
25 votes495 views2 answers
Excel vba folder exist
VBA
0 vote205 views1 answer
Not allow form to be resized
VBA