Public Function GetHostName(ByVal IP As String)
        Try
            Dim ret As String
 
            ret = Dns.GetHostEntry(IP).HostName
            If ret = IP Then
                ret = (Dns.GetHostByAddress(IP).HostName)
            End If
            Return ret
        Catch
            Return String.Empty
        End Try
    End Function
    Public Function getcomputerName(ByVal ip As String)
        Dim strIPAddress As String
        strIPAddress = System.Net.Dns.GetHostEntry("").AddressList(0).ToString()
        Dim host As IPHostEntry = Dns.GetHostEntry(strIPAddress)
        MessageBox.Show("Host Name: " & host.HostName & "; IP Address: " & _
          strIPAddress)
    End Function