' Return the IP address Public Function GetIP() As String Dim lcIP As String = "" Dim loIPInterfaceProperties As System.Net.NetworkInformation.IPInterfaceProperties = Nothing Dim loNetworkInterface As System.Net.NetworkInformation.NetworkInterface = Nothing Dim loNetworkInterfaces As System.Net.NetworkInformation.NetworkInterface() = Nothing Dim loUnicastIPAddressInformation As System.Net.NetworkInformation.UnicastIPAddressInformation = Nothing Dim loUnicastIPAddressInformationCollection As System.Net.NetworkInformation.UnicastIPAddressInformationCollection = Nothing ' Initialization loNetworkInterfaces = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces() ' For each network interface For Each loNetworkInterface In loNetworkInterfaces ' Initialization loIPInterfaceProperties = loNetworkInterface.GetIPProperties() loUnicastIPAddressInformationCollection = loIPInterfaceProperties.UnicastAddresses ' For each Unicast IP address For Each loUnicastIPAddressInformation In loIPInterfaceProperties.UnicastAddresses ' If this is the primary address If loUnicastIPAddressInformation.Address.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then lcIP = loUnicastIPAddressInformation.Address.ToString() End If Next Next Return lcIP End Function