CRT脚本.docx

CRT脚本1.登录脚本1例：12.自动巡检多个设备，会在crt下开启多个窗口，方便观察每台设备状态23.批量配置统一模板的接入层交换机31.登录脚本这个脚本方便用于交换机路由器登陆过程，可自行识别输入，例如若交换机登陆过程中不要求输入用户名，则免去该步骤例：#$language = VBScript#$interface = 1.0crt.Screen.Synchronous = True This automatically generated script may need to be edited in order to work correctly.Sub Maincrt.Screen.Send & chr(13)if(crt.Screen.WaitForStrings(sername:,2)false)Then crt.Screen.Send 用户名 & chr(13)elsecrt.Screen.Send & chr(13)End ifIf(crt.Screen.WaitForStrings(Password:,2)false)Thencrt.Screen.Send密码&chr(13)elsecrt.Screen.Send & chr(13)end ifIf (crt.Screen.WaitForString (,2)false) Thencrt.Screen.Send en & chr(13)crt.Screen.WaitForString Password:crt.Screen.Send enable密码 & chr(13)Else crt.Screen.Send & chr(13)End IfEnd sub2.自动巡检多个设备，会在crt下开启多个窗口，方便观察每台设备状态例：#$language = VBScript#$interface = 1.0crt.Screen.Synchronous = TrueSub Main Set objCurrentTab1 = crt.GetTab(1)objCurrentTab1.session.disConnect objCurrentTab1.Activate objCurrentTab1.session.Connect(/telnet 设备地址)if(objCurrentTab1.Screen.WaitForStrings(Username:, 2)Faluse)Then objCurrentTab1.Screen.Send 用户名 & chr(13)elseobjCurrentTab1.Screen.Send & chr(13)End ifIf(objCurrentTab1.Screen.WaitForStrings(Password:,2)Faluse)ThenobjCurrentTab1.Screen.Send密码&chr(13)elseobjCurrentTab1.Screen.Send & chr(13)end ifIf (objCurrentTab1.Screen.WaitForString (,3)Faluse) ThenobjCurrentTab1.Screen.Send en & chr(13)objCurrentTab1.Screen.WaitForString Password: ,2objCurrentTab1.Screen.Send enable密码 & chr(13)Else objCurrentTab1.Screen.Send & chr(13)End If objCurrentTab1.Screen.Send 巡检指令 & chr(13)Set newtab = objCurrentTab1.Clone() Set objCurrentTab2 = crt.GetTab(2)objCurrentTab2.session.disConnect objCurrentTab2.Activate objCurrentTab2.session.Connect(/telnet 设备地址)if(objCurrentTab2.Screen.WaitForStrings(Username:, 2)Faluse)Then objCurrentTab2.Screen.Send 用户名 & chr(13)elseobjCurrentTab2.Screen.Send & chr(13)End ifIf(objCurrentTab2.Screen.WaitForStrings(Password:,2)Faluse)ThenobjCurrentTab2.Screen.Send密码&chr(13)elseobjCurrentTab2.Screen.Send & chr(13)end ifIf (objCurrentTab2.Screen.WaitForString (,3)Faluse) ThenobjCurrentTab2.Screen.Send en & chr(13)objCurrentTab2.Screen.WaitForString Password: ,2objCurrentTab2.Screen.Send enable & chr(13)Else objCurrentTab2.Screen.Send & chr(13)End If objCurrentTab2.Screen.Send 巡检指令 & chr(13)end sub3.批量配置统一模板的接入层交换机一般大型企业架构新网络时需要着大量的接入层交换机，而配置大批统一样式的接入层交换机是件无聊且繁琐的工作，因此提供一个简易的配置脚本希望能够给大家带来方便。该脚本中可设置可变数据，该数据可从一个你指定的文件中读取出例：此例以cisco 35系列作样板，样板作的简易了，见谅。#$language =VBScript#$interface =1.0Sub MainConst ForReading = 1, ForWriting = 2, ForAppending = 8Dim fso,file1,file2,line,paramsSet fso = CreateObject(Scripting.FileSystemObject)Set file1 = fso.OpenTextFile(D:111.txt,Forreading, False) crt.Screen.Synchronous = TrueDO While file1.AtEndOfStream Trueline = file1.ReadLineparams = Split (line)crt.Screen.Send en&chr(13)crt.Screen.Send conf t&chr(13)crt.Screen.Send hostname crt.Screen.Send params(0)此为变量 & chr(13) crt.Screen.Send service password-encryption&chr(13) crt.Screen.Send aaa new-model&chr(13)crt.Screen.Send aaa authentication login LOGIN local & chr(13)crt.Screen.Send aaa authorization exec LOGIN local &chr(13)crt.Screen.Send username 用户名 privilege 15 secret 密码 & chr(13)crt.Screen.Send aaa session-id common & chr(13)crt.Screen.Send clock timezone CST 8 & chr(13)crt.Screen.Send ip subnet-zero & chr(13)crt.Screen.Send no ip domain-lookup & chr(13)crt.Screen.Send errdisable recovery cause udld & chr(13)crt.Screen.Send errdisable recovery cause link-flap & chr(13)crt.Screen.Send errdisable recovery interval 30 & chr(13)crt.Screen.Send interface range FastEthernet0/1 - 24 & chr(13) crt.Screen.Send spanning-tree portfast & chr(13)crt.Screen.Send exit & chr(13)crt.Screen.Send interface range GigabitEthernet0/1 - 2 &chr(13) crt.Screen.Send switchport trunk encapsulation dot1q & chr(13) crt.Screen.Send switchport mode trunk & chr(13) crt.Screen.Send exit & chr(13)crt.Screen.Send interface Vlan &crt.Screen.Send params(1)& chr(13)crt.Screen.Send ip address crt.Screen.Send params(2)crt.Screen.Send crt.Screen.Send params(3)& chr(13)crt.Screen.Send no shutdown & chr(13)crt.Screen.Send exit & chr(13)crt.Screen.Send ip default-gateway crt.Screen.Send params(4)& chr(13)crt.Screen.Send ip classless & chr(13)crt.Screen.Send ip http server & chr(13)crt.Screen.Send ip http secure-server & chr(13)crt.Screen.Send line con 0 & chr(13) crt.Screen.Send exec-timeout 0 0 & chr(13) crt.Screen.Send logging synchronous & chr(13) crt.Screen.Send login authentication LOGIN & chr(13) crt.Screen.Send exit & chr(13)crt.Screen.Send line vty 0 4 & chr(13) crt.Screen.Send logging synchronous & chr(13) crt.Screen.Send login authentication LOGIN & chr(13) crt.Screen.Send exit & chr(13)crt.Screen.Send line vty 5 15 & chr(13) crt.Screen.Send log