中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]批处理监测路由断流怎么写 适用于挂机BT等
作者:
标题: [求助]批处理监测路由断流怎么写 适用于挂机BT等 上一主题 | 下一主题
hackiller
初级用户





积分 39
发帖 16
注册 2006-12-16
状态 离线
『楼 主』:  [求助]批处理监测路由断流怎么写 适用于挂机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 ]

2008-3-19 18:18
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
hackiller
初级用户





积分 39
发帖 16
注册 2006-12-16
状态 离线
『第 2 楼』:  

请高手帮忙

2008-3-20 14:07
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
abcd
银牌会员





积分 1436
发帖 739
注册 2007-10-11
状态 离线
『第 3 楼』:  


dim xmlhttp
set xmlhttp=createobject("Microsoft.XMLHTTP")
xmlhttp.open "GET","http://www.163.com",false
xmlhttp.send

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


2008-3-20 14:39
查看资料  发短消息 网志  OICQ (470237592)  编辑帖子  回复  引用回复
hackiller
初级用户





积分 39
发帖 16
注册 2006-12-16
状态 离线
『第 4 楼』:  

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

2008-3-20 23:22
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023