gall

Попробуй так.. Вроде работает strComputer = "." Dim ip Dim home Dim kv Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") kv = inputbox ("Ввести номер кв") If kv = ("10") Then ip = ("12") ElseIf kv = ("11") Then ip = ("9") ElseIf kv = ("12") Then ip = ("8") Else WScript.Echo "Ошибка" End If Возможно и не самое лучшее решение.

Интересная тема. Вот только батником решить все настройки невозможно. Поэтому, пришлось почитать про VBScript, и вот что вышло в итоге. Скопировать, вставить где надо свои значения и сохранить с расширением .vbs. Может есть программер который сможет на базе этого слепить екзешник будет вообще супер. ' Настройка параметров TCP/IP для работы в сети ' Windows Server 2003 : Yes ' Windows XP : Yes ' Windows 2000 : Yes ' Windows NT 4.0 : Yes ' Windows 98 : Yes '================================================ ' Прописываем ИП, маску сети, шлюз strComputer = "." Dim ip Dim home Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") ip = inputbox ("Введите последнюю цифру Вашего IP адреса (192.168.1.хх)") strIPAddress = Array("192.168.1."& (ip)) strSubnetMask = Array("255.255.255.0") strGateway = Array("192.168.1.222") strGatewayMetric = Array(1) For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) If errEnable = 0 Then msgbox ("Ваш IP изменен на: 192.168.1."&ip) Else WScript.Echo "Ошибка. Введен непопустимый символ" End If Next '================================================ 'Прописываем ДНС On Error Resume Next arrNewDNSServerSearchOrder = Array("192.168.1.14", "192.168.1.222") Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each objNicConfig In colNicConfigs If Not IsNull(objNicConfig.DNSServerSearchOrder) Then For Each strDNSServer In objNicConfig.DNSServerSearchOrder Next End If intSetDNSServers = objNicConfig.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder) Next Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each objNicConfig In colNicConfigs If Not IsNull(objNicConfig.DNSServerSearchOrder) Then For Each strDNSServer In objNicConfig.DNSServerSearchOrder Next End If Next '================================================ ' Вгоняем комп в рабочую группу (названия групп = номеру дома) On Error Resume Next Const JOIN_DOMAIN = 0 home = inputbox ("Введите номер дома") strDomainName = (home) Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colCompSystems = objWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystem") For Each objCompSystem In colCompSystems intJoinDomain = objCompSystem.JoinDomainOrWorkgroup(strDomainName,,,, JOIN_DOMAIN) Next Set colCompSystems = objWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystem") For Each objCompSystem In colCompSystems Next '=============================================== 'Пишем юзеру сообщение, что все сделано Dim objShell, intValue Set objShell = CreateObject("WScript.Shell") intValue = objShell.Popup("Компьтер был добавлен в рабочую группу -" & strDomainName & "." & vbCRLF & "Для продолжения работы необходимо перезагрузить компьтер.", , , vbExclamation + vbOKOnly) '=============================================== 'Ребутим комп, чтобы активировать рабочую группу Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Reboot() Next P.S: Рабочие группы у меня по номерам домов, ну а вы можете варьировать как вам надо. Удачи.

Продам ""Антарес - 115". Комплект ЦТ-2 + УТ (1шт). ICQ 198691

чистая правда.... Вчера за день два раза приходилось ходить в гости к таким "танкистам" :loop:

Аська то отпадет, а вот закачка в FlashGet шпарит без проблем -------- Весь косяк был в прозрачном прокси и в желании сквида сохранить коннект любой ценой. Вылечил только добавив в OnDisconnect squid -k interrupt sleep 2 squid Понимаю что это некрасиво :tongue: Подскажите как лучше

Подключить куда? Учет чего? P.S.: Хочу того, незнаю чего. Уточни чего тебе нужно поиметь на выходе.

31 - ушел от сервака рано, в 10-00 31-1 - культурно, из расчета 0,7 на одного 1-2 - что-то где-то замкнуло (нифига не помню), спасибо жене за ребут, часа в 3 ночи понял, что я дома. 2-3 - ниграмма... фу.. гадость (реальность отвратительна) 4 - сново возле сервака, 0,5 на троих, жизнь обретает нормальные очертания....

Очень даже "втему".... Я и не проверил этот вариант СПАСИБО!!!! P.S.: Понять бы еще ПОЧЕМУ так.

Поздравление.

Конфигуратор ваш. Сервер сегодня скачал заново, пропатчил и собрал. Выдаю все в картинках. Раз картинка Два картинка И три картинка Какие еще картинки нужно...

Даю отзыв.. Пропатчил, собрал, запустил, работает. При попытке положить на счет абоненту не целое число денег вылетает "Неверное значение." Уже перепробовал все вариации точек и запятых на всех раскладках. Куда копать??? Где лечить??

У меня на серверах вообще нету CD/DVD приводов. Debian устанавливаю прямо из интернета. Если канал позволяет, то попробуй установить прямо с инета. http://www.us.debian.org/CD/netinst/ Скачиваеш стартовый образ, записываеш на флешку и в путь. Ставится только минимальная базовая система, ну а дальше aptitude и доставляй нужные пакеты. Если в аптитуде нету нужной версии софта, то я доустанавливаю софт через webmin. P.S.:Вся процедура, без установки KDE (300+МБ), занимает часа 2-3 (инет у меня слабенький 256к )

Чтобы не писать одно и тоже вот мой вопрос: http://local.com.ua/forum/index.php?showtopic=5642&st=96 Насколько это реально сделать...И нужно ли это комуто еще, кроме меня?

Доброго времени суток. Поясните бестолковому, о чем он мне кричит при сборке stg-2.402.9.7.0 : g++ -c user.cpp -g3 -Wall -I ../../include -DLINUX user.cpp: In member function `void USER::Run()': user.cpp:715: warning: unused variable `time_t sec' При этом сборка не обрывается, и более того...вроде все работает. На что это может повлиять, и если таки может, то как это устранить? Собирал на: -Debian 3.1 -gcc version 3.3.5 -Kernel 2.4.27-3-386

Ты б хоть уточнил в чем собирал. :tongue:

Таки да Настройки -> прочее, а тама справа окошко с титлом "Нижняя таблица" и выбирай, что тебе там показать...(У кого день варенья)

Аналогичная ситуация. Только вчера скачал и установил сервер stg-2.4-2006.10.20-03.58.02.tgz и конфигуратор 1.86.8. Сервер работает без проблем, а вот с конфигуратором что то непонятное происходит. При любых изменениях кричит "неверное значение", для чистоты опыта ставил 1.83.8, тоже самое. Пробовал старый конфигуратор 1.7х, все работает нормально. Где искать края??

Смена тарифа предполагает выбор - "Немедленно" или "В следующем месяце". Будет ли реализована такая возможность для полей "Отключен" и "Заморожен"? Было бы очень удобно, если бы можно было кроме вышеупомянутых опций добавить еще одну опцию с датой, как при смене тарифа. Таким образом, допустим, если юзер просит заморозить ему акк с 15 числа, ненужно будет писать всякие записки и напоминалки. Аналогично с отключением, юзер не оплатил доступ вовремя, тыкнул галку отключить "в следующем месяце" и спи спокойно.

Адназанача руками ! разрешить или запретить - это как привязка к маку, как выдача нового пароля - это элемент безопасности, который должен контролироваться Админом ! Однозначно Админом...И только Админом. Если гдето и запореш бочину, то железно будеш знать кто виноват

Сделал таки привязку IP-MAC. Но это с учетом того, что подсеть одна OnConnect: #! /bin/sh # Login LOGIN=$1 #user IP IP=$2 #cash CASH=$3 #user ID ID=$4 #user MAC MAC1=`sed -n 's/Userdata1=//p' /var/stargazer/users/$LOGIN/conf` MAC2=`arp $IP | awk '/'$IP'/{print $3}'` if [ $MAC1 = $MAC2 ] then в добрый путь echo "C `date +%Y.%m.%d-%H.%M.%S` $IP $CASH " >> /var/stargazer/users/$LOGIN/connect.log else болт и досвидания echo "ERROR `date +%Y.%m.%d-%H.%M.%S` $MAC1 <--> $MAC2 " >> /var/stargazer/users/$LOGIN/badmac.log fi Сейчас опыты на юзверях провожу, пока боков не заметил. Если кто чего нашел кривого, подскажите, что не так, или как сделать проще... ................ За помощь гигантское спасибо товарищу Nab FREESCO router

Я не спорю. Контролировать IP и MACи можно....Я говорю о привязке IP-MAC в скрипте.....Именно в скрипте коннекта самого СТГ а не сторонних программ. Будет ли это реализовано вообще?

Возможно привычка к виндусовому софту, возможно еще чтото, но хотелось бы видеть в скриптах OnConnect наличие переменной с MAC-адресом. Таким образом мы получаем 4-х кратную защиту в связке: логин-пасс и IP-MAC... В данный момент не запускаю СТГ в массы именно из-за опасений безопасности логин-пасс, так как глупый юзер может дать их своему соседу или другу из благих побуждений, а тот раздать остальным, смена IP займет пару минут, что есть нехорошо...Итог, все юзают инет с одного акка, а это уже совсем недопустимо... Таким образом при наличии MACa можно будет из скрипта OnConnect вызвать модуль в iptables -m mac что сразу отсеит тупых ламеров, а с умными бороться уже путем морального внушения (в районе почек :о)