averiguar ip

de varias formas

oSock = CREATEOBJECT('MSwinsock.Winsock')
?oSock.LocalIP

*************************
otra forma ..


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)


David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523

"Juan Carlos" escribió en el mensaje
news:#

Hola todos, necesito averiguar la ip de una maquina para luego poder
capturarla, el problema es que en general la persona que maneja la maquina
que debo capturar no sabe nada de computacion por lo que debria ser

mediante

una funcion que no requiera mas que ejecutar un pequeño exe, en donde me
diga la ip en un text para que leugo me lo digan y listo. Es esto posible

Gracias