Required Namespace:
Imports System.Net
and the code:
Dim computername As String = Dns.GetHostName
Dim localIPs As IPAddress() = Dns.GetHostAddresses(computername)
Imports System.Net
Dim computername As String = Dns.GetHostName
Dim localIPs As IPAddress() = Dns.GetHostAddresses(computername)