Respuesta de Cesar RalFito
1
Una forma de conocer la dirección IP del equipo es invocando una función API,
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)
Lo primero que realiza este código es definir algunas variables, luego obtiene el
directorio de archivo temporales y genera un archivo único. A continuación se obtiene
información sobre la unidad de red y estas valores se le pasan como parámetro al programa PING.
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)
Lo primero que realiza este código es definir algunas variables, luego obtiene el
directorio de archivo temporales y genera un archivo único. A continuación se obtiene
información sobre la unidad de red y estas valores se le pasan como parámetro al programa PING.
