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 vote229 views1 answer
Vba count all row
VBA
0 vote204 views1 answer
.net dark title bar
VBA
0 vote223 views1 answer
Set datetimepicker value to null vb
VBA
0 vote230 views1 answer
Sort dictionary by key vba
VBA
0 vote215 views1 answer
Excel vba DisplayAlerts
VBA
3 votes212 views1 answer
Vba folderexists
VBA
0 vote211 views1 answer
String contins in vba
VBA
0 vote222 views1 answer
Pivot data source not accepting table named range vba
VBA
0 vote234 views1 answer
Vba listbox remove all items
VBA
0 vote267 views1 answer
Vba vbcrlf chr
VBA