VBS 路由重启脚本

2009-7-14 13:05 546 0

摘要: 　　Set sh=WScript.CreateObject("WScript.Shell")　　sh.Run "telnet 192.168.1.1" '修改为自己的网关IP　　WScript.Sle...

关键词： WScript colProcessList objWMIService strComputer objProcess Sleep SendKeys ENTER 1000 telnet

　　Set sh=WScript.CreateObject("WScript.Shell")　　sh.Run "telnet 192.168.1.1" '修改为自己的网关IP　　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

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除