Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Moderator


Сообщения: 3047
Благодарности: 1005

Профиль | Сайт | Отправить PM | Цитировать


Код: Выделить весь код
#include <Constants.au3>
#include <Encoding.au3>

$comand="dsquery"
$foo = Run("powershell " & $comand, @SystemDir, @SW_HIDE, $STDOUT_CHILD)
$out=""
$line=""

While 1
    $line = StdoutRead($foo)
    If @error Then ExitLoop
    If $line <>"" Then $out &= $line
Wend

$out = _StringOEM2ANSI($out)
MsgBox(0, "", $out)
Так работает?

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

Русское сообщество AutoIt | CreatoR's Lab | Opera AC Community


Отправлено: 22:33, 16-12-2009 | #7