[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