To get you going, here is a quick and dirty attempt... make sure to paste the UDFs to the bottom of your script.

Untested
 Code:
$newdnsservers="nnn.nnn.nnn.nnn,mmm.mmm.mmm.mmm"
$olddnsservers="xxx.xxx.xxx.xxx,yyy.yyy.yyy.yyy"
$serverlist=  ;array of computernames...list them manually here, use a file, or query AD/NT

for each $server in $serverlist 
  For each $netconnection in Enumnetworkconnections(1,$server)
    ? $Server + " : " + $netconnection + " : "
    $mac=split($netconnection,",")[1]
    if GetIPOptions("DNSServers",$Server,$mac)=$olddnsservers
      $RC=setipoptions("DNSServers",$newdnsservers,$server,$mac) 
      @serror
    endif  
  next
next
_________________________
(... better days ahead)