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 vote291 views1 answer
Excel vba select multiple shapes
VBA
3 votes293 views2 answers
Vba active workbook path
VBA
0 vote268 views1 answer
Vba pass named range to function
VBA
8 votes331 views1 answer
Excel vba make integer
VBA
0 vote278 views1 answer
Vbnet get file name from path
VBA
2 votes274 views1 answer
Vba array contains
VBA
0 vote272 views1 answer
Vba declare 64-bit ptrsafe
VBA
0 vote276 views1 answer
Excel vba scroll to cell
VBA
0 vote265 views1 answer
Dynamically change drop down list visual basic
VBA
0 vote278 views1 answer
Vba type variable
VBA