Поскольку я до сих пор не знаю вашей цели, вот пример, чтобы показать вам, как передать команду и очистить экран консоли:
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
'****************************************************************************************************