Posted to tcl by mjanssen at Sun May 06 18:15:58 GMT 2007view raw

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