; ****************************************************************************
; * By PBFrance : http://www.pbfrance.com/?url=source&cmd=viewer&val=79
; ****************************************************************************

;
; INITIALISATION DE LA BIBLIOTHEQUE NETWORK.
;

InitNetwork() 

;
; PROCEDURE DE CHERCHE DE L'ADRESSE IP.
;

Procedure.i GetIPByHost(hostname.s = #Null$)
;
;
;
  Protected.i iconnect, result = 0
  ;  
  If hostname <> #Null$
    iconnect = OpenNetworkConnection(hostname, 0, #PB_Network_UDP)
    If iconnect
      result = GetClientIP(iconnect)
      CloseNetworkConnection(iconnect)
    EndIf
  EndIf
  ;
  ProcedureReturn result
  
EndProcedure

;
; AFFICHAGE DE L'ADRESSE IP SI POSSIBLE
;

Debug IPString(GetIPByHost("hostname"))