Страница 1 из 1

[Offtopic] Автоконфигуратор PPPOE

Добавлено: Вт янв 27, 2009 8:01 am
RusB1T
Подскажите существует ли в природе софт (кроме как в windows server), который позволяет создавать автоматически pppoe соединение?

Добавлено: Вт янв 27, 2009 8:53 am
~AsmodeuS~
новый Amon

Re: [Offtopic] Автоконфигуратор PPPOE

Добавлено: Вт янв 27, 2009 11:52 am
ran
RusB1T писал(а):Подскажите существует ли в природе софт (кроме как в windows server), который позволяет создавать автоматически pppoe соединение?
что значит "создавать автоматически"? Конфигурировать? Если клиентское - yast из дистра опенсюзи :) А ваще - чего там его конфигурировать-то?

Добавлено: Вт янв 27, 2009 12:07 pm
RusB1T
что значит "создавать автоматически
Создать подключение по pppoe в XP на стороне клиента.

Добавлено: Вт янв 27, 2009 12:35 pm
RusB1T
~AsmodeuS~ писал(а):новый Amon
В amon'е данную функцию не нашел.
Или он только под заказ?

Добавлено: Ср янв 28, 2009 8:07 am
ran
RusB1T писал(а):
что значит "создавать автоматически
Создать подключение по pppoe в XP на стороне клиента.
ну если сильно напряжно клацнуть несколько раз мышой в мастере сетевых подключений можно извратиться и написать батник

Добавлено: Ср янв 28, 2009 12:15 pm
~AsmodeuS~
в ком версии Amon есть возможность автосоздания VPN/PPPoE

Re: [Offtopic] Автоконфигуратор PPPOE

Добавлено: Чт мар 05, 2009 1:35 pm
Окаянный поросёнок
RusB1T писал(а):Подскажите существует ли в природе софт (кроме как в windows server), который позволяет создавать автоматически pppoe соединение?
Можно, ничего и мудрить не стоит...я у себя в локалке делал авто-установщик всего-всего-всего...начиная с чата - оканчивая p2p клиентом на локальный хаб и VPN подключением к инэту

Вот например скрипт для настраивания клинтской тачки на использование DHCP:

Код: Выделить всё

strComputer = "."
Set objWMIService = GetObject(_
    "winmgmts:\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration " _
        & "where IPEnabled=TRUE")
 
For Each objNetAdapter In colNetAdapters
    errEnable = objNetAdapter.EnableDHCP()
Next
А вот на ДНС:

Код: Выделить всё

On Error Resume Next
 
strComputer = "."
arrNewDNSServerSearchOrder = Array("ХХХ.ХХХ.ХХХ.ХХХ", "ХХХ.ХХХ.ХХХ.ХХХ")
 
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
А с подключением так еще проще:
1. Создаем у себя подключение
2. выдергиваем у себя файлик:

Код: Выделить всё

%USERPROFILE%\Application Data\Microsoft\Network\Connections\Pbk\
3. создаем SFX архив который бы подсовывал в тихом режиме этот файлик на клиентскую тачку

вот и все:)дерзай!это самый простой способ без использования Amon :wink:

Добавлено: Чт мар 05, 2009 6:41 pm
NiTr0
Я писал конфигуратор ВПН - пишется за вечер на с++; еще 2 дня заняла гламурная шкурка на него + создание ярлыка на рабочем столе. Сырцы, выполняющие каждое действие, есть в инете. Натолкнул меня на это топик на наге. Туда же я и ссылки кидал для жаждущих повторить...
Там же - и основные грабли описал...