XoRe

2cool-b: welcome to клуб любителей секса с виндой в качестве шлюза =) Ситуация, когда 2 идентичные системы на этой ОС ведут себя по разному, уже не удивляет ) Посмотри, стоит ли в свойствах подключения в интернет (последняя вкладка кажись), чтобы было разрешение использовать это подключение народу из другого подключения (т.е. из другой локалки). По английски это называлось sharing internet connection.

2masters: Версию своей фри скажи.

Аппаратно как - хз. А вот программно делается так. Тем интерфейсам шлюзов, которые смотрят в сторону других сетей, назначаются адреса из одной сети, ОТЛИЧНОЙ от используемых сетей. Например такие адреса: 172.16.0.1 172.16.0.2 172.16.0.2 И маску там покороче, например 255.255.255.248 Допустим, сеть 192.168.0.0/24 находится на шлюзе 172.16.0.1 Тогда на шлюзах 172.16.0.2 и 172.16.0.3 прописываем что-то типа route add 192.168.0.0/24 172.16.0.1 И так для каждого шлюза. То есть в конце концов на каждом шлюзе должны быть записаны 2 маршрута, на какой адрес идти, чтобы попасть в нужную локалку. Что то типа: route add <шлюз1> <сетка1> route add <шлюз2> <сетка2> Минус: Бродкасты/мультикасты, т.е. всякие безсерверные чаты, игрушки типа контр страйк, расшаренные папки без дополнительного шаманства между сетями видны не будут. P.S. В линуксе наверное надо писать не route add, а ip route add

Ребят, вы хоть по список тем глядите в форуме. http://local.com.ua/forum/index.php?showtopic=7945

Ребят, вы хоть по список тем глядите в форуме. http://local.com.ua/forum/index.php?showtopic=5993

А чем дефолтное значение не устраивает?

От психов хорошо шотган помогает ... :argh:

Я думаю, она не на просьбу про логи обиделась ) Кстати, советую обратить внимание на предложение "К тому же мы его настроили после.". Видимо уже поставили. Имхо, по делу от афторши темы мы тут больше ничего не увидим.

Жаль. Произвол продолжается.

Вывод: тру тру =) Кстати, неужели о local.com.ua такая "слава"?

Поставим вопрос таким боком: Что вам нравится больше в качестве шейпера, DUMMYNET или ALTQ ?

2Amal: Угу, профили дочки и мамы перепутались =)

2CD-ROMa: Подумай об этом с точки зрения выгоды. 1. он платит за прошлый месяц = 10 грн + плата в будущем + все довольны. 2. он платит за прошлые месяцы = может 60 грн., а может уйдет юзер + все недовольны. 3. отключение юзера = 0 грн. Я бы порекомендовал 1 вариант. + доступ на сервер не только по логину, но и по ип адресу.

ВСТАНОВИВ: 07.02.2007р. до Подільського РУ ГУ МВС України в м. Києві з заявою звернулась гр. ХХХХ. про те , що 07.02.2007 р о 19 год. 30 хв. по вул. Фрунзе, 127 в м. Києві, водій автомобіля „ Опель" , д/н В 3818КІ під час сварки яка виникла між ними на грунті особистих не приязнених відносин по причині ДТП, спричинив тілесні ушкодження. Гр. ХХХХХ. пояснив, що 07.02.2007р. о 19 год. 30 хв. він на власному автомобілі „ ЗАЗ -1102 „ , д/н ХХХХХХ їхав по вул. Фрунзе. Проїжджаючи по вул. Фрунзе 127 він потрапив в ДТП з автомобілем „ Опель" , д/н В 3818КІ. Після чого він та водій вказаного автомобіля вийшли з машин та між ними на грунті не приязнених відносим виник конфлікт під час чого не відомий вдарив його в обличчя та живіт при цьому погрожував. Згідно Акта СМЕ, гр. ХХХХХХ були спричинені тілесні ушкодженим які відносяться до легких. Гр. Лук’яненко Михайло Володимирович , 1971 р.н. прож. м. Київ ЧЧЧЧЧЧЧЧ пояснив , що він в особистому користуванні має автомобіль „Опель" , д/н В 3818КІ. 07.02.2007р. о 22 год. він разом з своїм знайомим, Моревим А.В. їхали у вказаному автомобілі по вул. Фрунзе. На перехресті вул. Фрунзе 127 , вул. Сирецька він потрапив в ДТП з автомобілем „ ЗАЗ -1102 „ , д/н ХХХХ. Після чого він та водій вказаного автомобіля вийшли з машин та між ними на грунті не приязнених відносин виник словесний конфлікт під час він йому не погрожував та тілесні ушкодження не спричиняв. Встановити та опитати свідків даного конфлікту не стало можливим. Враховуючи вище викладене та приймаючи до уваги те , що конфлікт між гр. ХХХХХХ. та гр. Лук’яненко М.В. виник на грунті особистих не приязнених відносин , згідно Акта СМЕ, гр. ХХХХХ. були спричинені тілесні ушкодження які відносяться до легких, реальність погроз свого підтвердження не знайшли, керуючись ст.99 КПК України, згідно ст.6 п.2 КПК України.- ПОСТАНОВИ В: 1.В порушенні кримінальної справи по заяві гр. ХХХХХХ. відмовити за відсутністю ознак злочину ст. 296 КК України. 2.Дати відповідь заявнику. 3.Копію постанови направити прокуропу Подільського району м. Києва. Переведите пожалуйста) Хотя бы вкратце.

Взял за основу скрипт gall и немножко переделал. Получился скрипт на perl #!/usr/bin/perl ($cgi_script) = ($0 =~ m:(.*)[/\\](.*)[1]; $ip = $ENV{'REMOTE_ADDR'}; $url = 'http://' . $ENV{'HTTP_HOST'} . $ENV{'REQUEST_URI'}; $debug = 0; $addr{'192.168.0.0/24'} = 'one'; $addr{'55.22.207.66'} = 'two'; $addr{'55.22.200.19'} = 'three'; $settings{one}[0] = $ip; $settings{one}[1] = '255.255.255.0'; $settings{one}[2] = '192.168.0.129'; $settings{one}[3] = '172.16.2.126'; $settings{two}[0] = ''; $settings{two}[1] = '255.255.255.0'; $settings{two}[2] = '192.168.4.129'; $settings{two}[3] = '192.168.4.129'; $settings{three}[0] = ''; $settings{three}[1] = '255.255.255.0'; $settings{three}[2] = '192.168.3.129'; $settings{three}[3] = '192.168.3.129'; $settings{amn}[0] = ''; $settings{amn}[1] = '255.255.255.0'; $settings{amn}[2] = '194.58.162.129'; $settings{amn}[3] = '194.58.162.129'; if($ENV{'REQUEST_METHOD'} eq 'POST') {read STDIN, $query, $ENV{'CONTENT_LENGTH'};} else {$query = $ENV{'QUERY_STRING'};} if($query eq '') { foreach $net (keys %addr) { ($op, $mask) = split/\//, $net; $mask = 32 if ($mask eq ''); $pop = unpack "L", pack "C4", split /\./, $op; $pip = unpack "L", pack "C4", split /\./, $ip; $pmask = unpack "L", pack "B32", (1 x $mask); if (($pip & $pmask) == ($pop & $pmask)) { $now = $addr{$net}; last; } } print "Content-type: text/html\n\n"; print qq~ <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=cp1251"> <META HTTP-EQUIV="Pragma" CONTENT="No-Cache"> <META HTTP-EQUIV="Cache-Control" CONTENT="No-Cache,Must-Revalidate,No-Store"> <META HTTP-EQUIV="Expires" CONTENT="-1"> <title>Автоматическая настройка подключения</title> <script> function checkform() { if(settings.ip.value=="") { alert("Введите IP-адрес") return false; } if(settings.mask.value=="") { alert("Введите маску подсети") return false; } if(settings.gate.value=="") { alert("Введите основной шлюз") return false; } if(settings.dns.value=="") { alert("Введите Предпочитаемый DNS-сервер") return false; } return true; } </script> </head> <body bgcolor="#6696bc"> <center> <h2>Создание файла автоматической настройки подключения к локальной сети</h2> <h3>Внимание: файл настройки будет сохранять те значения, которые вы укажете сейчас.<br>Поэтому, пожалуйста, заполняйте поля внимательно.<br>Файл настройки работает для Windows NT/9x/XP/2000/2003.</h3> <FORM name="settings" ACTION="$cgi_script" METHOD="POST" onsubmit="return checkform()"> <table border="0" cellspacing="0" cellpadding="5" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <tr><td align=right>IP-адрес: <td><INPUT name="ip" type=text size=15 maxlength=15 value="$settings{$now}[0]"></td></tr> <tr><td align=right>Маска подсети: <td><INPUT name="mask" type=text size=15 maxlength=15 value="$settings{$now}[1]"></td></tr> <tr><td align=right>Основной шлюз: <td><INPUT name="gate" type=text size=15 maxlength=15 value="$settings{$now}[2]"></td></tr> <tr><td align=right>Предпочитаемый DNS-сервер: <td><INPUT name="dns" type=text size=15 maxlength=15 value="$settings{$now}[3]"></td></tr> <tr><td align=right><INPUT type=reset value="по умолчанию"> <td><input type=submit value=' скачать '></td></tr> </table> </FORM> <a href="$cgi_script">обновить</a></center></font><br></body></html> ~; } else { @pairs = split(/&/, $query); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $name =~ s/<([^>]|\n)*>//g; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/<([^>]|\n)*>//g; $p{$name} = $value; } $filename = "settings $p{ip}.vbs"; $file = qq~ Option Explicit On Error Resume Next Dim objWMIService Dim objNetAdapter Dim strComputer Dim strGateway Dim strGatewayMetric Dim strAddress Dim strIPAddress Dim strSubnetMask Dim colNetAdapters Dim errEnable Dim errGateways Dim objShell Dim intValue Dim Button Dim arrNewDNSServerSearchOrder Dim colNicConfigs Dim objNicConfig Dim strDNSServer Dim intSetDNSServers Dim strMask Dim strGate Dim strDns strComputer = "." strAddress = ("$p{ip}") strMask = ("$p{mask}") strGate = ("$p{gate}") strDns = ("$p{dns}") strIPAddress = Array(strAddress) strSubnetMask = Array(strMask) strGateway = Array(strGate) strGatewayMetric = Array(1) arrNewDNSServerSearchOrder = Array(strDns) Button = MsgBox ("Сейчас вам будет предложено применить настройки к каждой сетевой карте из имеющихся в системе." & vbCRLF & _ "Нажмите ''Ok'' для той сетевой карты, которую нужно настроить." & vbCRLF & _ "Для остальных карточек нажимайте ''Нет''." & vbCRLF & _ "Нажмите ''Отмена'', если хотите выйти." & vbCRLF & _ "Перед тем, как нажать кнопку ''Ok'' убедитесь, что подключение к локальной сети включено и сетевой кабель вставлен в сетевую карту." & vbCRLF & _ "Без этих условий настройки не сохранятся." & vbCRLF & vbCRLF & _ "Применяемые настройки: " & vbCRLF & _ "IP: " & strAddress & vbCRLF & _ "Маска: " & strMask & vbCRLF & _ "Шлюз: " & strGate & vbCRLF & _ "DNS: " & strDns & vbCRLF, vbOKOnly + vbInformation, "Настройка подключения") Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\\\" & strComputer & "\\root\\cimv2") Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = TRUE") for Each objNetAdapter in colNetAdapters Button = MsgBox ("Сетевая карта: " & vbCRLF & objNetAdapter.Caption & vbCRLF & vbCRLF & _ "Сохранять настройки для неё?" & vbCRLF & _ "Ок - сохранение настроек, Нет - нет, Отмена - выход", vbYesNoCancel + vbQuestion, "Сохранение настроек") If Button = vbYes Then errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) intSetDNSServers = objNetAdapter.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder) If errEnable = 0 Then Button = MsgBox ("IP изменен на: " & strAddress & vbCRLF & _ "Маска изменена на: " & strMask & vbCRLF & _ "Шлюз изменен на: " & strGate & vbCRLF & _ "DNS изменен на: " & strDns & vbCRLF & vbCRLF & "Для сетевой карты: " & vbCRLF & objNetAdapter.Caption, _ vbOKOnly + vbInformation, "Сохранение настроек") Else Button = MsgBox ("Ошибка. Некорректные настройки, скачайте файл настройки заново." & vbCRLF & _ "Файл настройки можно скачать по адресу:" & vbCRLF & _ "$url", vbOKOnly + vbCritical, "Ошибка настройки") End If End If if Button = vbCancel Then WScript.Quit End if Next WScript.Quit ~; print "Content-type: application/vbs\r\nContent-disposition: attachment; filename=\"$filename\"\r\n\r\n"; @a = split /\n/, $file; $, = "\r\n"; foreach $b (@a) { chomp $b; chomp $b; print "$b\r\n"; } } Который, будучи скормленным веб серверу, будет выдавать страничку. На страничке можно написать ип, маску, шлюз, днс и нажать кнопку "скачать". Кроме того, скрипт пытается по ИП адресу зашедшего на страничку определить и подставить его параметры. У меня они описаны в начале скрипта. Но так же можно указывать любые параметры. В результате нажатия кнопки "скачать" на ваш компьютер сохранится vbs файл с этими настройками. Файл будет примерно такой: Option Explicit On Error Resume Next Dim objWMIService Dim objNetAdapter Dim strComputer Dim strGateway Dim strGatewayMetric Dim strAddress Dim strIPAddress Dim strSubnetMask Dim colNetAdapters Dim errEnable Dim errGateways Dim objShell Dim intValue Dim Button Dim arrNewDNSServerSearchOrder Dim colNicConfigs Dim objNicConfig Dim strDNSServer Dim intSetDNSServers Dim strMask Dim strGate Dim strDns strComputer = "." strAddress = ("192.168.0.5") strMask = ("255.255.255.0") strGate = ("192.168.0.129") strDns = ("172.16.2.126") strIPAddress = Array(strAddress) strSubnetMask = Array(strMask) strGateway = Array(strGate) strGatewayMetric = Array(1) arrNewDNSServerSearchOrder = Array(strDns) Button = MsgBox ("Сейчас вам будет предложено применить настройки к каждой сетевой карте из имеющихся в системе." & vbCRLF & _ "Нажмите ''Ok'' для той сетевой карты, которую нужно настроить." & vbCRLF & _ "Для остальных карточек нажимайте ''Нет''." & vbCRLF & _ "Нажмите ''Отмена'', если хотите выйти." & vbCRLF & _ "Перед тем, как нажать кнопку ''Ok'' убедитесь, что подключение к локальной сети включено и сетевой кабель вставлен в сетевую карту." & vbCRLF & _ "Без этих условий настройки не сохранятся." & vbCRLF & vbCRLF & _ "Применяемые настройки: " & vbCRLF & _ "IP: " & strAddress & vbCRLF & _ "Маска: " & strMask & vbCRLF & _ "Шлюз: " & strGate & vbCRLF & _ "DNS: " & strDns & vbCRLF, vbOKOnly + vbInformation, "Настройка подключения") Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = TRUE") for Each objNetAdapter in colNetAdapters Button = MsgBox ("Сетевая карта: " & vbCRLF & objNetAdapter.Caption & vbCRLF & vbCRLF & _ "Сохранять настройки для неё?" & vbCRLF & _ "Ок - сохранение настроек, Нет - нет, Отмена - выход", vbYesNoCancel + vbQuestion, "Сохранение настроек") If Button = vbYes Then errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) intSetDNSServers = objNetAdapter.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder) If errEnable = 0 Then Button = MsgBox ("IP изменен на: " & strAddress & vbCRLF & _ "Маска изменена на: " & strMask & vbCRLF & _ "Шлюз изменен на: " & strGate & vbCRLF & _ "DNS изменен на: " & strDns & vbCRLF & vbCRLF & "Для сетевой карты: " & vbCRLF & objNetAdapter.Caption, _ vbOKOnly + vbInformation, "Сохранение настроек") Else Button = MsgBox ("Ошибка. Некорректные настройки, скачайте файл настройки заново." & vbCRLF & _ "Файл настройки можно скачать по адресу:" & vbCRLF & _ "http://elizovo.ru/cgi-bin/settings.cgi", vbOKOnly + vbCritical, "Ошибка настройки") End If End If if Button = vbCancel Then WScript.Quit End if Next WScript.Quit Файл выдает различные информационные сообщения. И что самое главное, при переборе сетевых адаптеров каждый раз спрашивает, применять ли настройки. Таким образом можно явно указать, для какой сетевухи сохранять параметры. У меня в сети используется один DNS сервер, поэтому и подставляется один. Но для двух серверов файл переписать нетрудно. 2Флэшмобер: Имена всех интерфейсов не нужны. Нужны только те, у которых есть TCP/IP прооткол. Как я понял из доков, это легко делается через WMI. Вот пример кода, реализующего это: Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = TRUE") И потом перебирая адаптеры из colNetAdapters.... ) Опытным путем было установлено, что такой запрос показывает только включенные адаптеры. И ещё просьба - если будете делать инсталлятор, оставьте место для программ типа inetaccess или wintray. Получится первосортная программа типа "Установка интернета на компьютер".

2neom: Оригинальные bmp файлы можешь содрать с помощью print screen ))

Имхо, VPN тут лишнее. И 2003 необязателен. Просто делаешь мост, а потом любым фаерволлом (т.е. фильтровальщиком пакетов) запрещаешь транзитный трафик для всех, кроме тех, кому это надо. Ну и скорость каким-нибудь шейпером шейпи )

Народ, какие предъявы, Juliya просто разместила объяву! =)

2Juliya: Попробуй по другому. Подскажу как: Уважаемые, кто хочет провести приятный вечер в компании девушки и настройки старгейзера?

Тогда это не распределение получится, а запасной канал на случай отказа основного.

Это вы кого под психов подводите :mrrr: меня? :tongue: =)

От это порадовало. Чтобы и для бабушки и для мамы и для дочки =) И чтоб мама смотрела, когда дочку можно пускать на дискотеку, а когда нелья ;-) 2Allsoft: И не стыдно поделки продавать? К лицензионным антивирусам у нас скепсис, как и оптимизм в зависимости от соотношения цена/качество )

2Pentalgin: Вообще да, можно сделать так, чтоб одна часть локалки шла через один канал, другая через другой. На вряхе это достигается с помощью PBR: http://ipfw.ism.kiev.ua/pbr.html Просто я не считаю это объединением каналов ) На сквиде балансировка каналов делается хитро: Запускается сквид, у которого в конфиге tcp_outgoing_address 192.168.1.2 где 192.168.1.2 - это адрес шлюза на интерфейсе, смотрящем в сторону одного канала. Потом запускается ещё сквид, у которого в конфиге tcp_outgoing_address 192.168.2.2 Где пишешь адрес шлюза через второго провайдера. Потом поднимаешь третий сквид, которому указываешь 2 cache-peer'а с опцией round-robin. Таким образом запросы будут идти через первый, второй, первый, второй сквиды. И вот на третий сквид и заворачиваешь весь трафик. Если нужно более подробное описание, поищи в интернете статью на эту тему. Еще мне пришел в голову такой способ использовать каналы для балансировки. Если есть узел А с 4 каналами и есть узел Б с одним широким каналом. То можно как-нибудь через каждый канал точки А сделать по виртуальному туннелю до Б. Потом настраиваем ipfw так, чтобы он с вероятностью 1/4 посылал пакет через первый канал. Если не выпала вероятность, то с вероятностью 1/4 посылал через второй канал. В случае неудачи второго случая посылал бы через третий канал, тоже с вероятностью 1/4. Ну и то, что осталось без всяких вероятностей посылал бы через 4 канал. В ipfw наступление правила с какой-то вероятностью реализуется средствами DUMMYNET. Если очень нужно/хочется, то можете попробовать и такое )

І З МЕНЕ ЦЬОГО ВИСТАЧИТ ! Я НЕ МОЖУ ТАК ПРОДОВЖУВАТИ ЖИТИ ДАЛІ И з мене цьОГО вистачит? Это что за русские слова такие ) ПРОДОВЖУВАТИ ЖИТИ ДАЛИ - тоже интересные слова.

2frig: Вот так рождается и оглашается уровень приемлемости ) 2emon: Как можно объяснить тот факт, что только что вышедшую FreeBSD 6.2 народ качает сразу, как только та появилась на ftp серверах. Причем её сразу можно устанавливать на сервера в качестве серверной ОСи. А винду... лично я предпочитаю ставить на домашний компьютер только через годик, когда выйдет хотя бы SP1. Причем разработчики FreeBSD не продают свою систему за кучу баксов, ибо проект не коммерческий. И лицензионное соглашение там простенькое, никаких гарантий и т.д. А windows - коммерческая ОСь и microsoft берет на себя определенные обязательства по качеству и лицензионное соглашение там на несколько страниц. И штаты программистов тут несопоставимые. То есть логичнее было бы предположить, что windows перед релизом будет вылизваться куда лучше какой-то там бесплатной ОСи. Ан нет, все наоборот. Так что винды не глючат и *nix не глючит. Но винды не глючат глючнее )