VB: IPadress och nätnamn

Imports System.Net
Imports System.Net.Dns

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim IPList(25) As IPAddress
Dim hostName As String
Dim i As Integer
hostName = Dns.GetHostName()
IPList = GetHostEntry(hostName).AddressList
TextBox1.Text = ""
TextBox1.Text += hostName & vbCrLf
TextBox1.Text += IPList(0).ToString & vbCrLf
MsgBox(hostName & ": " & IPList(0).ToString)
End Sub

End Class