VBScript: очистка экрана консоли (аналог CLS/Clear Screen)

Option Explicit

WScript.Echo "Первая строка"
WScript.Echo "Вторая строка"
WScript.Echo "Третья строка"
WScript.Sleep 3000

CLS

WScript.Echo "Четвёртая строка"
WScript.Echo "Пятая строка"
WScript.Echo "Шестая строка"
WScript.Sleep 3000

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub CLS()
    Const WshRunning  = 0
    Const WshFinished = 1
    Const WshFailed   = 2
    
    With WScript.CreateObject("WScript.Shell").Exec("mode.com con: lines=0")
        If .Status <> WshFailed Then
            If .Status = WshRunning Then
                Do Until .Status = WshFinished
                    .StdOut.ReadAll
                    .StdErr.ReadAll
                    
                    WScript.Sleep 100
                Loop
            End If
        End If
    End With
End Sub
'=============================================================================