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?