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

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

Googler


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

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


Цитата SanyaJoker:
хочется найти вариант если этот батник не выполнился так скажем за 10 минут отправить на определенные компьютеры net send о том что операция задержалась »
если навскидку примерно так, при желании "NET SEND" можно переписать через UDF вместо CMD:
Код: Выделить весь код
Dim $aCOMP[3] = ["COMP1","COMP2","COMP3"]
; Команда запуска скрипта
$CMD1 = @ComSpec & " /c " & 'C:\TEST\script.cmd'
$TEXT = "Текст сообщения"
; Запуск скрипта в скрытом окне
$PID = Run($CMD1, "", @SW_HIDE)

While 1
    $RET = ProcessWaitClose ($PID, 600) ; ожидание завершения
    If $RET Then ExitLoop               ; выход при успехе
    For $i=0 To UBound($aCOMP)-1        ; перебираем хосты
        ; Команда отправки сообщения очередному хосту
        $CMD2 = @ComSpec & " /c " &'NET SEND '& $aCOMP[$i] &' "'& $TEXT &'"'
        RunWait($CMD2, "", @SW_HIDE) ; запуск CMD команды в скрытом окне
    Next
WEnd
З.Ы. извиняюсь, не было возможности протестировать

Последний раз редактировалось amel27, 04-03-2009 в 12:01.

Это сообщение посчитали полезным следующие участники:

Отправлено: 14:06, 03-03-2009 | #6