[amel27]

Код:

strComputer = "."                ' компьютер
strIP = Array("192.168.0.1")     ' IP адрес
strMask = Array("255.255.255.0") ' маска подсети
strGateway = Array("")           ' шлюз по умолчанию
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