FoxPress – Octubre 2000

La Dirección IP de tu máquina

(Del FoxBoard)

Hugo Chavez mostró este código:

xIp = TomaIp()

? xIp

Procedure TomaIp

Set Talk off

Local s,p

Create Cursor cIp(l c(80))

run /n c:\windows\winipcfg.exe /batch c:\windows\temp\temp.txt

Select cIp

Append From c:\windows\temp\temp.txt Sdf

Go top

Locate For "DIREC" $ UPPER(cIp->l) OR "ADDR" $ UPPER(cIp->l)

s = l

Use In cIp

p = At(":",s)

Return AllTrim(Substr(s,p+1,15))

Este código es válido pero no funciona sobre sistemas NT debido a que no existe la función winipcfg.exe y el modo batch no va muy fino.

La alternativa es este otro código que funciona sobre sistemas NT y Winx

LOCAL F, X, Y, U, K

F = SYS(2023)+;

"\"+SUBSTR(SYS(2015),1,8)+".txt"

X = SUBSTR(SYS(0),1,AT(" ", SYS(0))-1)

RUN PING &X > &F

Y = FILETOSTR(F)

DELETE FILE &F

U = AT("[", Y)+1

K = AT("]", Y)

? SUBSTR(Y,U,K-U)

El sistema es muy parecido pero usa la instrucción PING que se encuentra en los sistemas NT.

FoxPress – Noviembre de 2000