CRT脚本

CRT脚本

CRT脚本 ..................................................................................................................................................................................... 1 1.登录脚本................................................................................................................................................................................... 1

例：...................................................................................................................................................................................... 1 2.自动巡检多个设备，会在crt下开启多个窗口，方便观察每台设备状态 ................................................................. 3 3.批量配置统一模板的接入层交换机 ............................................................................................................................... 7

1.登录脚本

这个脚本方便用于交换机路由器登陆过程，可自行识别输入，例如若交换机登陆过程中不要求输入用户名，则免去该步骤

例：

#$language = \"VBScript\"

#$interface = \"1.0\"

crt.Screen.Synchronous = True

' This automatically generated script may need to be

' edited in order to work correctly.

Sub Main

crt.Screen.Send \"\"& chr(13)

if(crt.Screen.WaitForStrings(\"sername:\

crt.Screen.Send \"用户名\" & chr(13)

else

crt.Screen.Send \"\"& chr(13)

End if

If(crt.Screen.WaitForStrings(\"Password:\

crt.Screen.Send\"密码\"&chr(13)

else

crt.Screen.Send \"\" & chr(13)

end if

If (crt.Screen.WaitForString (\">\

crt.Screen.Send \"en\" & chr(13)

crt.Screen.WaitForString \"Password:\"

crt.Screen.Send \"enable密码\" & chr(13)

Else

crt.Screen.Send \"\"& chr(13)

End If

End sub

2.自动巡检多个设备，会在crt下开启多个窗口，方便观察每台设备状态

例：

#$language = \"VBScript\"

#$interface = \"1.0\"

crt.Screen.Synchronous = True

Sub Main

Set objCurrentTab1 = crt.GetTab(1)

objCurrentTab1.session.disConnect

objCurrentTab1.Activate

objCurrentTab1.session.Connect(\"/telnet 设备地址\")

if(objCurrentTab1.Screen.WaitForStrings(\"Username:\

objCurrentTab1.Screen.Send \"用户名\" & chr(13)

else

objCurrentTab1.Screen.Send \" \" & chr(13)

End if

If(objCurrentTab1.Screen.WaitForStrings(\"Password:\

objCurrentTab1.Screen.Send\"密码\"&chr(13)

else

objCurrentTab1.Screen.Send \" \" & chr(13)

end if

If (objCurrentTab1.Screen.WaitForString (\">\

objCurrentTab1.Screen.Send \"en\" & chr(13)

objCurrentTab1.Screen.WaitForString \"Password: \

objCurrentTab1.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:\

objCurrentTab2.Screen.Send \"用户名\" & chr(13)

else

objCurrentTab2.Screen.Send \" \" & chr(13)

End if

If(objCurrentTab2.Screen.WaitForStrings(\"Password:\

objCurrentTab2.Screen.Send\"密码\"&chr(13)

else

objCurrentTab2.Screen.Send \" \" & chr(13)

end if

If (objCurrentTab2.Screen.WaitForString (\">\

objCurrentTab2.Screen.Send \"en\" & chr(13)

objCurrentTab2.Screen.WaitForString \"Password: \

objCurrentTab2.Screen.Send \"enable\" & chr(13)

Else

objCurrentTab2.Screen.Send \" \" & chr(13)

End If

objCurrentTab2.Screen.Send \"巡检指令\" & chr(13)

end sub

3.批量配置统一模板的接入层交换机

一般大型企业架构新网络时需要着大量的接入层交换机，而配置大批统一样式的接入层交换机是件无聊且繁琐的工作，因此提供一个简易的配置脚本希望能够给大家带来方便。

该脚本中可设置可变数据，该数据可从一个你指定的文件中读取出

例：此例以cisco 35系列作样板，样板作的简易了，见谅。

#$language =\"VBScript\"

#$interface =\"1.0\"

Sub Main

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim fso,file1,file2,line,params

Set fso = CreateObject(\"Scripting.FileSystemObject\")

Set file1 = fso.OpenTextFile(\"D:\\111.txt\

crt.Screen.Synchronous = True

DO While file1.AtEndOfStream <> True

line = file1.ReadLine

params = 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 \"logging synchronous\" & chr(13)

crt.Screen.Send \"login authentication LOGIN\" & chr(13)

crt.Screen.Send \"exit\" & chr(13)

loop

End Sub

脚本中设定了5个变量为hostname vlanid ip地址 子网掩码和网关

这些变量数据从D盘下111.txt文件中读取

因此事先在该文件中把变量数据编辑好

格式如下：

例

name 1 192.168.1.2 255.255.255.0 192.168.1.1