Posted to tcl by mjanssen at Sun May 06 17:35:44 GMT 2007view raw

  1. package require Tcl 8.2
  2. package require dns
  3. ::dns::configure -nameserver 10.0.0.2
  4. set tok [::dns::resolve 154.193.245.88.tr.countries.nerd.dk]
  5. ::dns::wait $tok
  6. ::dns::result $tok
  7. ::dns::cleanup $tok