Shell, Ping Return Value Code

[cykopat]

Does anyone have a FAQ or code for Pinging an IP address from a field, writing the results to a file and returning those results to a textbox on a form?

Patrick

 

[PWise]

create this Pinger.BAT file

@ echo off
ping %%1 > C:\ping.txt

create a linked table to c:\ping.txt
run this code from vb

dim rst as recordset
a=shell("pinger.bat " & me.text1
set rst = currentdb.openrecordset("ping")
do while not rst.eof
res = res & cbcrlf & rst(0)
rst.movenext
loop
me.text2=res

not tested but should work