VBS 路由重启脚本
更新时间：2009年03月13日 22:50:49 作者：
用vbs实现路由器的重启，时间上就是利用vbs模拟按键输出。
复制代码 代码如下:
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
相关文章
vbs中的错误捕获器，用于捕获内部错误并进行手工处理2009-08-08
CreateWeb.vbs 代码...2007-07-07
VBS教程：正则表达式简介 -建立正则表达式...2006-11-11
这个方法我第一次看到，以前都是用wscript.shell运行，这个是sendkeys方法2008-06-06
在昨天的《使用正确版本的XMLHTTP》中卖了个关子，ServerXMLHTTP的功能比XMLHTTP强大，你现在大概已经猜到了吧。没错，用ServerXMLHTTP可以在HTTP请求头中加入Cookie，而XMLHTTP不可以2013-01-01
用vbs实现按创建日期的顺序列出一个文件夹中的所有文件...2007-03-03
将单个文件压缩为zip格式的vbs代码，需要的朋友可以参考下2012-01-01
通项为自然数n的n次方的的和或积的级数，求和或积的表达式。2009-09-09
这篇文章主要介绍了vbs 复制指定文件到指定目录下,需要的朋友可以参考下2019-09-09
百度抽风，老是把吃掉行首空格，导致代码没有缩进，用下面的代码即可2011-12-12
最新评论