VBScript - Capturando saída do stdout

Sei que isso foi respondido em outra pergunta, mas simplesmente não entendo como isso é feito.

Estou tentando obter a saída de um programa de linha de comando (Aria2 downloader) em um script HTA para que ele possa ser analisado e a porcentagem de download, o tamanho do arquivo etc. pode ser obtida e atualizada dinamicamente em um DIV.

Aqui está o código que ajustei e tenho tentado usar, mas ele bloqueia a interface até que a linha de comando termine e THEN mostre toda a saída, em vez de exibi-la como e quando ela chegar.

Const WshRunning = 0
Const WshFinished = 1
Const WshFailed = 2
strCommand = "ping.exe 127.0.0.1"

Set WshShell = CreateObject("WScript.Shell")
Set WshShellExec = WshShell.Exec(strCommand)

Do While WshShellExec.Status = WshRunning
    window.setTimeOut "", 100
Loop

Select Case WshShellExec.Status
    Case WshFinished
        strOutput = WshShellExec.StdOut.ReadAll()
    Case WshFailed
        strOutput = WshShellExec.StdErr.ReadAll()
End Select

Set objItem = Document.GetElementByID("status")
    objItem.InnerHTML = "" & strOutput & ""

Como modifico isso para que não bloqueie minha interface do usuário e agarra a saída e a exibe na div "status" à medida que é apresentada?

questionAnswers(1)

yourAnswerToTheQuestion