VBNET编程获得计算机IP及名称 (转载)

用VBNET编程的方式获得计算机IP及名称的代码如下：

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Address() As System.Net.IPAddress
        Dim i As Integer
        Address = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList
        TextBox1.Text = System.Net.Dns.GetHostName().ToString()
        For i = 0 To UBound(Address)
            TextBox2.Text = TextBox2.Text & Chr(13) & Address(i).ToString()
        Next
    End Sub