Determinar la Dirección IP del Equipo 
Una  forma  de  conocer  la  dirección  IP del  equipo  es invocando una función API, pero comentare otra forma de  hacerlo  y  es pasándole el parámetro al programa  RUN del  DOS,  el  único inconveniente es que se  mostrara  la  ventana  del DOS,  pero eso también tiene solución y será explicada en la sección de APIS

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.