VBS 路由重啟腳本

    用vbs實(shí)現(xiàn)路由器的重啟，時(shí)間上就是利用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