VBS Скрипт перезагрузки роутера QTECH-1040WU при разрыве коннекта

machito

Команда форума
Супер-Модератор
Сообщения
2,355
Реакции
2,170
Баллы
503
Phoenix, уходим от сути наверное. Алекс в курсе что команда
Код:
plink -batch -noagent -l логин -pw пароль 192.168.1.1 reboot
заканчивается ожиданием > связь "plink" рвётся с модемом, по скольку команды в консоль не поступает... (как видим на скрине)
скрипт написан, значит должен работать, в данный момент мне нужно запустить этот процесс.
А можно же просто конект сделать, зачем ребутить ?
по сути не важно, но при разрыве, коннект без перезагрузки модема не подхватится. Или я не прав ?
 
Последнее редактирование:

Phoenix

Ветеран
Сообщения
2,108
Реакции
1,837
Баллы
503
adsl connection --up или просто adsl start, это команды в сессии телнета, если поддерживается (help)
 

Phoenix

Ветеран
Сообщения
2,108
Реакции
1,837
Баллы
503

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,378
Реакции
5,877
Баллы
718
И что с ними делать в моей ситуации ?
Только методом эксперимента.
Если модем снова засвиснет,
попробуй последовательно выполнить:
запустить cmd
Код:
plink -noagent -l логин -pw пароль ip
в консоли plink-a:
Код:
adsl connection --up
adsl start
и проследи, что произойдет с коннектом.
Значит сейчас скрипт молчит, так как нет процесса wscript.exe
Должен быть процесс wscript.exe, так как скрипт работает бесконечно.
Какие данные, где в модеме, как запускать.... я в ступоре.
Эти:
Код:
' Данные аутентификации
LocalIP ="192.168.1.1"
UserName ="admin"
Password ="pass"
Затем расширения файла .vbs и запустить.
 

machito

Команда форума
Супер-Модератор
Сообщения
2,355
Реакции
2,170
Баллы
503
Dragokas, так сейчас то, процесс "wscript" в диспетчере отсутствует.
 
Последнее редактирование:

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,378
Реакции
5,877
Баллы
718
Т.е. ты запускаешь VBS-файл, но никаких ошибок не возникает и при этом и в Диспетчере задач не появляется процесс?
 

machito

Команда форума
Супер-Модератор
Сообщения
2,355
Реакции
2,170
Баллы
503
Т.е. ты запускаешь VBS-файл, но никаких ошибок не возникает и при этом и в Диспетчере задач не появляется процесс?
Алекс, про запуск батника и речи не было, положить в папку и всё.
По этому я думал запуск осуществляется из консоли.
Запустил

 
Последнее редактирование:

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,378
Реакции
5,877
Баллы
718
Что в итоге... все работает как нужно?
Можно симмитировать пропажу интернета, вынув телефонный кабель из роутера.
 

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,378
Реакции
5,877
Баллы
718
Решили вопрос по удаленке.
machito, в общем ошибка была из-за того, что для сторонних утилит нужно было указывать полный путь в скрипте. Извини, упустил этот момент.
То есть:
Код:
Client ="c:\route\plink.exe"
Эти 2 команды от Phoenix-а тоже заработали, но по времени получилось примерно тоже самое, что и перезагрузка роутера.
 
Последнее редактирование:

machito

Команда форума
Супер-Модератор
Сообщения
2,355
Реакции
2,170
Баллы
503
Phoenix, я не корректно вопрос сформулировал. (торопился)
Имел ввиду, нужно ли прописывать IP, в протоколе IPv4.
Оказалось что не нужно.
Всем большое спасибо! Алекс, отдельная благодарность
 

Dimon

Активный пользователь
Сообщения
1
Реакции
0
Баллы
81
Добрый день! Помогите с проблемкой! У меня есть скрипт перезагрузки роутера keenetic.

Код:
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"admin" & chr(13)

WScript.Sleep 5000
WshShell.SendKeys"MyPasswords" & chr(13)

WScript.Sleep 5000
WshShell.SendKeys"system 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
Мне нужно сделать так, чтобы он перезагружался при отсутствии коннекта. Сейчас он перезагружается с помощью планировщика заданий 5 раз в день. А хотелось бы, чтобы перезагружался, когда пропадает коннект, и писался лог. Спасибо!
 
Последнее редактирование модератором:
Сверху Снизу