VBScript: Как поменять заголовок консольного окна?

так не пойдет ?

if not WScript.Arguments.Named.Exists("start") then
    CreateObject("WScript.Shell").Run("cmd /c ""title %date% %time% && cscript //nologo """ & WScript.ScriptFullName & """ /start:1""")
    WScript.Quit()
end if
WScript.StdOut.WriteLine now
WScript.Sleep 2000

Жаль...  Я хотел использовать заголовок окна для вывода информации о процентах обработанного материала, как-то не хотелось бы дергать всякий раз CMD /с title  ... для этого.

Ну так можно обойтись и однократным дёрганьем.

Set WshShell = CreateObject("WScript.Shell")
Set Cmd = WshShell.Exec("cmd")
While True
  Cmd.StdIn.WriteLine "title " & Now
  WScript.Sleep 1000
Wend

Да, вариант и стдоут совпадают

  Cmd.StdIn.WriteLine "mode con: cols=16 lines=1"

Rumata, почему? Вполне годится.

Тогда ещё «prompt»:

Option Explicit

Dim dtStart, dtNow

With WScript.CreateObject("WScript.Shell")
    With .Exec("cmd.exe")
        .StdIn.WriteLine "propmt $S$H"
        .StdIn.WriteLine "mode con: cols=12 lines=1"
        
        dtStart = Now()
        
        Do
            dtNow = Now()
            .StdIn.WriteLine "title " & Int((dtNow - dtStart) * 1000000) / 10 & " sec."
            
            WScript.Sleep 1000
        Loop
    End With
End With

WScript.Quit 0

Ну, да. Не слишком быстро и не слишком точно. И не всегда годится. Но я так понял — основная мысль была только насчёт индикатора.

Всем спасибо за примеры! 

Решил воспользоваться советом alexii

Только в качестве Host-приложения выбрал Excel, т.к. в дальнейшем все равно необходимо выводить значения в Workbook.
А там можно использовать статусную строку...

Причина в переполнении буферов потоков  .StdOut или .StdErr объекта WshScriptExec. В данном случае однозначно переполниятся  .StdErr, т.к попытка выполнить

propmt $S$H

вызывает закономерное сообщение об ошибке, ибо нет команды PROPMT, а есть PROMPT.

Также забивается и .StdOut по крайней мере приглашениями командной строки и эхом подаваемых на вход комманд, чтобы этого не происходило лучше вызвать CMD.EXE так:

cmd.exe /q /k echo off

.

Кроме того

mode con: cols=12 lines=1

тоже пишет в .StdOut:

так что его вывод надо перенаправить в NUL (или считывать).

Чего я не пойму, так это, что полезного делает этот скрипт и зачем в нём нужны PROMPT и MODE (то есть понятно, что MODE можно использовать для очистки окна, т.к. CLS при перенаправлении вывода CMD.EXE, даже в CON, лишь пишет в выходной поток один символ с кодом 0x0C, но очищать-то нечего).