AppleScript to quickly change your dns setting

Here ist a neat little applescript to quickly change your DNS settings.
Useful when you often have to switch between your routers DNS and for example Unblock-Us.

set dnsList to {"Unblock US", "Default"}
set selectedDNS to {choose from list dnsList with title "DNS Server to set"}

display dialog "Admin Password to change network settings" default answer ""
set pw to text returned of result

log item 1 of selectedDNS
log "test"

if item 1 of selectedDNS is {"Unblock Us"} then
 log "Unblock US"
 do shell script "networksetup -setdnsservers Wi-Fi 208.122.23.23" user name "fred" password pw with administrator privileges
else if item 1 of selectedDNS is {"Default"} then
 log "Default DNS"
 do shell script "networksetup -setdnsservers Wi-Fi 192.168.1.1" user name "fred" password pw with administrator privileges
else
 log "Got no valid value"
end if