topic-36273

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Obtener Direccion IP
Posted: Fri Oct 26, 2018 03:57 PM

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.

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Obtener Direccion IP
Posted: Fri Oct 26, 2018 07:42 PM

José

Intenta así

Code (fw): Select all Collapse

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

Saludos,

Adhemar C.

Carlos Mora

Posts: 989

Joined: Thu Nov 24, 2005 03:01 PM

Re: Obtener Direccion IP
Posted: Sat Oct 27, 2018 10:56 AM

JoseAlvarez wrote: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

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Obtener Direccion IP
Posted: Sat Oct 27, 2018 02:35 PM

Mira si esto te ayuda:
/

Code (fw): Select all Collapse

/---------------//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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Obtener Direccion IP
Posted: Sat Oct 27, 2018 08:10 PM

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 !

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

FiveTech Support Forums

Continue the discussion