Ip bude v jiném místě pole "h.AddressList.GetValue(0)" nebo si zkuste:
Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)
Dim adresy() As System.Net.IPAddress = h.AddressList
For Each ip As System.Net.IPAddress In adresy
If ip.AddressFamily = Sockets.AddressFamily.InterNetwork Then
MessageBox.Show(ip.ToString)
End If
Next ip
|