Board logo

标题: [求助]批处理监测路由断流怎么写 适用于挂机BT等 [打印本页]

作者: hackiller     时间: 2008-3-19 18:18    标题: [求助]批处理监测路由断流怎么写 适用于挂机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 ]

作者: hackiller     时间: 2008-3-20 14:07
请高手帮忙

作者: abcd     时间: 2008-3-20 14:39
dim xmlhttp
set xmlhttp=createobject("Microsoft.XMLHTTP")
xmlhttp.open "GET","http://www.163.com",false
xmlhttp.send

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

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