[amel27]

Код:

sComputer = "."

' подключение к компьютеру
Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")

' получение конфигурации сетевого адаптера, где не включен DHCP
Set oNetAdapters = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
 
' включение DHCP
For Each oNetAdapter In oNetAdapters
    oNetAdapter.EnableDHCP()
    oNetAdapter.SetDNSServerSearchOrder(null)
Next

[Wu-Tang]

amel27,
Отлично, все пашет.
А не могли вы добавить комментарии в vbs, также как и выше:

Код:

strComputer = "."
strIP = Array("192.168.0.1")
strMask = Array("255.255.255.0")
strGateway = Array("")
strDNS = Array("")

Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
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

  Exit For
Next

[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

[Wu-Tang]

Спасибо.

[Vx1123]

Добрый день! Хочется реанимировать тему, т.к. тоже встал вопрос о смене статических настроек на многих компьютерах. Нужно изменить только параметры ШЛЮЗА. Для одного компьютера скрипт выполняется нормально, также, запуская на своем компьютере (под учеткой доменного админа) для другого компьютера сети по имени, скрипт также отрабатывает, шлюз меняется. Каким образом указать несколько компьютеров?

Код:

strComputer = "."
strComputer = "."
strComputer = "."

- Если так указывать имена комьютеров, скрипт не работает.
Или пойти дальше и сделать проверку по самому адресу всех компьютеров домена, чтобы проверял наличие шлюза и при совпадении 192.168.126.129 менял на 192.168.126.1?

[Busla]

Vx1123, может, раз пошла такая пьянка, всё-таки сделать правильно и перейти на dhcp? ;-)

[AlexM22204]

amel27, а можно в ваш скрипт из поста #13 вставить команду снятия выделения с пункта "Протокол Интернета версии 6 (TCP|IPv6) в окне "Подключения по локальной сети - свойства"