[amel27]

Wu-Tang
ОФФТОП: эта тема для обсуждения открытого кода, а не "закрытых" приложений

BrAWo

если они не правильные то поменять их на правильные »

может не заморачиваться лишними строчками кода и сразу вбивать без проверки?

Код:

Dim $aDNSList[2]=["192.168.0.1","192.168.0.2"]

$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colNetCards = $objWMIService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For $objNetCard In $colNetCards
    $intErrorSetDNSServerSearchOrder = $objNetCard.SetDNSServerSearchOrder($aDNSList)
Next