Цитата SanyaJoker:
хочется найти вариант если этот батник не выполнился так скажем за 10 минут отправить на определенные компьютеры net send о том что операция задержалась »
|
если навскидку примерно так, при желании "NET SEND" можно переписать через
UDF вместо
CMD:
Код:
![Выделить весь код](images/misc/selectcode.png)
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
З.Ы. извиняюсь, не было возможности протестировать