Warning IPHostEntry, GetHostByName is obsoleted

Dim ipv4Addresses As IPAddress() = Array.FindAll(Dns.GetHostEntry(String.Empty).AddressList, Function(a) a.AddressFamily = AddressFamily.InterNetwork)


fuente: https://stackoverflow.com/questions/1059526/get-ipv4-addresses-from-dns-gethostentry