Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "telnet.exe 192.168.1.1"
WScript.Sleep 1000
oShell.SendKeys "ЛОГИН ОТ МОДЕМА" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "ПАРОЛЬ ОТ МОДЕМА" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "reboot" & chr(13)
сохраняешь в .vbs и запускаешь как линк гаснет
на твоем модеме тестировал-работает
по дефолту логин\пароль от модема admin\admin
Добавлено через 06:07 сек.
автоматически раньше у меня стоял скрипт
там он пингует сервер,который указываешь
если нету ответа,то перезагружает модем,но он что-то отказался работать через некоторое время
Добавлено через 06:34 сек.
Reboot 2500U называется прога,качни-попробуй