SecureCRT脚本编写学习记录.docx

编写脚本要添加头文件 #$Language=VBScript#$Interface=1.0脚本里面如果有主函数main（）的话，就会从主函数开始执行，但是不是所有语句必须要求放在主函数里面。例如主函数外部的初始化变量语句。Exit Sub 对出脚本的执行。脚本使用的几个步骤1) Connect to the remote machine.（telnet到目标板）2) Start script recording.（开始录制脚本）（录制脚本用完整的敲入命令为好，不使用自动补齐，例如tab键等）3) Perform commands to be recorded.（手动在telnet中敲入命令）4) Stop script recording.（停止录制脚本）5) Specify a filename in which to save the recorded script code.（保存录制好的脚本）6) Review and edit the recorded script file.（查看和编辑脚本）常用ASCII字符，ASCII值为8、9、10 和13 分别转换为退格、制表、换行和回车字符一个很好的例子（包括变量声明、循环、判断、输入输出）作为维护CE设备的一个普通工程师，可能会有同样的问题困惑着我们如何对众多的CE设备进行有效的巡检和维护管理？SecureCRT给我们提供了很好的平台脚本工具制作和运行。下面就SecureCRT工具常用到的几个函数阐述如下：在SecureCRT里，用得最多的应该就是crt.Screen，基本上很多操作都是基于屏幕的返回字来决定下一步该作何操作：第一：crt.Screen.WaitForString(KeyString,timewaiting)该函数是单字符串判断，KeyString是需要查找的关键字，timewaiting是一个超时阀值，例如：crt.Screen.WaitForString(people:,5)该行代码的意思就是在5秒内没有检测到people:出现，就执行下一条语句，如果改成：crt.Screen.WaitForString(people:)那就是指直到people:出现才执行下一行代码。WaitForString是有返回值的，返回值是True 或者 False。因此，可以根据返回值进行条件判断以确定一下条代码。例如：If (crt.Screen.WaitForString (current state : UP,1)False) Then portStatus=PortUP Else portStatus=PortDown End Ifmsgbox portStatus这段代码用于判断端口状态情况并记录下来.第二：crt.Screen.WaitForStrings(KeyString1,KeyString2,.,timeout)用于多个字符串的判断，timeout的作用是一样的。例如：crt.Screen.WaitForStrings(cisco,huawei,H3C,5)意思就是在5秒内有检测到相应的字符时，返回相应的索引号(索引号是从1开始的）。如果都没有检查到，则返回0.因此，该函数的使用可以如下：Dim SwitchKeySwitchKey=crt.Screen.WaitForStrings(cisco,huawei,H3C,5)Select case SwitchKeycase 1MsgBox 思科设备case 2MsgBox 华为设备case 3MsgBox 华三设备case elseMsgBox 未知设备End Select其实SecureCRT支持的脚本语言就是VBS，这个脚本语言与VB有较大的不同，对于界面的支持性较差。不过也有几个对话性的函数1、InputBox ：提示用户输入参数temp = inputbox(提示用户你输入参数的名称,对话框的名称) ：需要将输入的参数赋值给某一个参数进行使用。2、输出函数 msgboxmsgbox “给用户输出的信息对话框”eg.求正方形面积的脚本dim r,s r=inputbox(请输入正方形的边长:,求正方形面积的程序) s=r*r msgbox(s) 下面就我的工作性质,跟我同事一块制作的一个脚本程序维护着N台路由器设备，每天需要对这些设备进行例行巡检。下面是程序的所有代码，希望对各位有所帮助*#$language = VBScript #$interface = 1.0 说明： 本代码可在CRT工具中实现Cosico，华为，爱立信路由器交换机数据的自动配置或作为设备巡检之用； Set screen = crt.Screen 创建屏幕对象 定义全局变量： Device变量为操作设备对象数组，作为存储设备名用； CiscoAggreOfCommands变量为思科设备命令集合数组，作为存储思科设备命令用； NE40EAggreOfCommands变量为华为NE40E设备命令集数组，作为存储华为NE设备命令用； SE800AggreOfCommands变量为爱立信SE800设备命令集数组，作为存储爱立信SE800设备命令用； ArrreOfRiskCommands变量为各厂家设备存在风险性操作命令的数组，作为存储过滤风险操作命令之用； DeviceNumth变量为Device数组序号； CommandNumth变量为各厂家命令数组的序号； ResultOfType变量为判断设备类型标识符； TypeOfCommand变量作为存储当前命令类型用； Dim Device,CiscoAggreOfCommands,NE40EAggreOfCommands,SE800AggreOfCommands,ArrreOfRiskCommands Dim DeviceNumth , CommandNumth ,ResultOfType Dim TypeOfCommand 爱立信设备集合 Device = Array(CE35-ERICSE800,CE36-ERICSE800,CE37-ERICSE800,CE38-ERICSE800) 华为设备集合 Device = Array( CE07-HWNE40E,CE08-HWNE40E,_ CE09-HWNE40E,CE10-HWNE40E,_ CE11-HWNE40E,CE12-HWNE40E,_ CE21-HWNE40E,CE22-HWNE40E,_ CE23-HWNE40E,CE24-HWNE40E,_ CE25-HWNE40E,CE26-HWNE40E,_ CE29-HWNE40E,CE30-HWNE40E,_ CE33-HWNE40E,CE34-HWNE40E,_ CE45-HWNE40E,CE46-HWNE40E,_ CE47-HWNE40E,CE48-HWNE40E,_ CE49-HWNE40E,CE50-HWNE40E) 思科设备命令集合 CiscoAggreOfCommands = Array(show cdp,_ show conf,_ show hard,_ show interface,_ show ip route,_ show conf) 华为NE40E设备命令集合 健康检查 告警检查 日志检查 单板运行状态检查 CPU占用率检查 内存占用率检查 接口和链路状态以及流量检查 NE40E接口状态检查 OSPF邻居状态检查 路由信息检查 NE40EAggreOfCommands = Array(display health,_ display trapbuffer,_ display logbuffer,_ display device,_ display cpu-usage,_ display memory-usage,_ display interface,_ dis ospf peer,_ display ip routing-table) 爱立信SE800设备命令集合 单板注册信息 办卡加电自检 单板运行状态检查 检查背板运行状态 检查主控板冗余性 存储设备利用率 CPU利用率 内存利用率检查 端口运行状态检查 端口数据收发状态检查 电源使用情况检查 检查OSPF状态 SE800AggreOfCommands = Array(show chassis,_ show diag on-demand detail,_ show hardware,_ show backplane-status,_ show redundancy,_ show disk,_ show process,_ show memory,_ show port detail,_ show port counters detail,_ show chassis power,_ context ChinaMobile_NGN_SG,_ show ospf neighbor,_ context ChinaMobile_NGN_Media,_ show ospf neighbor) 风险命令过滤集合 ArreOfRiskCommands = Array(reb,rel)CE汇聚网管平台登陆子函数 Function LandIPNET screen.Send &chr(13) screen.WaitForString ogin: screen.Send XXXXXXXXXX & chr(13) screen.WaitForString Password: screen.Send XXXXXXXXXX& chr(13) End Function 各厂家设备选择登陆子函数 Function LandDevice screen.Send &chr(13) screen.WaitForString Console>> screen.Send open & Device(DeviceNumth) ResultOfType = screen.WaitForStrings(Cisco,NE40E,SE800,4) If ResultOfType = 1 Then TypeOfCommand = CiscoAggreOfCommands CommandNumth=0 ElseIf ResultOfType = 2 Then TypeOfCommand = NE40EAggreOfCommands CommandNumth=0 ElseIf ResultOfType = 3 Then TypeOfCommand = SE800AggreOfCommands CommandNumth=0 Else MsgBox Error Type Of Device Do Loop End If screen.Send &chr(13) screen.WaitForStrings Username:,ogin: screen.send XXXXXXXXXX& chr(13) screen.WaitForString Password: screen.Send XXXXXXXXXX& chr(13) Do Loop Until (screen.WaitForStrings(NE40E>,SE800#,5)False) End Function 退出设备子函数 Function ExitDevice If ResultOfType = 1 Then ElseIf ResultOfType = 2 Then screen.Send &quit & chr(13) Do screen.Send &chr(13) Loop Until (screen.WaitForString(Console>>,1)False) ElseIf ResultOfType = 3 Then screen.Send &exit & chr(13) Do screen.Send &chr(13) Loop Until (screen.WaitForString(Console>>,1)False) Else End If End Function Function ShowAll Do while (screen.WaitForStrings(More,more,3)False) crt.Screen.Send Loop End Function 风险命令过滤子函数 Function RiskCommands Dim result result = screen.WaitForStrings(ArreOfRiskCommands,1) If result False Then MsgBox The command you are importing exists risk! Do Loop End If End Function Sub Main crt.Screen.Synchronous = True LandIPNET For DeviceNumth=LBound(Device) To UBound(Device) LandDevice CommandNumth=0 For Com