[Offtopic] Автоконфигуратор PPPOE
Добавлено: Вт янв 27, 2009 8:01 am
Подскажите существует ли в природе софт (кроме как в windows server), который позволяет создавать автоматически pppoe соединение?
ABillS - ~AsmodeuS~ Billing System
http://abills.net.ua/forum/
что значит "создавать автоматически"? Конфигурировать? Если клиентское - yast из дистра опенсюзиRusB1T писал(а):Подскажите существует ли в природе софт (кроме как в windows server), который позволяет создавать автоматически pppoe соединение?
Создать подключение по pppoe в XP на стороне клиента.что значит "создавать автоматически
В amon'е данную функцию не нашел.~AsmodeuS~ писал(а):новый Amon
ну если сильно напряжно клацнуть несколько раз мышой в мастере сетевых подключений можно извратиться и написать батникRusB1T писал(а):Создать подключение по pppoe в XP на стороне клиента.что значит "создавать автоматически
Можно, ничего и мудрить не стоит...я у себя в локалке делал авто-установщик всего-всего-всего...начиная с чата - оканчивая p2p клиентом на локальный хаб и VPN подключением к инэтуRusB1T писал(а):Подскажите существует ли в природе софт (кроме как в windows server), который позволяет создавать автоматически pppoe соединение?
Код: Выделить всё
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
Код: Выделить всё
%USERPROFILE%\Application Data\Microsoft\Network\Connections\Pbk\