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 vote175 views2 answers
Excel vba close without saving
VBA
0 vote179 views1 answer
Send text to clipboard vb.net
VBA
1 vote173 views1 answer
Excel vba last column in range
VBA
1 vote172 views1 answer
Excel vba compare 2 rows
VBA
1 vote202 views1 answer
Excel vba first row in range
VBA
0 vote190 views1 answer
Thread sleep vb
VBA
0 vote192 views1 answer
Add text to Shape VBA
VBA
0 vote171 views1 answer
Hello world vb.net
VBA
0 vote191 views1 answer
Vba count all row
VBA
0 vote180 views1 answer
Vba declare 64-bit ptrsafe
VBA