Page 1 of 1
Conocer el Numero de IP
Posted: Tue Apr 19, 2016 5:44 pm
by davidbarrio
Estimados
Como puedo saber desde FW el numero de IP de la PC donde se esta ejecutando la aplicacion
gracias
david
Re: Conocer el Numero de IP
Posted: Tue Apr 19, 2016 6:16 pm
by jrestojeda
David...
Aquí va:
Code: Select all
// OBTENER LA IP DE LA PC //
Function GetIpAddress()
Local cName :=NetName(.F.)
Local aHosts:={}
Local cIp := ""
INetInit()
aHosts:=INetGetHosts (cName)
IF aHosts == NIL
aHosts:=INetGetAlias (cName)
ENDIF
IF Len (aHosts) > 0
cIp:=aHosts[1]
ENDIF
INetCleanUp()
Return cIp
//
Espero sea lo que estás necesitando.
Saludos,
Re: Conocer el Numero de IP
Posted: Wed Apr 20, 2016 10:32 am
by davidbarrio
Correcto.... MUCHAS GRACIAS !!!
David
Re: Conocer el Numero de IP
Posted: Thu Apr 21, 2016 3:09 pm
by cmsoft
cIP := GetHostByName(GetHostName())
Tambien te puede serviro
Re: Conocer el Numero de IP
Posted: Thu Apr 21, 2016 3:37 pm
by acuellar
cmsoft
Con
cIP := GetHostByName(GetHostName())
No funciona.
Saludos,
Adhemar
Re: Conocer el Numero de IP
Posted: Fri Apr 22, 2016 1:07 pm
by cmsoft
Efectivamente Adhemar
Me funciona en mis programas, pero segun leo en el foro en ingles en este link
http://forums.fivetechsupport.com/viewt ... etHostName hay que poner antes
Code: Select all
WsaStartUp()
cIP := GetHostByName(GetHostName())
MsgInfo(cIp)
Gracias por la observacion
Re: Conocer el Numero de IP
Posted: Sat Apr 23, 2016 2:02 pm
by acuellar
Perfecto.
Gracias
Para saber de un equipo de la red es así:
Code: Select all
WsaStartUp()
cIP := GetHostByName("NOMBREPC.dominio.com")
MsgInfo(cIp)
Con GetEnv("PROCESSOR_ARCHITEW6432") se obtiene si es x64 ó x32
Alguien sabe cómo obtener la versión de windows que está instalado?
Saludos,
Adhemar