Перезагрузка модема

@UBUNTU · Регистрация: 04.02.2015

Студворк — интернет-сервис помощи студентам

Добрый день! Подскажите пожалуйста у кого может есть пример, автоматической перезагрузки модема (роутера), можно на Visual Basic, а можно и в BAT файле. Спасибо заранее.

@fever brain · 26.05.2017, 13:59

Нужно знать хотябы модель модема (роутера) это во первых, если этот модем непосредственно подсоединяется к компьютеру, то у него есть ПО, и там можно както найти способ управлять программно, есть даже специальные утилиты
которые распознают некоторые модели модемок и умеют ими управлять без специального ПО
а если это вай-фай роутер то его ПО может работать только в браузерах (так как нужен логин пароль и тд), а там уже сложнее будет настраивать для него батник
Итак: нужна модель что за модель этого роутера ?

@UBUNTU · 26.05.2017, 15:08 **[ТС]**

fever brain, Все разобрался. После долгих попыток поиска на форумах нашел, может кому пригодится.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
On Error Resume Next
 
strComputer = "."
strTarget = "asd54.uralcom.com" 'IP address or hostname
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery _
("Select * From Win32_PingStatus where Address = '" & strTarget & "'")
If Err = 0 Then
Err.Clear
For Each objPing in colPings 'избавиться от форича
If Err = 0 Then
Err.Clear
If objPing.StatusCode = 0 Then
' если статус = 0, пустая строка - другое
Else
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "telnet.exe 192.168.1.1"
WScript.Sleep 1000
oShell.SendKeys "admin" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "set reboot" & chr(13)
 
End If
Else
Err.Clear
WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "."
End If
Next
Else
Err.Clear
WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "."
End If

Расширение файла .VBS Теперь может кто подскажет как его запускать из приложения, вариант: Shell "cmd /X /C start C:\reboot.VBS", vbHide не работает.

@Pro_grammer · 26.05.2017, 16:36

Сообщение от UBUNTU

как его запускать из приложения

Ну вот зачем масло масляное?
Сразу на VB6 почему не написать, код то простейший и тем более он уже есть, только чуть переделать для Shell
Можно примерно тут посмотреть общий смысл

@wodybu · 20.01.2018, 00:43

Возможно уже не актуально, но вот скрипт который у меня работает на zixel P660HTW2 On Error Resume Next

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
strComputer = "."
strTarget = "google.com" 'IP address or hostname
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery _
("Select * From Win32_PingStatus where Address = '" & strTarget & "'")
If Err = 0 Then
Err.Clear
For Each objPing in colPings 'избавиться от форича
If Err = 0 Then
Err.Clear
If objPing.StatusCode = 0 Then
' если статус = 0, пустая строка — другое
Else
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "telnet.exe 192.168.1.1"
WScript.Sleep 2000
oShell.SendKeys "15426378" & chr(13)
WScript.Sleep 1000
oShell.SendKeys "wan adsl reset" & chr(13)
WScript.Sleep 2000
oShell.SendKeys "^({]})q" & chr(13)
WScript.Quit 255
End If
Else
Err.Clear
WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "." 
End If
Next
Else
Err.Clear
WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "."
End If

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344

	Перезагрузка модема 26.05.2017, 13:41. Показов 2150. Ответов 4 Метки нет (Все метки) Добрый день! Подскажите пожалуйста у кого может есть пример, автоматической перезагрузки модема (роутера), можно на Visual Basic, а можно и в BAT файле. Спасибо заранее. 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	26.05.2017, 13:59
	Нужно знать хотябы модель модема (роутера) это во первых, если этот модем непосредственно подсоединяется к компьютеру, то у него есть ПО, и там можно както найти способ управлять программно, есть даже специальные утилиты которые распознают некоторые модели модемок и умеют ими управлять без специального ПО а если это вай-фай роутер то его ПО может работать только в браузерах (так как нужен логин пароль и тд), а там уже сложнее будет настраивать для него батник Итак: нужна модель что за модель этого роутера ? 0