Posted to tcl by hypnotoad at Mon Jun 27 17:00:17 GMT 2016view raw

  1. % twapi::get_network_adapter_info {{1F13349D-4110-423C-8F06-ABA795E892B0}}
  2. % foreach netif [twapi::get_network_adapters] { puts [list $netif [twapi::get_ne
  3. twork_adapter_info $netif]] }
  4. {{1F13349D-4110-423C-8F06-ABA795E892B0}} {}
  5. {{846EE342-7039-11DE-9D20-806E6F6E6963}} {}
  6. {{858058DC-6F67-4679-AE31-BCB0DE7CAF89}} {}
  7. {{AC158A84-066E-45E8-BEE5-8E8A917D2430}} {}
  8. {{AC48D0DD-D855-474D-A8B6-633E4342BA45}} {}
  9. %