批处理监测路由断流怎么写适用于挂机BT等 - 中国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 ]

第1楼　hackiller	发表于 2008-03-19 18:18
初级用户　发帖 16　积分 39
[求助]批处理监测路由断流怎么写适用于挂机BT等方案一直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 ]

第2楼　hackiller	发表于 2008-03-20 14:07
初级用户　发帖 16　积分 39
请高手帮忙

第3楼　abcd	发表于 2008-03-20 14:39
银牌会员　发帖 739　积分 1,436
dim xmlhttp set xmlhttp=createobject("Microsoft.XMLHTTP") xmlhttp.open "GET","http://www.163.com",false xmlhttp.send if xmlhttp.readystate=4 then msgbox "网络通畅"

第4楼　hackiller	发表于 2008-03-20 23:22
初级用户　发帖 16　积分 39
楼上的用的是XML脚本吧我不知道如何使用另: 我需要的是时时监视至少要隔段时间就探测一次是否断流断流就自动重起MODEM 等MODEM重起完继续监视网络