почему этот скрипт работает только 100-114 сек?

Причина в переполнении буферов потоков  .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, но очищать-то нечего).

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

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

Интересные решения. Однако здесь отсутствует полезный код.

В общем-то, Rumata прав, в противном случае можно считать "полезным" и такой код:

var code = [
'@echo off',
':begin',
'1>nul ping -n 2 127.0.0.1 & goto:timer',
':timer',
'title %time:~0,8% & goto:begin'
].join('\n');

with (new ActiveXObject('Scripting.FileSystemObject')) {
  var bat = CreateTextFile('temp.bat', true);
  bat.WriteLine(code);
  bat.Close();
}

with (new ActiveXObject('WScript.Shell')) {
  Run('temp.bat');
}

Но на самом деле это обычная "лулза" забавы ради.

У меня в консоли на первом месте выводится имя пользователя.

Тогда ещё «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

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

mode con: cols=16 lines=1

Значение cols видимо надо подбирать экспериментально. У меня в консоли на первом месте выводится имя пользователя.

alexii

Я имел ввиду, что "крутилка" текста в заголовке консоли плохо встраивается в консольное приложение простым совмещением добавлением. Не?

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

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

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

Интересный ход. Не смог удержаться ради еще одной вариации, которая выводит не текущее время, а время работы скрипта в секундах:

Set WshShell = CreateObject("WScript.Shell")
Set Cmd = WshShell.Exec("cmd")
dTm1 = Now()
While True
  dTm2 = Now()
  Cmd.StdIn.WriteLine "title " & Int((dTm2 - dTm1)*1000000)/10 & " sec." 
  WScript.Sleep 1000
Wend

не хотелось бы дергать всякий раз CMD ...

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

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

yuriy2000, напрямую — никак.

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