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 vote190 views1 answer
Vb net show lines for all axis labels in chart
VBA
8 votes213 views1 answer
Excel vba determine number of elements in a 1D array
VBA
0 vote191 views1 answer
Excel vba extract year
VBA
0 vote213 views1 answer
Group controls programmatically vb
VBA
0 vote190 views1 answer
Vba file size
VBA
0 vote195 views1 answer
Vba format currency
VBA
0 vote194 views1 answer
Vbnet line chart showing extra space
VBA
0 vote204 views1 answer
Vba remove the first character of string
VBA
0 vote195 views1 answer
VBA Loop to range
VBA
0 vote201 views1 answer
For each item in folder outlook vba
VBA