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