中国DOS联盟

方案
一直ping 163.com
如果返回TIME OUT
执行一个脚本重起路由(已有)
等待一分钟后重新开始ping

附上VBS版重起路由脚本
我重起的是路由猫 需要用VBS来终结TELNET进程

Set sh=WScript.CreateObject("WScript.Shell") 

sh.Run "telnet 192.168.1.1"

WScript.Sleep 1000

sh.SendKeys "admin{ENTER}"

WScript.Sleep 1000

sh.SendKeys "admin{ENTER}"

WScript.Sleep 1000

sh.SendKeys "reboot{ENTER}"

WScript.Sleep 1500

Dim strComputer,objWMIService,objProcess,colProcessList

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

 Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'telnet.exe'") 

  For Each objProcess in colProcessList

   objProcess.Terminate()

next

Last edited by hackiller on 2008-3-20 at 02:07 PM ]

请高手帮忙

dim xmlhttp

set xmlhttp=createobject("Microsoft.XMLHTTP")

xmlhttp.open "GET","http://www.163.com",false

xmlhttp.send



if xmlhttp.readystate=4 then msgbox "网络通畅"

楼上的用的是XML脚本吧 我不知道如何使用
另:
我需要的是时时监视 至少要隔段时间就探测一次是否断流
断流就自动重起MODEM 等MODEM重起完 继续监视网络