A
alekssgor
Подскажите кто занает! Скачал скрипт к роултору с сайта производителя для добавления задачи по расписанию
для перезагрузки роултера по расписанию. В XP работает а в 7 вообще не работает!!! В чём проблема???
Скрипт в первоначальном виде:
Данный скрипт вообще не устонавливает соединение с роултером
Изминил скрипт на
Данный скрипт запускает telnet устанавливает связь с роултером принимает пароль но саму команду не выполняет!!!
Команда правильная руками выполняю через telnet всё работает!!!
При добавлении задачи ставил галочку выполнять с наибольшим приоритетом всё тоже самое!!!
для перезагрузки роултера по расписанию. В XP работает а в 7 вообще не работает!!! В чём проблема???
Скрипт в первоначальном виде:
Код:
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "telnet.exe"
WScript.Sleep 5000
WshShell.SendKeys"o 192.168.1.1" & chr(13)
WScript.Sleep 5000
WshShell.SendKeys"1234" & chr(13)
WScript.Sleep 5000
WshShell.SendKeys"sys reboot" & chr(13)
WScript.Sleep 3500
ProcessClose("cmd.exe")
ProcessClose("telnet.exe")
Function ProcessClose(sProcName)
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & sProcName & "'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
End Function
Изминил скрипт на
Код:
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "telnet.exe 192.168.1.1"
WScript.Sleep 5000
WshShell.SendKeys"1234" & chr(13)
WScript.Sleep 5000
WshShell.SendKeys"sys reboot" & chr(13) //команда не выполняется!!!
WScript.Sleep 3500
ProcessClose("cmd.exe")
ProcessClose("telnet.exe")
Function ProcessClose(sProcName)
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & sProcName & "'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
End Function
Команда правильная руками выполняю через telnet всё работает!!!
При добавлении задачи ставил галочку выполнять с наибольшим приоритетом всё тоже самое!!!