[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

[SendMessage]

Попадалась инфа, что IPEnabled

в семерке некорректно работает. Надо бы потестить семерочникам. Чтобы уж сомнений в ту или другую сторону не было.
Про 2003 тоже писали:

I noticed that when you IPEnabled for each adapter on server 2003 will return True whether they are connected or not. however, on windows 2008, only those adapters that are connected will have IPEnabled set to True.

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Ivan Bardeen]

в семерке некорректно работает. Надо бы потестить семерочникам. Чтобы уж сомнений в ту или другую сторону не было. »

На семерке отработал с ожидаемым результатом.