14.09.2009, 22:39
|
|
Познавший АНТИЧАТ
Регистрация: 01.12.2006
Сообщений: 1,769
Провел на форуме:
3718311
Репутация:
1118
|
|
если поддерживает telnet и OS Windows XP то этот должен работать
Код:
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "telnet.exe 192.168.1.1"
WScript.Sleep 1000
oShell.SendKeys "user" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "password" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "reboot" & chr(13)
192.168.1.1 - IP роутера
user - Пользователь
password - пароль
reboot - нужная команда |
|
|