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

[felix345]

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

 

[step85]

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

 

[mux76]

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]

Спасибо за помощь, вариант с батником прекрасно работает.

 

[wpblog]

а если нет модема или роутера, но есть динам ип то можно организовать переподключение после выполненой операции? если да то как?

 

[wpblog]

Спасибо за помощь, вариант с батником прекрасно работает.

а можешь подсказать как это сделать? я чет васче не понимаю)))

 

[wpblog]

можно где нить подробную инструкцию посмотреть как эсделать переподключение?

 

[step85]

а если нет модема или роутера, но есть динам ип то можно организовать переподключение после выполненой операции? если да то как?

А каким образом идет подключение к интернету?

 

[wpblog]

а каким образом идет подключение к интернету?

у меня обычный кабель подрублен к сетевухе vpn

 

[koster]

wpblog, можно выключать и включать сетевой адаптер или сетевое подключение через BAT:

netsh interface set interface name="Имя сетевого адаптера" disable
netsh interface set interface name="Имя сетевого адаптера" enable

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

 

[wpblog]

wpblog, можно выключать и включать сетевой адаптер или сетевое подключение через BAT:

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

что - то я не совсем понимаю, мне нужно самому писать программу или уже гдето есть готовый вариант?

 

[LightWood]

Нет. Нужно создать файл с кодом указанным выше.

 

[wpblog]

Нет. Нужно создать файл с кодом указанным выше.

netsh interface set interface name="Имя сетевого адаптера" disable
netsh interface set interface name="Имя сетевого адаптера" enable
с этим кодом?

 

[wpblog]

wpblog, можно выключать и включать сетевой адаптер или сетевое подключение через BAT:

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

а что нужно укачать в шаг "Собственный код" ?

 

[wpblog]

Может кто объяснит по подробней?
1. что нужно указать в шаге собственный код?
2. какой код должен быть в бат файле у меня соединение vpn?
может кто скинет готовый бат файл с коментариями?

 

[koster]

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

 

[wpblog]

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

У меня windows xp sp 3

 

[koster]

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

 

[igoreff]

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

http://zalil.ru/30608389

 

[speaker]

Мож кто подскажет как можно перезагружать 3g модем.