本站已运行

攻城狮论坛

作者: oracat
查看: 13859|回复: 112

主题标签Tag

more +今日重磅推荐Recommend No.1

所有IT类厂商认证考试题库下载所有IT类厂商认证考试题库下载

more +随机图赏Gallery

【新盟教育】2023最新华为HCIA全套视频合集【网工基础全覆盖】---国sir公开课合集【新盟教育】2023最新华为HCIA全套视频合集【网工基础全覆盖】---国sir公开课合集
【新盟教育】网工小白必看的!2023最新版华为认证HCIA Datacom零基础全套实战课【新盟教育】网工小白必看的!2023最新版华为认证HCIA Datacom零基础全套实战课
原创_超融合自动化运维工具cvTools原创_超融合自动化运维工具cvTools
重量级~~30多套JAVA就业班全套 视频教程(请尽快下载,链接失效后不补)重量级~~30多套JAVA就业班全套 视频教程(请尽快下载,链接失效后不补)
链接已失效【超过几百G】EVE 国内和国外镜像 全有了 百度群分享链接已失效【超过几百G】EVE 国内和国外镜像 全有了 百度群分享
某linux大佬,积累多年的电子书(约300本)某linux大佬,积累多年的电子书(约300本)
乾颐堂现任明教教主Python完整版乾颐堂现任明教教主Python完整版
乾颐堂 教主技术进化论 2018-2019年 最新31-50期合集视频(各种最新技术杂谈视频)乾颐堂 教主技术进化论 2018-2019年 最新31-50期合集视频(各种最新技术杂谈视频)
Python学习视频 0起点视频 入门到项目实战篇 Python3.5.2视频教程 共847集 能学102天Python学习视频 0起点视频 入门到项目实战篇 Python3.5.2视频教程 共847集 能学102天
约21套Python视频合集 核心基础视频教程(共310G,已压缩)约21套Python视频合集 核心基础视频教程(共310G,已压缩)
最新20180811录制 IT爱好者-清风羽毛 - 网络安全IPSec VPN实验指南视频教程最新20180811录制 IT爱好者-清风羽毛 - 网络安全IPSec VPN实验指南视频教程
最新20180807录制EVE开机自启动虚拟路由器并桥接物理网卡充当思科路由器最新20180807录制EVE开机自启动虚拟路由器并桥接物理网卡充当思科路由器

[连接类工具] CRT脚本两例

  [复制链接]
查看: 13859|回复: 112
开通VIP 免金币+免回帖+批量下载+无广告
巧用SecureCRT脚本功能,方便管理几例
【前言】
SecureCRT是一款非常流行和受欢迎的远程登录和终端仿真软件,支持Telnet,SSH等。
它还可以支持VBScript和JScript,通过Script的支持,SecureCRT能够自动完成我们设定
好的各种任务。
【示例一】
# $language = "VBScript"
# $interface = "1.0"
'本脚本示范:自动登录到某台3550交换机设备,自动输入远程登录密码,同时自动进入特权模式
'自动输入特权密码,同时运行show version命令
Sub Main
crt.Screen.Synchronous = True
'通过telnet连接到192.168.1.1
crt.Session.Connect "/TELNET 192.168.1.1"
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 = False
End 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 tftp://192.168.1.2/"
      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
config.txt文本文件为事先编辑好的
格式如:
192.168.1.1 cisco cisco
192.168.1.254 cisco cisco
前面是IP地址,后面是telnet密码,最后是enable密码
CCNA考试 官方正规报名 仅需1500元
回复 论坛版权

使用道具 举报

gthj [Lv8 技术精悍] 发表于 2013-10-8 14:42:16 | 显示全部楼层
支持一下:lol
回复 支持 反对

使用道具 举报

dlong008 [Lv8 技术精悍] 发表于 2013-10-8 16:13:40 | 显示全部楼层
我是来刷分的,嘿嘿
回复 支持 反对

使用道具 举报

playboy007 [VIP@钻石] 发表于 2013-10-9 12:18:33 | 显示全部楼层
真是 收益 匪浅
回复 支持 反对

使用道具 举报

12thomas18 [Lv8 技术精悍] 发表于 2013-10-9 13:28:49 | 显示全部楼层
帮帮顶顶!!
回复 支持 反对

使用道具 举报

十字路口 [Lv8 技术精悍] 发表于 2013-10-9 22:06:12 | 显示全部楼层
写的真的很不错
回复 支持 反对

使用道具 举报

isslee [Lv8 技术精悍] 发表于 2013-10-10 10:43:39 | 显示全部楼层
这是什么东东啊
回复 支持 反对

使用道具 举报

红色14# [Lv8 技术精悍] 发表于 2013-10-10 15:58:47 | 显示全部楼层
没看完~~~~~~ 先顶,好同志
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|无图浏览|手机版|网站地图|攻城狮论坛

GMT+8, 2026-8-17 05:42 , Processed in 0.100516 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4 © 2001-2013 Comsenz Inc.

Designed by ARTERY.cn