[Ivan Bardeen]

Это изменение на "автомат" (скрипты vbs)

Код:

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
    objNetAdapter.EnableDHCP()
    objNetadapter.SetDNSServerSearchOrder()
Next

Этот "вбивает" настройки

Код:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration where IPEnabled = TRUE")

    strIPAddress = Array("192.168.0.100")
	strSubnetMask = Array("255.255.255.0")
	strGateway = Array("192.168.0.1")
	strGatewayMetric = Array(1)
	arrDNSServers = Array("192.168.0.10", "192.168.0.20")

For Each objNetCard in colNetCards
    DNSServers = objNetCard.SetDNSServerSearchOrder(arrDNSServers)
    StaticIP = objNetCard.EnableStatic(strIPAddress, strSubnetMask)
    DefGW = objNetCard.SetGateways(strGateway, strGatewaymetric)
Next