等考辅导：提高效率巧用脚本配置思科路由器

　　那么可以按照下面的步骤进行：

　　1、编写脚本：

　　新建一个文件crt.vbs，尾缀为。vbs，内容如下：

　　#$language = "VBScript"

　　#$interface = "1.0"

　　Sub main

　　' turn on synchronous mode so we don't miss any data

　　crt.Screen.Synchronous = True

　　On Error Resume Next

　　crt.session.Connect("/telnet 11.133.183.251")

　　If Err.Number<>0 Then

　　crt.session.Connect("/telnet 11.133.183.251")

　　End If

　　crt.Screen.WaitForString "Username:"

　　crt.Screen.Send "ccie" & VbCr

　　crt.Screen.WaitForString "Password:"

　　crt.Screen.Send "ccie " & VbCr

　　crt.Screen.WaitForString "Router#"

　　crt.Screen.Send "config t" & VbCr

　　crt.Screen.WaitForString "Router(config)#"

　　crt.Screen.Send "int f0/1" & VbCr

　　crt.Screen.WaitForString "Router(config-if)#"

　　crt.Screen.Send "no sh" & VbCr

　　crt.Screen.WaitForString "Router(config-if)#"

　　crt.Screen.Send "end" & VbCr

　　crt.Screen.WaitForString "Router#"

　　crt.Screen.Send "copy run tftp://11.133.183.249" & VbCr

　　crt.Screen.WaitForString "Address or name of remote host [11.133.183.249]"

　　crt.Screen.Send ""& VbCr

　　crt.Screen.WaitForString "Destination filename [router-confg]"

　　crt.Screen.Send ""& VbCr

　　Do while (crt.Screen.WaitForString("--- more ---",1)<>False)

　　crt.Screen.Send " "

　　Loop

　　' crt.Screen.Send "exit" & VbCr

　　crt.session.disconnect

　　crt.Screen.Synchronous = False

　　End Sub