VBScript: изменение настроек TCP/IP (Gateway, DNS, WINS)

Скрипт пригодится при автоматизации изменения настроек TCP/IP с помощью групповых политик Active Directory. Переменная "strComputer" определяет компьютер, к которому будет применяться настройка (точка означает "localhost"). При наличии "User Account Control" выполняем только с повышением привилегий.

On Error Resume Next

' "." for localhost or remote computername
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True and DHCPEnabled = False")

For Each objNetCard in colNetCards

' Setup Gateways:
arrGateways = Array("192.168.1.1")
objNetCard.SetGateways(arrGateways)

' Setup DNS:
arrDNSServers = Array("192.168.1.11","192.168.1.12")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)

' Setup WINS:
strPrimaryServer = "192.168.1.11"
strSecondaryServer = "192.168.1.12"
objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer

Next