# 1.001
$servers = "208.67.222.222", "208.67.220.220"

# Functions
function IsAdmin() {
$wid     = [System.Security.Principal.WindowsIdentity]::GetCurrent()
$prp     = new-object System.Security.Principal.WindowsPrincipal($wid)
$adm     = [System.Security.Principal.WindowsBuiltInRole]::Administrator
$IsAdmin = $prp.IsInRole($adm)
$IsAdmin

}

function SetDNSForNIC($s, $n) {
$dns = $n.DNSServerSearchOrder | Foreach {"$($_)"}
$description = $NIC.Description
Write-Host "OLD DNS settings for $description = $dns"

$NIC.SetDNSServerSearchOrder($s) | out-null

Write-Host "NEW DNS settings for $description = $s"
}

# Init
if (IsAdmin)
{
(get-host).UI.RawUI.Backgroundcolor="DarkRed"
clear-host
$NICs = Get-WMIObject Win32_NetworkAdapterConfiguration -computername . | where{$_.IPEnabled -eq $true}

$i = 1
$message = $choices = $nic_descriptions = @()
Foreach ($NIC in $NICs) {
$d = $NIC.Description
$nic_descriptions += $d
$message += "$i - $d`n"
$choices += New-Object System.Management.Automation.Host.ChoiceDescription "&$i", "Select $d."
$i = $i + 1
}   
$options = [System.Management.Automation.Host.ChoiceDescription[]]($choices)

$title = "Select Adapter to Update DNS Settings for:"
$result = $host.ui.PromptForChoice($title, $message, $options, 0)

$nic_descriptions[$result]
# exit

Foreach ($NIC in $NICs) {
If ($NIC.Description  -eq $nic_descriptions[$result] ) {
SetDNSForNIC $servers $NIC
}
}   
Write-Host "Press any key to continue ..."
$x = $host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")

}   
Else {
$this_script = $MyInvocation.MyCommand.Path
Start-Process "$psHome\powershell.exe" -Verb Runas -ArgumentList "-command `"$this_script`""
}