Hector
20-09-2010, 17:24
Нужно написать файл для автоматической настройки сетевых параметров (ip, dns, рабочая группа и т. д). пошурудив по форуму нашел такое решение
strComputer = "." ' компьютер
strIP = Array("192.168.1.2") ' IP адрес
strMask = Array("255.255.255.0") ' маска подсети
strGateway = Array("192.168.1.1") ' шлюз по умолчанию
strDNS = Array("") ' список DNS серверов
' Подключение к WMI компьютера
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
' Получение коллекции конфигураций сетевых TCP/IP адаптеров
Set colCON = objWMI.ExecQuery("Select * " & _
" From Win32_NetworkAdapterConfiguration " & _
" Where IPENabled=TRUE")
For Each objCON In colCON
objCON.EnableStatic strIP,strMask ' установка адреса/маски
objCON.SetGateways strGateway ' установка шлюза
objCON.SetDNSServerSearchOrder strDNS ' установка DNS
Exit For
Next
но нужно еще изменить название рабочей группы, и последнюю цифру ip желательно генерировать автоматически. кроме того, желательно в конце выводить сообщение об окончании работы
p. s. можно ли подобным образом настроить и vpn?
strComputer = "." ' компьютер
strIP = Array("192.168.1.2") ' IP адрес
strMask = Array("255.255.255.0") ' маска подсети
strGateway = Array("192.168.1.1") ' шлюз по умолчанию
strDNS = Array("") ' список DNS серверов
' Подключение к WMI компьютера
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
' Получение коллекции конфигураций сетевых TCP/IP адаптеров
Set colCON = objWMI.ExecQuery("Select * " & _
" From Win32_NetworkAdapterConfiguration " & _
" Where IPENabled=TRUE")
For Each objCON In colCON
objCON.EnableStatic strIP,strMask ' установка адреса/маски
objCON.SetGateways strGateway ' установка шлюза
objCON.SetDNSServerSearchOrder strDNS ' установка DNS
Exit For
Next
но нужно еще изменить название рабочей группы, и последнюю цифру ip желательно генерировать автоматически. кроме того, желательно в конце выводить сообщение об окончании работы
p. s. можно ли подобным образом настроить и vpn?