Цитата garanov:
|
хочу поменять DNS на удаленном компе »
|
Код:
_NetAdapterSetDNS("192.168.1.1,192.168.1.3")
Func _NetAdapterSetDNS($sDNSList, $sHostName = "localhost")
Local $objWMIService = ObjGet( "winmgmts:\\"& $sHostName &"\root\CIMV2")
Local $aDNSList = StringSplit($sDNSList, ",;|", 2)
Local $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True', "WQL", 0x30)
If IsObj($colItems) Then
For $colItem In $colItems
$colItem.SetDNSServerSearchOrder($aDNSList)
Return True
Next
EndIf
Return False
EndFunc ;==> _NetAdapterSetDNS
