[Автоматизация] Перезапуск программы на удаленных компьютерах

[shleg]

Всем доброго дня. Помогите с такой проблемой. Есть 10 ноутбуков с Windows Home Premium x64. Нужно следующее:
скрипт на этих ноутбуках отслеживает нажатие определенной клавишы на управляющем компьютере, и когда клавиша нажалась, перезапускает одну программу. Мониторинг должен быть постоянным. Вот как то так

 

[sngr]

HotKeySet('{f12}','fu')
While 1
	Sleep(100)
WEnd
Func fu()
	Run('pskill.exe');указываешь параметры
	Run('PsExec.exe');указываешь параметры
EndFunc

http://technet.microsoft.com/ru-ru/sysinternals/bb896649
Помоему, ты неверно ставишь задачу - зачем городить отслеживаник клавиш с клиентских машин, когда можно на управляющем компе по нажатию клавиши перезапускать удалённо программы.
Мой код прибивает удалённые процессы, а затем пускает их вновь. Если я тебя неверно понял, проясни задачу.

 

[shleg]

sngr день добрый. Да, наверно не совсем точно объяснил. На 10 ноутбуках стоит программа, которая захватывает изображение с одного источника. Иногда начинается тупняк, и изображение не передается, хотя программа работает. Решается перезапуском программы на всех ноутбуках. Хочу автоматизировать этот процесс. То есть, на ноутбуках запускаем скрипт, который отслеживает нажатие клавиши на рабочем месте оператора. Как только оператор видит, что изображение не отображается, он нажимает клавишу у себя на компе, и на ноутах программа перезапускается.

 

[sngr]

Тогда всё просто - на управляющем компе запускаешь это:

HotKeySet('{f12}','fu')
While 1
    Sleep(100)
WEnd
Func fu()
    Run('pskill.exe \\comp1');указываешь параметры
    Run('PsExec.exe \\comp1');указываешь параметры
    Run('pskill.exe \\comp2');указываешь параметры
    Run('PsExec.exe \\comp2');указываешь параметры
    ;и т. д.
EndFunc

 

[shleg]

Если бы было так просто, я бы не писал на форум. Дело в том, что на Windows Home psexec у меня не заработал.


Добавлено:

Сообщение автоматически объединено: 24 Апр 2012

Поэтому нужен клиент-сервер. :(
я с этим psexec парился два часа

 

[sngr]

http://technet.microsoft.com/ru-ru/magazine/2007.03.desktopfiles.aspx
psexec копирует себя в \\comp\ADMIN$ и работает как сервер. Соответственно к ADMIN$ должен быть доступ. По ссылке выше русский мануал по использованию этих программ.

 

[shleg]

К Windows Home получить доступ из сети к ADMIN$ нереально. Поэтому не могу использовать psexec. Может подскажете, как реализовать это через клиент-сервер

 

[inververs]

Как один из вариантов можно сделать так: клиент отслеживает появление определенного файла в рассшаренной папке сервера (например, имя_компьютера_клиента.txt) и в случае появления, перезапускает программу и удаляет файл.

Сервер же просто генерирует данные файлы по нажатию клавиши.

 

[sngr]

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")
$comp='.'
$obj=ObjGet("WinMgmts:\\"&$comp&"\root\cimv2")
$que=$obj.ExecQuery("Select * from Win32_Process where  caption='explorer.exe'")
$res=''
For $o In $que
 $res&= "Имя процесса: " & $o.Name & ' - ' &"Приоритет: " & $o.Priority & @CRLF
 Next
 MsgBox(0,'',$res)
 Func MyErrFunc()
  MsgBox(4096,"AutoItCOM Test","We intercepted a COM Error !"      & @CRLF  & @CRLF & _
"err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
"err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
"err.number is: "         & @TAB & hex($oMyError.number,8)  & @CRLF & _
 "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
 "err.scriptline is: "     & @TAB & $oMyError.scriptline     & @CRLF & _
 "err.source is: "         & @TAB & $oMyError.source         & @CRLF & _
 "err.helpfile is: "       & @TAB & $oMyError.helpfile       & @CRLF & _
"err.helpcontext is: "    & @TAB & $oMyError.helpcontext)
Exit 1
EndFunc

$comp='здесь сетевое имя одного из ноутбуков'


Добавлено:

Сообщение автоматически объединено: 24 Апр 2012

Ты разобрался, что код выше только возращает имя и приоритет на удалённом компе?