set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.run "telnet.exe"

WScript.Sleep 5000

WshShell.SendKeys"open АДРЕС РОУТЕРА" & chr(13)

WScript.Sleep 5000

WshShell.SendKeys"ЛОГИН НА РОУТЕР" & chr(13)

WScript.Sleep 5000

WshShell.SendKeys"ПАРОЛЬ НА РОУТЕР" & chr(13)

WScript.Sleep 5000

WshShell.SendKeys"system reboot" & chr(13)

WScript.Sleep 3500

ProcessClose("cmd.exe")

ProcessClose("telnet.exe")

Function ProcessClose(sProcName)

strComputer = "."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & sProcName & "'")

For Each objProcess in colProcessList

objProcess.Terminate()

Next

End Function