Imports System.Net
 
 
   Public Function GetHostName(ByVal IP As String) 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

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control