遍历主机的所有IP地址

王朝other·作者佚名 2008-05-19

.net Framework类库的System.Net名称空间提供了一个简单的网络编程接口。Dns类提供了简单的域名解析功能，它是一个静态的类，可以通过Internet Domain Name System（DNS）得到指定主机的信息，DNS查询得到的主机信息是一个IPHostEntry类的实例。如果指定的主机在DNS数据库中有多于一个的Entry，IPHostEntry将包含多个地址及其别名。下面的代码实现了得到机器所有IP的功能。

Imports System

Imports System.Net

Module Module1

Sub Main()

Dim strMachineName As String

'得到主机名

strMachineName = Dns.GetHostName()

Console.WriteLine("Host Name: " + strMachineName)

'通过名字得到主机

Dim ipHost As IPHostEntry

ipHost = Dns.GetHostByName(strMachineName)

'你可以得到网络上任何站点的DNS数据信息。

'语法如下：

'ipHost = Dns.GetHostByName("<a href="http://dev.21tx.comhttp://dotnet.chinaitlab.com/xml/" target="_blank">XML</a>.sz.luohuedu.net")

Console.WriteLine("Host Aliases: " + ipHost.Aliases.Length.ToString())

'以数组的形式返回相关主机的地址信息

Dim ipAddr() As IPAddress = ipHost.AddressList

Dim count As Integer

'Enumerate the IP Addresses

For count = 0 To ipAddr.GetUpperBound(0)

Console.Write("IP 地址 {0}：{1} ", count, _

ipAddr(count).ToString)

End Sub

End Module