.NET中如何获得IP地址和主机名

下面程序中用到的一些类的说明如下：
'IPHostEntry 是为 Internet 主机地址信息提供容器类。
‘Dns用来提供简单的域名解析功能
’Dns 类是一个静态类，它从 Internet 域名系统 (DNS) 检索关于特定主机的信息。

‘在 IPHostEntry 类的实例中返回来自 DNS 查询的主机信息。如果指定的主机在 DNS 数据库中有多个入口，则 IPHostEntry 包含 多个 IP 地址和别名。
imports system.net

'To get a www address
Dim i As Integer
Dim ipE As IPHostEntry = Dns.GetHostByName("www.vbcity.com")    // IPHostEntry 类的实例  在DNS 数据库中查询关于主机 www.vbcity.com的信息
Dim IpA() As IPAddress = ipE.AddressList   //类的实例中返回来自 DNS 查询的主机信息，获取或设置与主机关联的 IP 地址列表。
For i = 0 To IpA.GetUpperBound(0)      //如果指定的主机在 DNS 数据库中有多个入口
    Console.Write("IP Address {0}: {1} ", i, IpA(i).ToString)   //，则 IPHostEntry 包含 多个 IP 地址和别名。
Next

'To get local address
Dim sHostName As String
Dim i As Integer
sHostName = Dns.GetHostName()     //获取本地计算机的主机名。
Dim ipE As IPHostEntry = Dns.GetHostByName(sHostName)    //获取指定 DNS 主机名的 DNS 信息。
Dim IpA() As IPAddress = ipE.AddressList    //获取或设置与主机关联的 IP 地址列表。
For i = 0 To IpA.GetUpperBound(0)
    Console.Write("IP Address {0}: {1} ", i, IpA(i).ToString)
Next

imports system.netDim i As Integer Dim ipE As IPHostEntry = Dns.GetHostByName("")    //Dim IpA() As IPAddress = ipE.AddressList   //For i = 0 To IpA.GetUpperBound(0)      //    Console.Write("IP Address {0}: {1} ", i, IpA(i).ToString)   //Next Dim sHostName As String Dim i As Integer sHostName = Dns.GetHostName()     //Dim ipE As IPHostEntry = Dns.GetHostByName(sHostName)    //Dim IpA() As IPAddress = ipE.AddressList    //For i = 0 To IpA.GetUpperBound(0)     Console.Write("IP Address {0}: {1} ", i, IpA(i).ToString) Next