老问题 新麻烦 VB脚本 大求救！！！！！！

问题很老了，就是局域网里有人使用什么什么TMD让别人吊线的软件，终结者了，剪刀手了。
我想这样解决：每隔 1 分钟 ping 一下网关，如果 ping 的通，则下一分钟继续 ping ，如果 ping 不通，则执行一个批处理文件，（事先写好的，就比如aaa.bat）.执行批处理文件的时候，ping 网关要继续。最后给程序一个出口，让我可以推出。
要求，用VB脚本，或JAVA编也行。
还有 ping 网关的CMD窗口，我要看见。

不行的

用了我半天时间做了一个,方法如下:
1、在C盘建一个批处理a.bat内容如下：
ping -n 10 172.16.229.1 > c:\a.txt
上面的172.16.229.1（网关）自己改一下。

2、在C盘再建一个批处理b.bat内容是你要运行的批处理文件。

3、把以下内容保存为.vbs

on error resume next
do until shifoutuichu=vbyes
dim fd,f
set w=createobject("wscript.shell")
Set fso = CreateObject("Scripting.FileSystemObject")
w.run "c:\a.bat",1,true
set f=fso.opentextfile("c:\a.txt",1,true)
for i=1 to 4
fd=f.readline
next
f.close

Set f = fso.OpenTextFile("c:\12.txt",2,true) '以写的方式打开。
f.write fd
f.close

Set f = fso.OpenTextFile("c:\12.txt",1,true)
aaa=f.read(7)
f.close

If aaa="Request" then
w.run "c:\b.bat",1,true 'c:\b.bat这是你要运行的批处理
shifoutuichu=msgbox ("是否退出该程序？",vbyesno+4096,"系统提示")
Else
END IF