********************
FUNCTION ipprivada()
********************
cIpPriv := INETGETHOSTS(NETNAME())[1]
RETURN (cIpPriv)
********************
FUNCTION ippublica()
********************
LOCAL cIpPublica := 'NIL'
LOCAL oIp:=WIN_OLECREATEOBJECT("MSXML2.XMLHTTP")
IF HB_ISOBJECT(oIp)
oIp:SEND()
cIpPublica := LEFT(ALLTRIM(oIp:responseText),16)
ENDIF
RETURN (cIpPublica)
*To see physical device addresses bound with active IP interfaces use:
*
*Para ver las direcciones de dispositivos físicos enlazadas con interfaces IP activas, utilice:
******************
FUNCTION direcip()
******************
LOCAL aIFace
FOR EACH aIFace IN hb_socketGetIFaces( , .t. )
mip_=aIFace[ HB_SOCKET_IFINFO_ADDR ]
if type('mip_')='U'
mip_="Indefinido"
endif
if type('mip_')='N'
mip_=str(mip_,len(mip_))
endif
mmac_=aIFace[ HB_SOCKET_IFINFO_HWADDR ]
if type('mmac_')='U'
mmac_="Indefinido"
endif
if type('mmac_')='N'
mmac_=str(mmac_,len(mmac_))
endif
msginfo("IP: "+mip_+" MAC: "+mmac_)
NEXT
RETURN