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

赞 (0)

相关推荐

  • 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 "re

  • VBS相册生成脚本[

    此脚本的功能为将一个目录中的jpg,gif,png格式的图片生成Html相册,页面上的图像只是改变显示大小,并没有生成缩略图.用到的技术:Scripting.FileSystemObject,Adodb.Stream.其中得到图片长宽用了秋水无恨的Adodb.Stream取得图像的高宽 复制代码 代码如下: '/////////////////////////////////////////////// 'VBS相册生成脚本,使用方法:将此文件放在sendto目录中(在运行中输入直接sendto

  • SpringBoot应用线上重启脚本的命令详解

    查找应用进程PID 杀死应用进程PID 运行启动脚本 烦不烦啊,像我这么懒得人 得想个办法一步搞定! 如下所示 新建一个shell脚本,然后将其运行之! #!/bin/sh #根据进程名杀死进程 if [ $# -lt 1 ] then echo "需要传入jar包的名称!" exit 1 fi # 根据输入的应用名,找出指定的应用的进程Id PROCESS=`ps -ef|grep $1|grep -v grep|grep -v PPID|grep -v /bin/sh|awk '{

  • 使用 Adsutil.vbs iis管理脚本

    应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1 Adsutil.vbs 是一个 IIS 管理实用程序,它通过结合使用 Microsoft Visual Basic Scripting Edition (VBScript) 与 Active Directory 服务界面 (ADSI) 来处理 IIS 配置.该脚本应通过随 Windows 脚本主机一同安装的 CScript 运行. 重要事项

  • Iiscnfg.vbs IIS 配置脚本

    导入和导出本地或远程计算机上 Internet 信息服务 (IIS) 配置数据库的所有或选定元素,或者将整个 IIS 配置(配置数据库和架构)复制到另一台计算机以复制配置.Iiscnfg 执行下列功能: 若要查看该命令语法,请单击以下命令: iiscnfg /export 以加密或未加密格式将所有或部分 IIS 配置数据库复制到 XML 文件.然后可在导入操作中使用 XML 文件来将所有或部分配置数据库复制到其他 IIS 配置. 语法 iiscnfg[.vbs] /export /f [Path

  • reg2vbs.vbs 将Reg文件转换为VBS文件保存 脚本之家修正版本

    复制代码 代码如下: '***************************************************************************** ' FileName: Reg2Vbs.VBS ' Author: baomaboy ' Abstract: 将Reg文件转换为VBS文件保存 '***************************************************************************** Dim WshSh

  • VBS中常用脚本代码

    将域用户或租添加到本地组 Set objGroup = GetObject("WinNT://./Administrators") Set objUser = GetObject("WinNT://testnet/Engineers") objGroup.Add(objUser.ADsPath) 修改本地管理员密码 Set objcnlar = GetObject("WinNT://./administrator, user") objcnla.

  • 超级厉害的VBS定时提醒脚本 Remind.vbs

    '/*=========================================================================    ' * Intro       定时提醒,格式:时间|提示语,具体使用方法可以参考例子    ' * FileName    Remind.vbs    ' * Author      yongfa365    ' * Version     v1.0    ' * WEB         http://www.yongfa365.com

  • 分享一份nginx重启脚本

    最开始的时候,我是用最直接的重启方式 killall -9 nginx;/data/nginx/sbin/nginx 如果机器比较慢,kill进程时一瞬间杀不完,再执行一次即可.这种重启方式不是特别安全,如果配置有误,则会重启失败,需要重新修改配置文件然后再启 动,期间会消耗一点时间.不过对于目前普遍还是不怎么严格的http界而言,这点时间还不至于产生太大损失,只要不是在关键时刻搞出来就好.如果希望沿用 这种重启办法,我提议还是先好好测试吧. 后来我在nginx.net上看到了一种更奇妙的重启

  • VBS打开当前脚本所在文件夹

    方法一:Wscript.ScriptFullName '创建一个 Wscript.Shell 对象的实例,稍后会使用这个对象启动 Windows 资源管理器 Set objShell = CreateObject("Wscript.Shell") '获取脚本的路径 strPath = Wscript.ScriptFullName Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile =

随机推荐