Conocer el Numero de IP

[davidbarrio]

Estimados

Como puedo saber desde FW el numero de IP de la PC donde se esta ejecutando la aplicacion

gracias

david

[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,

[davidbarrio]

Correcto.... MUCHAS GRACIAS !!!

David

[cmsoft]

cIP := GetHostByName(GetHostName())
Tambien te puede serviro

[acuellar]

cmsoft

Con
cIP := GetHostByName(GetHostName())

No funciona.

Saludos,

Adhemar

[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

[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