Obtener Direccion IP

[JoseAlvarez]

Saludos a todos los participantes del foro.

¿Cómo puedo leer desde mi aplicación la IP de cada equipo que la accesa en una red local?

La idea es crear una funcion como especie de bitacora que guarde las operaciones que se hacen desde cada estacion.

Gracias de antemano.

[acuellar]

José

Intenta así

Code: Select all  Expand view

 PCName:=UPPER(ALLTRIM(GetEnv("COMPUTERNAME")))
 IP:=GetHostByName(PCName)
 

[Carlos Mora]

Saludos a todos los participantes del foro.

¿Cómo puedo leer desde mi aplicación la IP de cada equipo que la accesa en una red local?

La idea es crear una funcion como especie de bitacora que guarde las operaciones que se hacen desde cada estacion.

Gracias de antemano.

Una sugerencia: ¿Que te parece usar NetName (El nombre en la red del equipo)? Lo de la IP es muy relativo: Puede venir asignada por DHCP, pueden haber diferentes IPs segun se conecte por Wifi o Cable, etc. Con el nombre de red del equipo la referencia es siempre la misma, sin importar que NIC usa.

Un saludo

[FranciscoA]

Mira si esto te ayuda:
/

Code: Select all  Expand view

/---------------//Conocer IP del ordenador
Function GetIPs(cEquipo)
local cIP
local cNombServ:=Upper(GetPvProfString("Config","NombreServidor","SERVER",cIniFile))

DEFAULT cEquipo := "LOCAL"

   WsaStartUp()

 if upper(cEquipo) == "LOCAL"
   cIP := GetHostByName( GetHostName() )   //IP equipo local
 elseif upper(cEquipo) == "SERVIDOR"
   cIP := GetHostByName(cNombServ)    //IP equipo en red segun nombre dado
 endif

   //GetHostByAddress("192.168.0.14")    // NOMBRE del equipo en RED segun IP dada
   //NetName(.f.)    // NOMBRE del equipo en RED
   //NetName(.t.)    // NOMBRE del usuario del equipo en RED

   WsaCleanUp()

Return cIP
 

Saludos

[JoseAlvarez]

Hola a todos..Feliz fin de semana.

Adhemar, muchas gracias. Funcionó perfecto.

Carlos, estas en lo cierto y te tomé la idea. Ahora guardo en la tabla de bitácora tanto la IP como el nombre de la PC.

Francisco, gracias por atender mi consulta. Tu código adaptado a mi caso también funciona muy bien.

¡ Gracias a todos !

¡ Gracias al Foro!

¡ Gracias a Linares y gracias a FW !