Пере подключить соединение с инетом

felix345

Client
Регистрация
09.12.2010
Сообщения
11
Благодарностей
3
Баллы
3
Подскажите пожалуйста, как можно организовать пере подключение к интернету? У меня динамический ip, чтоб не использовать прокси, задался таким вопросом, и скорость значительно повысится.
Стандартными средствами думаю такое нельзя сделать, придётся php подключать. Кто знает решение этой проблемы, поделитесь.
 

step85

Client
Регистрация
19.02.2010
Сообщения
1 839
Благодарностей
287
Баллы
83
Заходите через браузер в настройки своего модема или роутера (обычно http://192.168.1.1/) и жмете кнопку ПЕРЕЗАГРУЗКА. Это можно реализовать средствами зеннопостера.
Вот еще один способ перезапуска модема - http://zennolab.com/discussion/showthread.php?535
 

mux76

Client
Регистрация
13.12.2010
Сообщения
259
Благодарностей
119
Баллы
43
1 reboot.vbs =
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "telnet.exe 192.168.1.1"
WScript.Sleep 500
oShell.SendKeys "admin" & chr(13)
WScript.Sleep 500
oShell.SendKeys "admin" & chr(13)
WScript.Sleep 500
oShell.SendKeys "reboot" & chr(13)
PS при обрывах интернета.
reboot.vbs ставится в диспетчер заданий с таймом 5 мин. если не проходит пинг модем перезагружается
Dim FSO 'Объект "Scripting.FileSystemObject"
Dim LogPath 'Путь к файлу лога этого скрипта
Set WshShell = CreateObject("WScript.Shell")
Set WshArg = WScript.Arguments
Set FSO = CreateObject("Scripting.FileSystemObject")
LogPath = WshShell.CurrentDirectory 'лог сохраняем в папку со скриптом

On Error Resume Next

strComputer = "."
strTarget = "ya.ru" 'IP адоес внешнего сервера при недоступности которого считаем, что интернета нету и перегружаем модем (можно поставить google.com)
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" ' строка подключения к модему (10.10.10.1 - IP модема)
WScript.Sleep 1000
oShell.SendKeys "admin" & chr(13) ' имя для входа на модем
WScript.Sleep 1000
oShell.SendKeys "admin" & chr(13) ' пароль для входа на модем
WScript.Sleep 1000
oShell.SendKeys "reboot" & chr(13) ' команда перезагрузки модема
'Здесь начинается формирование файла-лога данного скрипта, который сохраняется рядом с самим скриптом
Set LogFile = FSO.OpenTextFile(LogPath & "\" & "reboot.log", 8, True)
LogFile.WriteLine "***************************************"
LogFile.WriteLine "Запуск перезагрузки модема..."
LogFile.WriteLine "***************************************"
LogFile.WriteLine "Задача запущена в " & Time & " " & Date
LogFile.WriteLine
LogFile.WriteLine
LogFile.Close
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
:lol:
 

felix345

Client
Регистрация
09.12.2010
Сообщения
11
Благодарностей
3
Баллы
3
Спасибо за помощь, вариант с батником прекрасно работает.
 

wpblog

Новичок
Регистрация
25.01.2011
Сообщения
46
Благодарностей
2
Баллы
0
а если нет модема или роутера, но есть динам ип то можно организовать переподключение после выполненой операции? если да то как?
 

wpblog

Новичок
Регистрация
25.01.2011
Сообщения
46
Благодарностей
2
Баллы
0

wpblog

Новичок
Регистрация
25.01.2011
Сообщения
46
Благодарностей
2
Баллы
0
можно где нить подробную инструкцию посмотреть как эсделать переподключение?
 

step85

Client
Регистрация
19.02.2010
Сообщения
1 839
Благодарностей
287
Баллы
83
а если нет модема или роутера, но есть динам ип то можно организовать переподключение после выполненой операции? если да то как?
А каким образом идет подключение к интернету?
 

wpblog

Новичок
Регистрация
25.01.2011
Сообщения
46
Благодарностей
2
Баллы
0

koster

Client
Регистрация
30.09.2010
Сообщения
137
Благодарностей
3
Баллы
18
wpblog, можно выключать и включать сетевой адаптер или сетевое подключение через BAT:
netsh interface set interface name="Имя сетевого адаптера" disable
netsh interface set interface name="Имя сетевого адаптера" enable
Чтобы подключить bat нужно создать шаг "Собственный код", затем ветку шага "Своя программа" и там будет поле указывающее на путь к бинарнику, нужно выбрать bat файл.
 
  • Спасибо
Реакции: Lankorn

wpblog

Новичок
Регистрация
25.01.2011
Сообщения
46
Благодарностей
2
Баллы
0
wpblog, можно выключать и включать сетевой адаптер или сетевое подключение через BAT:

Чтобы подключить bat нужно создать шаг "Собственный код", затем ветку шага "Своя программа" и там будет поле указывающее на путь к бинарнику, нужно выбрать bat файл.
что - то я не совсем понимаю, мне нужно самому писать программу или уже гдето есть готовый вариант?
 

LightWood

Moderator
Регистрация
04.11.2010
Сообщения
2 382
Благодарностей
915
Баллы
113

wpblog

Новичок
Регистрация
25.01.2011
Сообщения
46
Благодарностей
2
Баллы
0

wpblog

Новичок
Регистрация
25.01.2011
Сообщения
46
Благодарностей
2
Баллы
0
wpblog, можно выключать и включать сетевой адаптер или сетевое подключение через BAT:

Чтобы подключить bat нужно создать шаг "Собственный код", затем ветку шага "Своя программа" и там будет поле указывающее на путь к бинарнику, нужно выбрать bat файл.
а что нужно укачать в шаг "Собственный код" ?
 

wpblog

Новичок
Регистрация
25.01.2011
Сообщения
46
Благодарностей
2
Баллы
0
Может кто объяснит по подробней?
1. что нужно указать в шаге собственный код?
2. какой код должен быть в бат файле у меня соединение vpn?
может кто скинет готовый бат файл с коментариями?
 

koster

Client
Регистрация
30.09.2010
Сообщения
137
Благодарностей
3
Баллы
18
Тут ещё много нюансов - Какая ОС? Ещё под администратором нужно залогиниться...
Погугли в сторону devcon.exe она отключает/включает устройства - тем самым можно переподключить vpn.
Рабочий батник под твою систему никто не напишет не зная твоих ID устройств, ОС и прочих моментов.
Лучше сначало через командную строку попробовать отключить и включить сетевую карту, а потом уже всё в бат перенести...
 

wpblog

Новичок
Регистрация
25.01.2011
Сообщения
46
Благодарностей
2
Баллы
0
Тут ещё много нюансов - Какая ОС? Ещё под администратором нужно залогиниться...
Погугли в сторону devcon.exe она отключает/включает устройства - тем самым можно переподключить vpn.
Рабочий батник под твою систему никто не напишет не зная твоих ID устройств, ОС и прочих моментов.
Лучше сначало через командную строку попробовать отключить и включить сетевую карту, а потом уже всё в бат перенести...
У меня windows xp sp 3
 

koster

Client
Регистрация
30.09.2010
Сообщения
137
Благодарностей
3
Баллы
18
Тогда devcon поможет, здесь - http://support.microsoft.com/kb/311272
Можно его скачать и там есть примеры использования. Да и в гугле полно по ней информации.
 

igoreff

Client
Регистрация
24.02.2011
Сообщения
176
Благодарностей
20
Баллы
18
Вот залил два батника, первый батник отключает vpn соединение, второй подключает. Батники открыть текстовым редактором и прописать свои имя соединения, логин и пароль, а в батнике отключения-только имя соединения. Как писалось выше, чтобы подключить bat нужно создать шаг "Собственный код", затем ветку шага "Своя программа" и там будет поле указывающее на путь к бинарнику, нужно выбрать bat файл. В итоге выйдет простое переподключение vpn соединения.

http://zalil.ru/30608389
 

speaker

Client
Регистрация
13.10.2012
Сообщения
287
Благодарностей
44
Баллы
28
Мож кто подскажет как можно перезагружать 3g модем.
 

Кто просматривает тему: (Всего: 1, Пользователи: 0, Гости: 1)