遍歷主機的所有IP地址

　　Framework類庫的SystemNet名稱空間提供了一個簡單的網絡編程接口Dns類提供了簡單的域名解析功能它是一個靜態的類可以通過Internet Domain Name System（DNS）得到指定主機的信息DNS查詢得到的主機信息是一個IPHostEntry類的實例如果指定的主機在DNS數據庫中有多於一個的EntryIPHostEntry將包含多個地址及其別名下面的代碼實現了得到機器所有IP的功能

　　Imports System
Imports SystemNet

　　Module Module

　　Sub Main()
    Dim strMachineName As String

　　得到主機名
    strMachineName = DnsGetHostName()
    ConsoleWriteLine(Host Name: + strMachineName)

　　通過名字得到主機
    Dim ipHost As IPHostEntry
    ipHost = DnsGetHostByName(strMachineName)

　　你可以得到網絡上任何站點的DNS數據信息
    語法如下
    ipHost = DnsGetHostByName(<a _blank>XML</a>)
    ConsoleWriteLine(Host Aliases: + ipHostAliasesLengthToString())

　　以數組的形式返回相關主機的地址信息
    Dim ipAddr() As IPAddress = ipHostAddressList
    Dim count As Integer

　　Enumerate the IP Addresses
    For count = To ipAddrGetUpperBound()
      ConsoleWrite(IP 地址 {}{} count _
          ipAddr(count)ToString)
    Next
  End Sub

　　End Module

From:http://tw.wingwit.com/Article/program/net/201311/11540.html