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