Determinar la Dirección IP del Equipo
Visual Fox Pro, Trucos Comentarios ( 0 ) »
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)
Por: David Amador T