FoxPro/Visual FoxPro - HACER PING A UNA DIRECCION Y SABER SI RESPONDE

Hola, tengo un pequeño problema, hace mucho tiempo instalaron en la red de un cliente una impresora y ahora nadie sabe la dirección IP, me gustaría hacer un pequeño programa para que diciendo una IP de inicio y otra de final vaya realizando consultas para ver cual es la dirección que responde.

Con todos los ordenadores apagados menos la impresoara me respondera esa sola dirección.

Salguien sabe como puedo hacer eso.

GRACIAS

Este ejemplo lo saque de esta pagina.
Perdon pero no recuerdo el autor
.
RUN ping "www.lawebdelprogramador.com" > c:PingIp.TXT
&& Donde NOM_PC =Nombre de la PC y PingIP es el archivo donde se guardara el resultado
cTxt = FILETOSTR([c:PingIp.TXT])
cTxt = SUBSTR(cTxt,AT("[",cTxt)+1)
? LEFT(cTxt,AT("]",cTxt) -1)

puedes utilizar esta pequeño codigo para saber las impresoras compartidas en Red

oWSH = Createobject("WScript.Network")
oImp = oWSH.EnumPrinterConnections()

For i=1 To oImp.Count-1
?oImp.Item(i)
Endfor


o puedes tratar de imprimir el setup de tu impresora y ah podras obtener la direccion IP de tu impresora

Suerte

ipconfig
es un comando del dos k te permite saber la ip de cualquier equipo