dhcp

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
 
For Each objNetAdapter In colNetAdapters
    errEnable = objNetAdapter.EnableDHCP()
Next


statico

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")


strIPAddress = Array("200.175.111.111")
strSubnetMask = Array("255.255.255.248")
strGateway = Array("200.175.111.112")
strGatewayMetric = Array(1)
strDNS = Array("200.176.2.10","200.221.11.98") 
 
For Each objNetAdapter in colNetAdapters
     errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
     errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
 
     objNetAdapter.SetDNSServerSearchOrder strDNS
Next