[kaster]

ShogenOFF, запускать Run'ом?

[Microteam]

Да я понял ваш вопрос поробуйте с помощью ConsoleRead()

[ShogenOFF]

Не понял.....Мне нужно запустить консльную прогу с параметрами и с выводом выдачи консоля

[kaster]

ShogenOFF, любую программу запущенную ShellExecute'ом можно запустить Run'ом

[madmasles]

ShogenOFF,
Попробуйте так:

Код:

#include <Constants.au3>
;#include <Encoding.au3>

$sLog = ''
$hIPconfig = Run('IPCONFIG /?', '', @SW_HIDE, $STDOUT_CHILD)
;$hIPconfig = Run(@ComSpec & ' /C IPCONFIG /?', '', @SW_HIDE, $STDOUT_CHILD)
While 1
    $sLog &= StdoutRead($hIPconfig)
    If @error Then ExitLoop
    Sleep(10)
WEnd
;$sLog = _Encoding_866To1251($sLog)
MsgBox(0, '', $sLog)

Поменяйте IPCONFIG на Вашу консольную программу, /? - на Ваши параметры, , '', - на Вашу рабочую директорию. На всякий случай: Encoding UDF. (если будут вылазить кракозябры).

[saavaage]

madmasles, а если понадобиться вывести данные $sLog не в меседж-бокс, а в GuiEdit, например?

Что-то у меня не выводятся:

Код:

********* задание формы и т.д.

$Edit1 = GUICtrlCreateEdit("", 24, 64, 481, 233)
local $sLog = ''
local $hIPconfig = Run(@ComSpec & ' /C CSCRIPT %SYSTEMROOT%\system32\eventquery.vbs /fi "Type eq ERROR" /fo TABLE /NH', '', @SW_HIDE, $STDOUT_CHILD)
While 1
    $sLog &= StdoutRead($hIPconfig)
    If @error Then ExitLoop
    Sleep(10)
WEnd
GUICtrlSetData ($Edit1, _Encoding_866To1251($sLog))

не могу понять, что мешает...

[madmasles]

не могу понять, что мешает... »

Странно. У меня все выводится, причем с тремя вариантами:

Код:

#include <Constants.au3>
#include <Encoding.au3>
#include <GUIConstantsEx.au3>

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 445, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 104, 24, 433, 385)
$sLog = ''
;$hIPconfig = Run(@ComSpec & ' /C CSCRIPT %SYSTEMROOT%\system32\eventquery.vbs /fi "Type eq ERROR" /fo TABLE /NH', '', @SW_HIDE, $STDOUT_CHILD)
$hIPconfig = Run('CSCRIPT.exe ' & @SystemDir & '\eventquery.vbs /fi "Type eq ERROR" /fo TABLE /NH', '', @SW_HIDE, $STDOUT_CHILD)
;$hIPconfig = Run(@ComSpec & ' /C CSCRIPT ' & @SystemDir & '\eventquery.vbs /fi "Type eq ERROR" /fo TABLE /NH', '', @SW_HIDE, $STDOUT_CHILD)
While 1
    $sLog &= StdoutRead($hIPconfig)
    If @error Then ExitLoop
    Sleep(10)
WEnd
GUICtrlSetData($Edit1, _Encoding_866To1251($sLog))
$Button1 = GUICtrlCreateButton("Обновить", 16, 120, 65, 57)
GUICtrlSetState(-1, $GUI_FOCUS)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            GUICtrlSetData($Edit1, '')
            $sLog = ''
            ;$hIPconfig = Run(@ComSpec & ' /C CSCRIPT %SYSTEMROOT%\system32\eventquery.vbs /fi "Type eq ERROR" /fo TABLE /NH', '', @SW_HIDE, $STDOUT_CHILD)
            $hIPconfig = Run('CSCRIPT.exe ' & @SystemDir & '\eventquery.vbs /fi "Type eq ERROR" /fo TABLE /NH', '', @SW_HIDE, $STDOUT_CHILD)
            ;$hIPconfig = Run(@ComSpec & ' /C CSCRIPT ' & @SystemDir & '\eventquery.vbs /fi "Type eq ERROR" /fo TABLE /NH', '', @SW_HIDE, $STDOUT_CHILD)
            While 1
                $sLog &= StdoutRead($hIPconfig)
                If @error Then ExitLoop
                Sleep(10)
            WEnd
            GUICtrlSetData($Edit1, _Encoding_866To1251($sLog))
    EndSwitch
WEnd

[saavaage]

madmasles, проблема, скорее всего, что у меня не одна вкладка и на каждой выполняются функции. Уже не в первый раз такое происходит.

Все, разобрался. Пропустил
#include <Constants.au3>

Показалось, что есть, а на самом деле - не было включено

[saavaage]

madmasles, не подскажешь как вывод ограничить только нужной информацией. Мне, например, не надо, чтобы выводились эти строки:

Код:

Сервер сценариев Windows (Microsoft R) версия 5.7
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.

 
ИНФОРМАЦИЯ: Для журнала 'application' нет записей, отвечающих заданному критерию.
 
INFO: Нет доступных записей в журнале '%3'.
 
INFO: Нет доступных записей в журнале '%3'.

Можно сделать, чтобы выводилось, только то, что под ними? Т.е. начало вывода - с полосы

Код:

------------------------------------------------------------------------------

На всякий прикрепляю весь полученный вывод:

читать дальше »

Код:

Сервер сценариев Windows (Microsoft R) версия 5.7
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.

 
ИНФОРМАЦИЯ: Для журнала 'application' нет записей, отвечающих заданному критерию.
 
INFO: Нет доступных записей в журнале '%3'.
 
INFO: Нет доступных записей в журнале '%3'.
 
------------------------------------------------------------------------------
Перечисление событий в журнале 'system' для узла 'CAVE-0001974'
------------------------------------------------------------------------------
 ошибка        7011   08.10.2010 18:22:04      Service Control M CAVE-0001974