VPF::Вызов exe из VBScript и чтение потока вывода

vatuska

Дата 7.2.2012, 08:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.9.2010

Репутация: нет
Всего: нет

Доброе время суток. Требуется считывать поток вывода процесса и писать его в консоль родительского процесса. Делаю это так:

Код


Function RunExe(RunCmd)
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Dim EndTime
    EndTime = DateAdd("N", 15 , Now)
    Set Process = WshShell.Exec("%comspec% /c " & RunCmd)
    Do Until (Now >= EndTime)
        If  Process.StdOut.AtEndOfStream
            WScript.StdErr.WriteLine(Process.StdErr.ReadAll())
            WScript.Quit(Process.ExitCode)
        Else
            WScript.StdOut.WriteLine(Process.StdOut.ReadLine())
        End If   
    Loop
    Process.Terminate()
    WScript.Quit(1)
End Function
Set Args = WScript.Arguments.Unnamed
If Args.length > 0 Then
    RunExe(Args.Item(0))
End If

Проблема в том, что иногда скрипт зависает, подозреваю, что это либо из-за Process.StdOut.ReadLine(), либо из-за Process.StdOut.AtEndOfStream, но исправить не получается, второе заменяла на Process.Status == 1, но это всё равно не помогало, понять где ошибка не могу((

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Windows \| Следующая тема »