Регистрация

UFANET. Локал без VPN.

Тема закрыта
Страницы :   Пред.  1 2 3 ... 19 20 21
Автор Сообщение
SecondFry

Стаж: 15 лет
Сообщений: 8
Откуда: Уфа

Создавать темы SecondFry написал(а)
07-Май-2009 13:58
Цитировать
Gogi55
Писал выше:

SecondFry писал(а):

Вышел из ситуации так:
Создается файл routing.bat
Правая кнопка, изменить:

Код:

start C:\routing\routing.vbs
(путь до файла должен быть ваш :) )
Потом правая кнопка, запустить от имени администратора

Все работает :)

Кстати, насчет бесплатного локала:
Достаточно изменить пару строк в файле routing.vbs, чтобы можно было использовать его для бесплатного локала.

Код:

' **********************************************************'
 
' Маршрутизация для сети "Уфанет"
' делает возможной работу двух VPN соединений одновременно
' Просто установите два соединения и запустите скрипт
 
' На Windows Vista(R) сначала запускать Локал потом Анлим
' Отключить UAC и Брендмауэр
' После первого запуска, если попросят, перезагрузиться
' Именно в таком порядке!
'
' Для работы через дополнительный шлюз (ADSL модем, например)
' Прописать его IP ниже между ковычек gw_ip
' Затем запустить соединение уфанета с @local
' Затем запустить скрипт
 
' **********************************************************'
 
Option Explicit
 
Dim shl, exec, tmp1, tmp2, tmp3, tmp4, OSVer, mess
Dim fsob, fl, shl2, exec2, drob1, TmpDir, gw_is_local, gw_is_global
Dim local_ip, global_ip, gw_ip
Dim sw, ex, i, n, m, s
Dim ip(20), st(20)
 
Set drob1 = CreateObject("WScript.Shell")
TmpDir = drob1.ExpandEnvironmentStrings("%temp%")
 
local_ip = ""
global_ip = ""

'------------------------------------------------------'

gw_ip = "" ' <--  IP шлюза писать сюда, между ковычек

'------------------------------------------------------'

mess = ""
tmp1 = ""
tmp2 = ""
tmp3 = ""
tmp4 = ""
gw_is_local = false
gw_is_global = false
ex = ""
i=0
n=0
m=0
s=0
sw=false
 
  Set shl = CreateObject("WScript.Shell")
 
  if left(shl.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"), 1) = "6" then
 
    ex = shl.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\IPEnableRouter")
 
    if ex <> 1 then
       shl.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\IPEnableRouter", 1, "REG_DWORD"
       MsgBox "Необходима перезагрузка.", vbInformation
       sw = true
    end if
 
  end if
 
if not sw then
 
    Set shl = nothing
    Set exec = nothing
 
    Set shl = CreateObject("WScript.Shell")
    Set exec = shl.Exec("ipconfig.exe")
 
    Do While Not exec.StdOut.AtEndOfStream
         tmp2 = tmp1
         tmp1 = exec.StdOut.Read(1)
     
         if (isnumeric(tmp1) and isnumeric(tmp2)) or (tmp1 = "." and isnumeric(tmp2)) then i=1
         if i=1 and tmp2=chr(13) then
            i=0
            if len(tmp3) > 6 and len(tmp3) < 16 then
              ip(n) = tmp3
              n=n+1
            end if
            tmp3 = ""
         end if
         if i=1 then tmp3 = tmp3 & tmp2
    Loop
   
    tmp1 = ""
    tmp2 = ""
    tmp3 = ""
    tmp4 = ""
 
    Set shl = nothing
    Set exec = nothing
 
    for m=0 to n-1
      'msgbox ip(m)
       tmp4 = left(ip(m),6)
       if tmp4 = "77.79." or tmp4 = "92.50." or tmp4 = "81.30." or tmp4 = "89.189" or tmp4 = "94.41." or tmp4 = "79.140" or tmp4 = "212.46" or tmp4 = "95.30." then global_ip = ip(m)
       if tmp4 = "172.27" then local_ip = ip(m)
       if tmp4 = "172.25" then s = s + 1
    next
 
  if (s = 2) then mess = "Недостаточно денег на счете. И срок действия безлимита истек." & chr(13): sw = true
  if (s = 1) and (local_ip <> "")                and not sw then mess = "Период действия безлимитного доступа истек." & chr(13): sw = true
  if (s = 1) and (global_ip <> "")               and not sw then mess = "Недостаточно денег на счете." & chr(13): sw = true
  if (local_ip = "")     and (global_ip <> "")   and not sw then mess = "Найдено только одно VPN подключение." & chr(13) & "Установите подключение с @local." & chr(13): sw = true
  if (local_ip <> "")    and (global_ip = "")    and not sw then mess = "Найдено только одно VPN подключение." & chr(13) & "Установите подключение по безлимитному договору." & chr(13): sw = true
  if (local_ip = "")     and (global_ip = "")    and not sw then mess = "Установите два VPN подключения одновременно." & chr(13) & "(@local и анлим)" & chr(13): sw = true
 
  if (local_ip <> "")    and (global_ip <> "")   then sw = false: mess = ""

  if (local_ip <> "") and (gw_ip <> "") then
    sw = false
    mess = ""
    gw_is_global = true
  end if
  if (global_ip <> "") and (gw_ip <> "")       then
    sw = false
    mess = ""
    gw_is_local = true
  end if
  if gw_is_local then local_ip = gw_ip
  if gw_is_global then global_ip = gw_ip
  if mess <> "" then msgbox mess, vbInformation

end if

if not sw then
       'msgbox "Ваш внешний IP: " & global_ip & chr(13) & "Ваш локальный IP: " & local_ip
       Set exec = CreateObject("WScript.Shell")
       exec.Run "route delete 0.0.0.0", 0, true
       exec.Run "route add 0.0.0.0 mask 0.0.0.0 " & global_ip & " metric 3", 0, true
       exec.Run "route add 172.16.0.0 mask 255.240.0.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 172.25.0.0 mask 255.255.0.0 " & local_ip & " metric 2", 0, true
  if not gw_is_global and left(global_ip, 2) <>  "95" then
    exec.Run "route add 10.0.0.0 mask 255.0.0.0 " & local_ip & " metric 2", 1, true
  end if
       exec.Run "route add 81.30.176.0 mask 255.255.240.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 81.30.192.0 mask 255.255.224.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 89.189.128.0 mask 255.255.224.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 77.79.128.0 mask 255.255.192.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 79.140.16.0 mask 255.255.240.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 92.50.128.0 mask 255.255.192.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 92.50.168.0 mask 255.255.248.0 " & local_ip & " metric 1", 0, true
       exec.Run "route add 193.84.31.0 mask 255.255.255.224 " & local_ip & " metric 1", 0, true
       exec.Run "route add 194.0.68.0 mask 255.255.252.0 " & local_ip & " metric 1", 0, true
       exec.Run "route add 94.41.0.0 mask 255.255.0.0 " & local_ip & " metric 1", 0, true
       exec.Run "route add 81.30.199.50 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
       exec.Run "route add 81.30.199.69 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
       exec.Run "route add 81.30.199.70 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
       exec.Run "route add 81.30.197.10 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
       exec.Run "route add 81.30.199.84 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
     exec.Run "route add 10.193.1.13 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
  'MsgBox "Выполнено."
end if
 
 
' routing ver 1.93
' - Beeline + Ufanet :)
 
'(c) Harry Gimalder 2009. harrygimal@gmail.com

Код:

' **********************************************************'
 
' Маршрутизация для сети "Уфанет"
' делает возможной работу двух VPN соединений одновременно
' или делает возможной работу подключения по тарифу Свобода вместе с использованием локальных реусрсов на высокой скорости
' Просто установите два соединения и запустите скрипт
 
' На Windows Vista(R) сначала запускать Локал потом Анлим
' Отключить UAC и Брендмауэр в случае если вы используете связку @local + свобода
' После первого запуска, если попросят, перезагрузиться
' Именно в таком порядке!
' Ничего не отключать если вы используете связку lan + свобода
' Создать файл routing.bat с содержимым start C:\routing\routing.vbs
' Выполнить с правами администратора
'
' Для работы через дополнительный шлюз (ADSL модем, например)
' Прописать его IP ниже между ковычек gw_ip
' Затем запустить соединение уфанета с @local
' Затем запустить скрипт
 
' **********************************************************'
 
Option Explicit
 
Dim shl, exec, tmp1, tmp2, tmp3, tmp4, OSVer, mess
Dim fsob, fl, shl2, exec2, drob1, TmpDir, gw_is_local, gw_is_global
Dim local_ip, global_ip, gw_ip
Dim sw, ex, i, n, m, s
Dim ip(20), st(20)
 
Set drob1 = CreateObject("WScript.Shell")
TmpDir = drob1.ExpandEnvironmentStrings("%temp%")
 
local_ip = ""
global_ip = ""

'------------------------------------------------------'

gw_ip = "" ' <--  IP шлюза писать сюда, между ковычек

'------------------------------------------------------'

mess = ""
tmp1 = ""
tmp2 = ""
tmp3 = ""
tmp4 = ""
gw_is_local = false
gw_is_global = false
ex = ""
i=0
n=0
m=0
s=0
sw=false
 
  Set shl = CreateObject("WScript.Shell")
 
  if left(shl.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"), 1) = "6" then
 
    ex = shl.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\IPEnableRouter")
 
    if ex <> 1 then
       shl.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\IPEnableRouter", 1, "REG_DWORD"
       MsgBox "Необходима перезагрузка.", vbInformation
       sw = true
    end if
 
  end if
 
if not sw then
 
    Set shl = nothing
    Set exec = nothing
 
    Set shl = CreateObject("WScript.Shell")
    Set exec = shl.Exec("ipconfig.exe")
 
    Do While Not exec.StdOut.AtEndOfStream
         tmp2 = tmp1
         tmp1 = exec.StdOut.Read(1)
     
         if (isnumeric(tmp1) and isnumeric(tmp2)) or (tmp1 = "." and isnumeric(tmp2)) then i=1
         if i=1 and tmp2=chr(13) then
            i=0
            if len(tmp3) > 6 and len(tmp3) < 16 then
              ip(n) = tmp3
              n=n+1
            end if
            tmp3 = ""
         end if
         if i=1 then tmp3 = tmp3 & tmp2
    Loop
   
    tmp1 = ""
    tmp2 = ""
    tmp3 = ""
    tmp4 = ""
 
    Set shl = nothing
    Set exec = nothing
 
    for m=0 to n-1
      'msgbox ip(m)
       tmp4 = left(ip(m),6)
       if tmp4 = "77.79." or tmp4 = "92.50." or tmp4 = "81.30." or tmp4 = "89.189" or tmp4 = "94.41." or tmp4 = "79.140" or tmp4 = "212.46" or tmp4 = "95.30." then global_ip = ip(m)
       if tmp4 = "172.27" then local_ip = ip(m)
       if tmp4 = "172.25" then s = s + 1
    next
   
    for m=0 to n-1
       tmp4 = left(ip(m),5)
       if tmp4 = "10.16" then local_ip = ip(m)
    next
 
  if (s = 2) then mess = "Недостаточно денег на счете. И срок действия безлимита истек." & chr(13): sw = true
  if (s = 1) and (local_ip <> "")                and not sw then mess = "Период действия безлимитного доступа истек." & chr(13): sw = true
  if (s = 1) and (global_ip <> "")               and not sw then mess = "Недостаточно денег на счете." & chr(13): sw = true
  if (local_ip = "")     and (global_ip <> "")   and not sw then mess = "Найдено только одно VPN подключение." & chr(13) & "Установите подключение с @local." & chr(13): sw = true
  if (local_ip <> "")    and (global_ip = "")    and not sw then mess = "Найдено только одно VPN подключение." & chr(13) & "Установите подключение по безлимитному договору." & chr(13): sw = true
  if (local_ip = "")     and (global_ip = "")    and not sw then mess = "Установите два VPN подключения одновременно." & chr(13) & "(@local и анлим)" & chr(13): sw = true
 
  if (local_ip <> "")    and (global_ip <> "")   then sw = false: mess = ""

  if (local_ip <> "") and (gw_ip <> "") then
    sw = false
    mess = ""
    gw_is_global = true
  end if
  if (global_ip <> "") and (gw_ip <> "")       then
    sw = false
    mess = ""
    gw_is_local = true
  end if
  if gw_is_local then local_ip = gw_ip
  if gw_is_global then global_ip = gw_ip
  if mess <> "" then msgbox mess, vbInformation

end if

if not sw then
       msgbox "Ваш внешний IP: " & global_ip & chr(13) & "Ваш локальный IP или гейт: " & local_ip
       Set exec = CreateObject("WScript.Shell")
       exec.Run "route delete 0.0.0.0", 0, true
       exec.Run "route add 0.0.0.0 mask 0.0.0.0 " & global_ip & " metric 3", 0, true
       exec.Run "route add 172.16.0.0 mask 255.240.0.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 172.25.0.0 mask 255.255.0.0 " & local_ip & " metric 2", 0, true
  if not gw_is_global and left(global_ip, 2) <>  "95" then
    exec.Run "route add 10.0.0.0 mask 255.0.0.0 " & local_ip & " metric 2", 1, true
  end if
       exec.Run "route add 81.30.176.0 mask 255.255.240.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 81.30.192.0 mask 255.255.224.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 89.189.128.0 mask 255.255.224.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 77.79.128.0 mask 255.255.192.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 79.140.16.0 mask 255.255.240.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 92.50.128.0 mask 255.255.192.0 " & local_ip & " metric 2", 0, true
       exec.Run "route add 92.50.168.0 mask 255.255.248.0 " & local_ip & " metric 1", 0, true
       exec.Run "route add 193.84.31.0 mask 255.255.255.224 " & local_ip & " metric 1", 0, true
       exec.Run "route add 194.0.68.0 mask 255.255.252.0 " & local_ip & " metric 1", 0, true
       exec.Run "route add 94.41.0.0 mask 255.255.0.0 " & local_ip & " metric 1", 0, true
       exec.Run "route add 81.30.199.50 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
       exec.Run "route add 81.30.199.69 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
       exec.Run "route add 81.30.199.70 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
       exec.Run "route add 81.30.197.10 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
       exec.Run "route add 81.30.199.84 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
     exec.Run "route add 10.193.1.13 mask 255.255.255.255 " & global_ip & " metric 1", 0, true
  MsgBox "Выполнено."
end if
 
 
' routing ver 1.93.2
' - Beeline + Ufanet :)
 
'(c) Рустам Second_Fry Губайдуллин 2009. secondfry@gmail.com
'(c) Harry Gimalder 2009. harrygimal@gmail.com
[UPD:] Вот ссылка на архив с готовым бат-файлом и скриптом: routing.zip
Профиль  ЛС 
Антоха

Стаж: 15 лет
Сообщений: 18
Откуда: Russia

Создавать темы Антоха написал(а)
20-Май-2009 13:13 (спустя 12 дней)
Цитировать
Есть проблема:когда без впн+свобода внешние сайты очень притормаживают.....есть ли какая нибудь прога устраняющая эту проблему?
Windows Vista =(
Профиль  ЛС 
Dmitriy

Стаж: 15 лет
Сообщений: 3
Откуда: Ufa

Создавать темы Dmitriy написал(а)
21-Май-2009 15:10 (спустя 1 день 1 час)
Цитировать
я правильно понял, что только те у кого ip попадает в диапазон - 10.160.х.х-10.169.х.х счастливые обладатели халявы, а все остальные (например как у меня 10.64.1.*) - в пролете!?!?
Профиль  ЛС 
swpx

Стаж: 15 лет
Сообщений: 59

Создавать темы swpx написал(а)
21-Май-2009 15:54 (спустя 44 минуты)
Цитировать
Обязателен ли тариф с "+"? Можно ли подрубить просто "Скупой рыцарь" за 15 рублей и сидеть в локалке без впн?
Профиль  ЛС 
Pantisher

Стаж: 15 лет
Сообщений: 10
Откуда: Russia

Создавать темы Pantisher написал(а)
22-Май-2009 00:05 (спустя 8 часов)
Цитировать
как посмотреть свой IP?
Профиль  ЛС 
ГОШ

Стаж: 15 лет
Сообщений: 6
Откуда: Уфа=Бульвар славы=

Создавать темы ГОШ написал(а)
22-Май-2009 00:14 (спустя 8 минут)
Цитировать
Pantisher
в сетевых подключениях...подключение по локальной сети...состояние...ип адрес))
Профиль  ЛС 
Тринадцать Тухлых Жаб

Стаж: 15 лет
Сообщений: 32

Создавать темы Тринадцать Тухлых Жаб написал(а)
26-Май-2009 13:18 (спустя 4 дня)
Цитировать
Мau5trap
смотри скрины на других страницах....
например
Профиль  ЛС 
WiSKaS=)

Стаж: 15 лет
Сообщений: 11
Откуда: волосы на попе?

Создавать темы WiSKaS=) написал(а)
28-Май-2009 06:23 (спустя 1 день 17 часов)
Цитировать

Цитата:

Set LocalIP=*.*.*.*
route add 10.0.0.0 mask 255.0.0.0 %LocalIP%
route add 172.27.0.0 mask 255.255.0.0 %LocalIP%
route add 77.79.128.0 mask 255.255.192.0 %LocalIP%
route add 81.30.176.0 mask 255.255.240.0 %LocalIP%
route add 81.30.192.0 mask 255.255.224.0 %LocalIP%
route add 89.189.128.0 mask 255.255.224.0 %LocalIP%
route add 94.41.0.0 mask 255.255.0.0 %LocalIP%
route add 92.50.128.0 mask 255.255.192.0 %LocalIP%
route add 194.0.68.0 mask 255.255.252.0 %LocalIP%
route add 79.140.16.0 mask 255.255.240.0 %LocalIP%
route add 81.30.199.50 mask 255.255.255.255 0.0.0.0
route add 81.30.199.69 mask 255.255.255.255 0.0.0.0
route add 81.30.199.70 mask 255.255.255.255 0.0.0.0
route add 81.30.197.10 mask 255.255.255.255 0.0.0.0
route add 81.30.199.84 mask 255.255.255.255 0.0.0.0
route add 81.30.199.238 mask 255.255.255.255 0.0.0.0
route add 81.30.198.20 mask 255.255.255.255 0.0.0.0
Помогите плиз) У меня 32-х разрядная виста (может это и не имеет значения). Скрипт вроде как для висты. Вопрос - какие пункты необходимо менять?
LocalIP=*.*.*.* сюда вписать основной шлюз или оставить без изменения?
%LocalIP% сюда вписать основной шлюз или локальный ип или же без изменения?
0.0.0.0 не изменять?
Сохранить этот текст в формате .bat или .vbs?
Профиль  ЛС 
Dmitriy

Стаж: 15 лет
Сообщений: 3
Откуда: Ufa

Создавать темы Dmitriy написал(а)
28-Май-2009 10:21 (спустя 3 часа)
Цитировать
2 WiSKaS=)
меняешь только LocalIP=*.*.*.* на основной шлюз
в остальных он сам подставит
сохраняешь bat
нули не трогаешь
Профиль  ЛС 
Elf_X

Стаж: 18 лет
Сообщений: 542
Откуда: Russia

Создавать темы Elf_X написал(а)
29-Май-2009 20:12 (спустя 1 день 9 часов)
Цитировать
Спрашивал на встрече с админами про локал без впн:
Официальное заявление коммерческого директора Уфанет (не дословно):
Работы в этом направлении ведутся (в смысле локалку без впн делают). Планировали к лету сделать всем, но все упирается в средства (денежки). В конце концов локал без впн будет у всех.
В связи с этим тема изжила себя и закрыта. Тем у кого еще нет локалки без впн - наберитесь терпения и ждите.
Профиль  ЛС 
Показать сообщения:     
Тема закрыта

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете прикреплять файлы к сообщениям
Вы не можете скачивать файлы

Текущее время: 19-Май 03:58
Часовой пояс: UTC + 5