secureCRT VBS脚本语法.doc

常用语句：1.CRT命令发送命令crt.Screen.Send “whyydsl-vty” & chr(13)等待字符串出现crt.Screen.WaitForString “Password:”等待字符串出现，等待1秒钟crt.Screen.WaitForString (“Password:”,1)开启同步crt.Screen.Synchronous = True判断指针1秒内不移动，用于确定安全连接可以进行后续代码输入操作DobCursorMoved = crt.Screen.WaitForCursor(1)Loop until bCursorMoved = False判定是否已经连接到设备if crt.Session.Connected = true then断开连接crt.session.disConnect激活窗口 用于多tab页面crt.Activate连接到指定设备crt.session.Connect(“/telnet ” & b(n)延时1秒crt.Sleep 10002.vbScript语句a.文件操作Set fso = CreateObject(“Scripting.FileSystemObject”) 创建文件对象Set file1 = fso.OpenTextFile(“c:test.txt”,1, False) 设置文件对象 1 只读模式;2 写模式;8 在文件末尾进行写操作objFso.FileExists(“文件路径”) 判定文件是否存在，存在返回trus，否则返回falsefile1.AtEndOfStream True 如果文件末尾无数据返回true，否则返回falseline = file1.ReadLine 读取第一行文本数据，并将读取位移动到下一行params = Split (line) 分割读取的行数据，用空格符分割file1.Close 关闭文件b.系统文档操作创建shell对象，对系统特殊文档操作Set objShell = CreateObject(“WScript.Shell”)返回”我的文档”的路径给变量szMyDocs,可以动态的返回”我的文档”的路径szMyDocs = objShell.SpecialFolders(“MyDocuments”)设置文件路径到变量中szSessionsFile = szMyDocs & “SessionList.txt”3.知识点（1）判断文件是否存在if Not objFso.FileExists(szSessionsFile) then 如果txt文件不存在，就报错并退出subcrt.Dialog.MessageBox “Session list file not found:” & vbcrlf &vbcrlf & szSessionsFile & vbcrlf & vbcrlf &“Create a session list file as described in the description of ” & “this script code and then run the script again.”exit subend if（2）容错机制On Error Resume Next 后面代码错误会继续执行crt.Session.Connect “/telnet ” & vSessionsArray(0)szError = Err.Description 将错误表述信息放入变量szError中On Error Goto 0 关闭容错机制（3）判断是否安全连接判断是否连接正常if crt.Session.Connected thencrt.Screen.Synchronous = True 同步显示第一次连接时的安全检测DobCursorMoved = crt.Screen.WaitForCursor(1)Loop until bCursorMoved = False 一旦光标在一秒内停止移动，我们就认为他已经安全的连接上了远程设备end if（4）安全关闭连接 断开连接crt.session.disconnect 等待连接关闭Docrt.Sleep 100Loop While crt.Session.Connected = True 每100毫秒判断连接是否断开（5）说明:1.CRT默认tab的index为12.要创建第二个标签页tab,必须使用函数set newtab = objCurrentTab1.Clone()复制标签页为新的tab页面否则报错tab 2 超出index范围rang函数：Set objCurrentTab1 = crt.GetTab(1) 创建标签页1objCurrentTab1.session.disConnect 断开标签页1的当前连接objCurrentTab1.Activate 激活标签页1objCurrentTab1.session.Connect(“/telnet ” ) 标签页1连接设备set newtab = objCurrentTab1.Clone() 复制标签页1到新标签页示例：【示例一】 $language = VBScript$interface = 1.0本脚本示范：自动登录到某台3550交换机设备，自动输入远程登录密码，同时自动进入特权模式自动输入特权密码，同时运行show version命令Sub Main crt.Screen.Synchronous = True 通过telnet连接到 crt.Session.Connect /TELNET crt.Screen.WaitForString Password: crt.Screen.Send cisco & vbCr crt.Screen.waitForString crt.Screen.Send enable & vbcr crt.Screen.WaitForString Password: crt.Screen.Send cisco & vbcr crt.Screen.waitForString # crt.Screen.Send show version & vbcr crt.Screen.waitForString -More- crt.Screen.Send crt.Screen.Synchronous = FalseEnd Sub【示例二】 $language = VBScript $interface = 1.0本脚本示范：从一个文件里面自动读取设备IP地址，密码等，自动将设备配置备份Sub Main 打开保存设备管理地址以及密码的文件 Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso,file1,line,str1,params Set fso = CreateObject(Scripting.FileSystemObject) Set file1 = fso.OpenTextFile(d:config.txt,Forreading, False) crt.Screen.Synchronous = True DO While file1.AtEndOfStream True 读出每行 line = file1.ReadLine 分离每行的参数 IP地址 密码 En密码 params = Split (line) Telnet到这个设备上 crt.Session.Connect /TELNET & params(0) 输入telnet密码 crt.Screen.WaitForString Password: crt.Screen.Send params(1) & vbcr 进特权模式 crt.Screen.Send enable & vbcr crt.Screen.WaitForString Password: crt.Screen.Send params(2) & vbcr crt.Screen.waitForString # 备份目前Startup配置 str1 = copy startup t/ str1 = str1 & backup( & params(0) &) & .cfg crt.Screen.Send str1 & vbcr crt.Screen.WaitForString ? crt.Screen.Send vbcr crt.Screen.WaitForString ? crt.Screen.Send vbcr 备份完成后退出 crt.Screen.waitForString #,3 crt.Session.Disconnect loop crt.Screen.Synchronous = False End Subconfig.txt文本文件为事先编辑好的格式如： cisco cisco54 cisco cisco前面是IP地址，后面是telnet密码，最后是enable密码Sub Main 打开保存设备管理地址以及密码的文件 Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso,file1,line,str1,params Set fso = CreateObject(Scripting.FileSystemObject) Set file1 = fso.OpenTextFile(d:config.txt,Forreading, False) crt.Screen.Synchronous = True DO While file1.AtEndOfStream True 读出每行 line = file1.ReadLine 分离每行的参数 IP地址 密码 En密码 params = Split (line) Telnet到这个设备上 crt.Session.Connect /TELNET & params(0) 输入telnet密码 crt.Screen.WaitForString Password: crt.Screen.Send params(1) & vbcr 进特权模式 crt.Screen.Send enable & vbcr crt.Screen.WaitForString Password: crt.Screen.Send params(2) & vbcr crt.Screen.waitForString # 备份目前Startup配置 str1 = copy startup t/ str1 = str1 & backup( & params(0) &) & .cfg crt.Screen.Send str1 & vbcr crt.Screen.WaitForString ? crt.Screen.Send vbcr crt.Screen.WaitForString ? crt.Screen.Send vbcr 备份完成后退出 crt.Screen.waitForString #,3 crt.Session.Disconnect loop crt.Screen.Synchronous = False End Sub【示例三】批量添加静态arp：Sub Main Const ForReading = 1 Dim fso,file,line set fso = CreateObject(Scripting.FileSystemObject) set file = fso.OpenTextFile(arp.txt,ForReading,False) crt.Screen.Synchronous = True DO While file.AtEndOfStream True line = file.ReadLine crt.Screen.Send line & vbcr crt.Sleep 100 loop crt.Screen.Synchronous = FalseEnd Subarp.txt如下：arp static ip 25 mac 00:24:93:01:73:18 interface ethernet 0/0/1arp static ip 26 mac 00:24:93:01:73:19 interface ethernet 0/0/1arp static ip 27 mac 00:24:93:01:73:1a interface ethernet 0/0/1arp static ip 28 mac 00:24:93:01:73:1b interface ethernet 0/0/1arp static ip 29 mac 00:24:93:01:73:1c interface ethernet 0/0/1arp static ip 30 mac 00:24:93:01:73:1d interface ethern