CRT脚本

CRT脚本
1.登录脚本 (1)
例： (1)
2.自动巡检多个设备，会在crt下开启多个窗口，方便观察每台设备状态 (2)
3.批量配置统一模板的接入层交换机 (3)
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:",2)<>false)Then
crt.Screen.Send "用户名" &chr(13)
else
crt.Screen.Send ""&chr(13)
End if
If(crt.Screen.WaitForStrings("Password:",2)<>false)Then
crt.Screen.Send"密码"&chr(13)
else
crt.Screen.Send "" &chr(13)
end if
If (crt.Screen.WaitForString (">",2)<>false) Then
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:", 2)<>Faluse)Then
objCurrentTab1.Screen.Send "用户名" &chr(13)
else
objCurrentTab1.Screen.Send " " &chr(13)
End if
If(objCurrentTab1.Screen.WaitForStrings("Password:",2)<>Faluse)Then
objCurrentTab1.Screen.Send"密码"&chr(13)
else
objCurrentTab1.Screen.Send " " &chr(13)
end if
If (objCurrentTab1.Screen.WaitForString (">",3)<>Faluse) Then
objCurrentTab1.Screen.Send "en" &chr(13)
objCurrentTab1.Screen.WaitForString "Password: ",2
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:", 2)<>Faluse)Then
objCurrentTab2.Screen.Send "用户名" &chr(13)
else
objCurrentTab2.Screen.Send " " &chr(13)
End if
If(objCurrentTab2.Screen.WaitForStrings("Password:",2)<>Faluse)Then
objCurrentTab2.Screen.Send"密码"&chr(13)
else
objCurrentTab2.Screen.Send " " &chr(13)
end if
If (objCurrentTab2.Screen.WaitForString (">",3)<>Faluse) Then
objCurrentTab2.Screen.Send "en" &chr(13)
objCurrentTab2.Screen.WaitForString "Password: ",2
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
ConstForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso,file1,file2,line,params
Set fso = CreateObject("Scripting.FileSystemObject")
Set file1 = fso.OpenTextFile("D:\111.txt",Forreading, False)
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.Sendparams(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.Sendparams(1)&chr(13)
crt.Screen.Send "ipaddress "
crt.Screen.Sendparams(2)
crt.Screen.Send " "
crt.Screen.Sendparams(3)&chr(13)
crt.Screen.Send "no shutdown" &chr(13)
crt.Screen.Send "exit" &chr(13)
crt.Screen.Send "ip default-gateway "
crt.Screen.Sendparams(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 vlanidip地址子网掩码和网关这些变量数据从D盘下111.txt文件中读取
因此事先在该文件中把变量数据编辑好
格式如下：
例
name 1 192.168.1.2 255.255.255.0 192.168.1.1。