方案
一直ping 163.com
如果返回TIME OUT
执行一个脚本重起路由(已有)
等待一分钟后重新开始ping
附上VBS版重起路由脚本
我重起的是路由猫 需要用VBS来终结TELNET进程
[ Last edited by hackiller on 2008-3-20 at 02:07 PM ]
一直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 ]