[amel27]

andrewua12, где-то так:

Код:

Set objShell = WScript.CreateObject("WScript.Shell")

StrCommand = "mpcs-0.8k-rc13o-i386-pc-cygwin.exe"
StrFindTxt = "timeout"
IntSeconds = 5

While vbTrue
    Set objExecObject = objShell.Exec(StrCommand)

    Do While Not objExecObject.StdOut.AtEndOfStream
        strText = objExecObject.StdOut.ReadLine()
        If Instr(strText, StrFindTxt) > 0 Then
            objExecObject.Terminate()
            WScript.Sleep IntSeconds * 1000
            Exit Do
        End If

        Wscript.StdOut.WriteLine strText
    Loop
Wend

З.Ы. "Terminate" не лучший способ закрытия, может программа поддерживает "горячие клавиши" выхода?