winbox

отпишите кто на сколько попал ?

у меня была 3,20 настроенная, обновил до 3,22 и пожалел, пришлось все заново строить...

голосуйте против всех! если наберутся 30% голосов будет 3й тур выборов только без тех кто был во втором

а я сижу с нодом и оперой ничего не вылазит, жизнь прекрасна и мозги не болят что там за скрипты))))

микротик + тазик + 4 простейшие карточки Тп-линк 54 мбитные + 4метра пигтейло и 4 панельки 12 дб пока что 15 клиентов полет нормальный... по 1-2 мбита на рыло

интела нет

50 шт новых сетевых карт Tp-Link, Gembird, OEM по 3$ / шт icq:242378088 0949148304 могу зделать ящик 100шт

бегут сцуки с укома!!!! мы уже за подключение берем дсл модемами!!!

продам отакие штуки, пихают их в длинные коробки с разными дырками и т д... есть 2 шт icq 242378088 094 914 83 04

что никто не юзает родной менеджер в тике ?

куплю дохлую Длинк 2100 или живой усилитель LX550 icq 242378088

интересно а П-296 тоже меряет ?

Вам сюда. Поднимаете HotSpot-сервер, делаете авторизацию либо по MAC-адресу, либо PPPoE/PTPP/L2TP, либо по логин/пароль. Ну, и, собственно, активируете User Manager, это что-то вроде внутреннего радиус-сервера у микротика. Дальше http_://mikrotik_ip/userman - управление юзерами через веб-морду, http_://mikrotik_ip/user - что-то вроде личного кабинета юзера. самое толковое решение, без биллинга

оцените '-- Network setup script version 2.03 '-- cr = +chr(13)+chr(10) L_Welcome_MsgBox_Message_Text = _ "Укажите какие пункты настройки необходимо выполнить:"&cr&_ "1. Отключить службу 'Обозреватель компьютеров'"&cr&_ "2. Отключить службу 'Веб-клиент'"&cr&_ "3. Отключить службу 'NetMeeting Remote Desktop Sharing'"&cr&_ "4. Отключить службу 'Диспетчер сеанса справки для удаленного рабочего стола'"&cr&_ "5. Отключить службу 'Удаленный реестр (Remote Registry Service)'"&cr&_ "6. Отключить службу 'Служба обнаружения SSDP (SSDP Discovery Service)'"&cr&_ "7. Отключить службу 'Службы терминалов (Terminal Services)'"&cr&_ "8. Отключить службу 'Служба индексирования (Indexing Service)'"&cr&_ "9. Отключить прокси сервер '"&cr&_ "A. Создать ВПН подключение к 'ProNeT'"&cr&_ "B. Настроить Брандмауэр Windows"&cr&_ "C. Установить рабочую группу ProNeT" L_Welcome_MsgBox_Title_Text = "Настройка сети.Версия 2.02 (с) ProNeT" so_entry = "[ProNeT]"&cr&_ "Encoding=1"&cr&_ "Type=2"&cr&_ "AutoLogon=0"&cr&_ "UseRasCredentials=1"&cr&_ "DialParamsUID=315453"&cr&_ "Guid=CC34DB8F83C00649A4153A152484B0CB"&cr&_ "BaseProtocol=1"&cr&_ "VpnStrategy=2"&cr&_ "ExcludedProtocols=0"&cr&_ "LcpExtensions=1"&cr&_ "DataEncryption=8"&cr&_ "SwCompression=1"&cr&_ "NegotiateMultilinkAlways=0"&cr&_ "SkipNwcWarning=0"&cr&_ "SkipDownLevelDialog=0"&cr&_ "SkipDoubleDialDialog=0"&cr&_ "DialMode=1"&cr&_ "DialPercent=75"&cr&_ "DialSeconds=120"&cr&_ "HangUpPercent=10"&cr&_ "HangUpSeconds=120"&cr&_ "OverridePref=15"&cr&_ "RedialAttempts=3"&cr&_ "RedialSeconds=60"&cr&_ "IdleDisconnectSeconds=0"&cr&_ "RedialOnLinkFailure=0"&cr&_ "CallbackMode=0"&cr&_ "CustomDialDll="&cr&_ "CustomDialFunc="&cr&_ "CustomRasDialDll="&cr&_ "AuthenticateServer=0"&cr&_ "ShareMsFilePrint=0"&cr&_ "BindMsNetClient=0"&cr&_ "SharedPhoneNumbers=0"&cr&_ "GlobalDeviceSettings=0"&cr&_ "PrerequisiteEntry="&cr&_ "PrerequisitePbk="&cr&_ "PreferredPort=VPN6-0"&cr&_ "PreferredDevice=Р_РёР_РёРїР_С_С' WAN (L2TP)"&cr&_ "PreferredBps=0"&cr&_ "PreferredHwFlow=1"&cr&_ "PreferredProtocol=1"&cr&_ "PreferredCompression=1"&cr&_ "PreferredSpeaker=1"&cr&_ "PreferredMdmProtocol=0"&cr&_ "PreviewUserPw=1"&cr&_ "PreviewDomain=0"&cr&_ "PreviewPhoneNumber=0"&cr&_ "ShowDialingProgress=1"&cr&_ "ShowMonitorIconInTaskBar=1"&cr&_ "CustomAuthKey=-1"&cr&_ "AuthRestrictions=872"&cr&_ "TypicalAuth=2"&cr&_ "IpPrioritizeRemote=1"&cr&_ "IpHeaderCompression=0"&cr&_ "IpAddress=0.0.0.0"&cr&_ "IpDnsAddress=0.0.0.0"&cr&_ "IpDns2Address=0.0.0.0"&cr&_ "IpWinsAddress=0.0.0.0"&cr&_ "IpWins2Address=0.0.0.0"&cr&_ "IpAssign=1"&cr&_ "IpNameAssign=1"&cr&_ "IpFrameSize=1006"&cr&_ "IpDnsFlags=0"&cr&_ "IpNBTFlags=1"&cr&_ "TcpWindowSize=0"&cr&_ "UseFlags=0"&cr&_ "IpSecFlags=0"&cr&_ "IpDnsSuffix="&cr&_ "NETCOMPONENTS="&cr&_ "ms_server=0"&cr&_ "ms_msclient=0"&cr&_ "ms_psched=1"&cr&_ "cntx_vpcnets2=0"&cr&_ "MEDIA=rastapi"&cr&_ "Port=VPN6-0"&cr&_ "Device=Р_РёР_РёРїР_С_С' WAN (L2TP)"&cr&_ "DEVICE=vpn"&cr&_ "PhoneNumber=10.1.1.100"&cr&_ "AreaCode="&cr&_ "CountryCode=1"&cr&_ "CountryID=1"&cr&_ "UseDialingRules=0"&cr&_ "Comment="&cr&_ "LastSelectedPhone=0"&cr&_ "PromoteAlternates=0"&cr&_ "TryNextAlternateOnFail=1"&cr options = InputBox(L_Welcome_MsgBox_Message_Text, _ L_Welcome_MsgBox_Title_Text, _ "12345689ABC" ) If options = "" Then WScript.Quit End If Dim WSHShell, fso, fh, AUDesktop, lnk, pbk Set WSHShell = WScript.CreateObject("WScript.Shell") If InStr(options, "1") > 0 then ' Обозреватель компьютеров WShShell.Run "sc stop Browser", 7, true WShShell.Run "sc config Browser start= disabled", 7, true end if If InStr(options, "2") > 0 then ' Веб-клиент WShShell.Run "sc stop WebClient",7,true WShShell.Run "sc config WebClient start= disabled", 7, true end if If InStr(options, "3") > 0 then ' NetMeeting Remote Desktop Sharing WShShell.Run "sc stop mnmsrvc", 7, true WShShell.Run "sc config mnmsrvc start= disabled", 7, true end if If InStr(options, "4") > 0 then ' Диспетчер сеанса справки для удаленного рабочего стола WShShell.Run "sc stop RDSessMgr", 7, true WShShell.Run "sc config RDSessMgr start= disabled", 7, true end if If InStr(options, "5") > 0 then ' Удаленный реестр (Remote Registry Service) WShShell.Run "sc stop RemoteRegistry", 7, true WShShell.Run "sc config RemoteRegistry start= disabled", 7, true end if If InStr(options, "6") > 0 then ' Служба обнаружения SSDP (SSDP Discovery Service) WShShell.Run "sc stop SSDPSRV", 7, true WShShell.Run "sc config SSDPSRV start= disabled", 7, true end if If InStr(options, "7") > 0 then ' Службы терминалов (Terminal Services) WShShell.Run "sc stop TermService", 7, true WShShell.Run "sc config TermService start= disabled", 7, true end if If InStr(options, "8") > 0 then ' Служба индексирования (Indexing Service) WShShell.Run "sc stop cisvc", 7, true WShShell.Run "sc config cisvc start= disabled", 7, true end if If InStr(options, "9") > 0 then dim WShell set WShell = Wscript.CreateObject("Wscript.Shell") WShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", "10.1.1.1:3128", "REG_SZ" '-- WShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", "proxy_name:8080", "REG_SZ" Set WShell = Nothing WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD" '-- WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", proxy '-- WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", "" '-- WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\DisablePasswordCaching", 1, "REG_DWORD" end if '-- If InStr(options, "9") > 0 then ' Routing '-- WShShell.Run "route add -p 193.111.242.0 mask 255.255.255.0 193.111.241.1" '-- WShShell.Run "route add -p 193.111.243.0 mask 255.255.255.0 193.111.241.1" '-- end if If InStr(options, "A") > 0 then ' VPN WShShell.Run "rasphone -r ""ProNeT""", 7, true Set fso = CreateObject("Scripting.FileSystemObject") pbk = "%AllUsersProfile%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk" pbk = WSHShell.ExpandEnvironmentStrings(pbk) Set fh = fso.OpenTextFile(pbk, 8, true) fh.Write(so_entry) fh.Close ' Ярлык AUDesktop = WSHShell.SpecialFolders("AllUsersDesktop") Set lnk = WSHShell.CreateShortcut(AUDesktop & "\ProNeT.lnk") lnk.Description = "ProNeT" lnk.Arguments = "-d ""ProNeT""" lnk.TargetPath = "rasphone" lnk.Save WShShell.Run "explorer.exe ::{7007ACC7-3202-11D1-AAD2-00805FC1270E}" end if If InStr(options, "B") > 0 then ' ICMP WShShell.Run "netsh firewall set opmode mode= ENABLE exceptions= ENABLE", 7, true WShShell.Run "netsh firewall set icmpsetting type= 8 mode= ENABLE", 7, true end if If InStr(options, "C") > 0 then ' WORKGROUP strWorkgroup = "ProNeT" Set objNetwork = CreateObject("WScript.Network") strComputer = objNetwork.ComputerName Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _ strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" _ & strComputer & "'") ReturnValue = objComputer.JoinDomainOrWorkGroup(strWorkgroup, _ NULL, NULL , NULL, 0) end if WScript.Echo( "Настройки произведены. Проверьте подключение") vbs как вам мое творение ?

Не понял одного момента. Как юзер скачивает чего-то, если у него сеть не настроена? вот когда работала тогда и скачал ))) так что там на щет автоВПНподключения ?

это не надолго.. ----------------------------------------------------------------- Могу только пожелать удачи в ваших оптимистичных начинаниях . +100500 интересно сколько уже клиентов подключили ?

это барабашка!!! у меня такое было но он сам убежал))))

0x080ac0a8000a спасибо!

помогите склеить код для 10.0.0.0/8 через 192.168.0.10

DHCP где и как это сделать ?

Мужики памагайте) сеть провайдера 10.0.0.0/8 в ней берем инет и локальные ресурсы наша сеть 192.168.0.0/24 где есть наши ресурсы + маскарадим локалку провайдера + впн сервер дает инет проблема когда подключаемся по впн отваливается локалка провайдера Может ли тик давать маршруты на другую локалку при подключении к нашему впн серверу ? а еще лучше что бы локальные ресурсы работали только при запущенном впн подключении но без шейпера прописать маршруты всем юзерам отпадает, и батники тоже

автору темы советую задуматься о каком-то еще канале... отключит вас уком за перепродажу и побегут огошники назад...

могу дать виндовый кс 1,6 такой же в сети стоит

а конкурентов нет ?

Голову я никому не морочил, а заказал себе услугу, что есть выгодно и мне и провайдеру, эту услугу предоставляющую. И для монтажников я никаких проблем не создавал, им даже не надо было заморачиваться над тем, как завести кабель мне в квартиру. Бесплатное подключение это хорошо, но никак не означает что меня должны лишить услуги другого провайдера, при этом еще и украв его оборудование (кабель - тоже оборудование). Сколько у меня будет провайдеров - решать мне лично. Хоть десяток. тебе обрезали кабель что бы ты не вернулся к старому провайдеру, захочешь вернуться назад разреж на 2 пары, пускай тянут заново...