• retrieve from AD all the server names
• check if the server is responding to ping test
• list the current network information (IP address and DNS info)
• filter the network cards to update with an IP address like 10.x.x.x
• set the new DNS server ip addresses on the remote network cards (“10.1.1.1″,”10.1.1.2″,”10.1.1.3”). There is a randomize function on this list to have a different order for the primary, secondary,.. DNS servers on each servers
• list the updated network settings

Script (with Microsoft Active Directory module loaded : import-module activedirectory) :

import-module activedirectory
$server_list = Get-ADComputer -LDAPFilter "(operatingsystem=Windows*Server*)" 
ForEach($ServerName In $server_list){
	$hostname = $ServerName.Name
	$PingStatus = Gwmi Win32_PingStatus -Filter "Address = '$hostname'" | Select-Object StatusCode
	If ($PingStatus.StatusCode -eq 0){
		Write-Host "----------------------------------------------------------------------------"
		write-host $hostname " : "
		$nics = Gwmi Win32_NetworkAdapterConfiguration -Comp $hostname | Where{($_.IPEnabled -eq "TRUE")}
		foreach ($nic in $nics) {
			if ($nic.IPAddress -like "10.*"){
				Write-Host "IP Address : " $nic.IPAddress
				Write-Host "DNS servers : " $nic.DNSServerSearchOrder
				$newDNSRandom = ($newDNS = "10.1.1.1","10.1.1.2","10.1.1.3") |Get-Random -Count 3
				$x = $nic.SetDNSServerSearchOrder($newDNSRandom)
				if($x.ReturnValue -eq 0){
					$newQueryString = Gwmi Win32_NetworkAdapterConfiguration -Comp $hostname | Where{($_.IPEnabled -eq "TRUE")}
					foreach ($i in $newQueryString){
						if ($i.IPAddress -like "10.*"){
							Write-Host "`tSuccessfully Changed DNS Servers on " $hostname
							Write-Host $hostname " NEW DNS SERVERS : " $newQueryString.DNSServerSearchOrder
							Write-Host "----------------------------------------------------------------------------"
						}
					}
				}
				else{
					Write-Host "`tFailed to Change DNS Servers on " $hostname
					Write-Host "----------------------------------------------------------------------------"
				}
			}
		}
	}
}

Script (with Quest Active Directory module) :

$server_list = Get-QADComputer -OSName "Windows*Server*"
ForEach($ServerName In $server_list){
	$hostname = $ServerName.Name
	$PingStatus = Gwmi Win32_PingStatus -Filter "Address = '$hostname'" | Select-Object StatusCode
	If ($PingStatus.StatusCode -eq 0){
		Write-Host "----------------------------------------------------------------------------"
		write-host $hostname " : "
		$nics = Gwmi Win32_NetworkAdapterConfiguration -Comp $hostname | Where{($_.IPEnabled -eq "TRUE")}
		foreach ($nic in $nics) {
			if ($nic.IPAddress -like "10.*"){
				Write-Host "IP Address : " $nic.IPAddress
				Write-Host "DNS servers : " $nic.DNSServerSearchOrder
				$newDNSRandom = ($newDNS = "10.1.1.1","10.1.1.2","10.1.1.3") |Get-Random -Count 3
				$x = $nic.SetDNSServerSearchOrder($newDNSRandom)
				if($x.ReturnValue -eq 0){
					$newQueryString = Gwmi Win32_NetworkAdapterConfiguration -Comp $hostname | Where{($_.IPEnabled -eq "TRUE")}
					foreach ($i in $newQueryString){
						if ($i.IPAddress -like "10.*"){
							Write-Host "`tSuccessfully Changed DNS Servers on " $hostname
							Write-Host $hostname " NEW DNS SERVERS : " $newQueryString.DNSServerSearchOrder
							Write-Host "----------------------------------------------------------------------------"
						}
					}
				}
				else{
					Write-Host "`tFailed to Change DNS Servers on " $hostname
					Write-Host "----------------------------------------------------------------------------"
				}
			}
		}
	}
}