;Autor: Flype

EnableExplicit

Procedure.s GetIpAddr(ComputerName.s)
  Protected wsa.WSADATA
  Protected *host.HOSTENT
  
  If ComputerName
    If WSAStartup_((1<<8|1), wsa.WSADATA) = #NOERROR
      *host.HOSTENT = gethostbyname_(ComputerName)
      WSACleanup_()
      If *host
        ProcedureReturn PeekS(inet_ntoa_(PeekL(PeekL(*host\h_addr_list))))
      EndIf
    EndIf
  EndIf
EndProcedure

Procedure.s GetHostName()
  Protected Size.l
  Protected Host.s
  
  Size.l = 32
  Host.s = Space(Size)
  GetComputerName_(@Host, @Size)
  ProcedureReturn Host
EndProcedure

MessageRequester("","IP-Adresse: "+GetIpAddr(GetHostName()),0)