VBScript очистить консоль

Question

Мне интересно, как очистить экран в VBScript. До сих пор я пытался использовать WshShell.Run для запуска cmd /c cls команды. Но он работает в другом окне. Опять же, я также использовал Wscript.StdOut.WriteBlankLines 51 для реализации этого, но мы можем легко прокрутить до верхней части окна, и консоль не очищается. Как очистить консоль в VBScript?

Answer 1

Поскольку я до сих пор не знаю вашей цели, вот пример, чтобы показать вам, как передать команду и очистить экран консоли:

Option Explicit
Execute "Ping 127.0.0.1 & Timeout /T 2 /Nobreak>nul & cls & Tracert www.google.com & cls & Timeout /T 10 /Nobreak>nul"
'****************************************************************************************************
Function Execute(StrCmd)
        Dim ws,MyCmd,Result
        Set ws = CreateObject("wscript.Shell")
        MyCmd = "CMD /C " & StrCmd & " "
        Result = ws.run(MyCmd,1,True)
        Execute = Result
End Function
'****************************************************************************************************