on error resume next dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.run"cmd" WshShell.AppActivate"d:\windows\system32\cmd.exe" WScript.Sleep 200 WshShell.SendKeys"telnet 10.1.1.1" WshShell.SendKeys"{ENTER}" WshShell.SendKeys"username" WshShell.SendKeys"{ENTER}" WshShell.SendKeys"password" WshShell.SendKeys"{ENTER}" WshShell.SendKeys"ena" WshShell.SendKeys"{ENTER}" WshShell.SendKeys"enable-password" WshShell.SendKeys"{ENTER}" WshShell.SendKeys"sh int summary | in ^\\* Giga|RXBS|TXBS|-" WshShell.SendKeys"{ENTER}" WshShell.SendKeys" " WshShell.SendKeys"{ENTER}"