Dim sAddr As String
        Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
        sAddr = CType(h.AddressList.GetValue(0), IPAddress).ToString