Antwort
Dim IPs As Net.IPAddress = Net.Dns.GetHostEntry(My.Computer.Name).AddressList(1) Label1.Text = IPs.ToString Dim IPADDR As System.Net.IPAddress IPADDR = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0) Label3.Text = (IPADDR.ToString())