Call GetHostFromIP(IPAddress)

Call GetHostFromIP("192.168.0.1")

Public Function GetHostFromIP(ByVal sIPAddress As String) As String
  Dim WSAD As WSAData
  Dim nIP As Long
  Dim nResult As Long
  Dim nLen As Long
  Dim sHostname As String
  Dim m_Host As HOSTENT
 
  If WSAStartup(WS_VERSION_REQD, WSAD) = ERROR_SUCCESS Then
    nIP = inet_addr(sIPAddress)
    nResult = gethostbyaddr(nIP, 4, 2)
    If nResult <> 0 Then
      nLen = Len(m_Host)
      sHostname = String$(260, 0)
      CopyMemory m_Host, nResult, nLen
      CopyMemory ByVal sHostname, m_Host.hName, 260
      sHostname = Left$(sHostname, InStr(sHostname, Chr$(0)) - 1)
    End If
    Call WSACleanup
  End If
  GetHostFromIP = sHostname
End Function

- DSL-Network.info -
Deine DSL & Lan-Gaming Community!
Anmelden und mitmachen. Kostenlos.
www.DSL-Network.info