crt应用脚本一例子,windows下的expect

本文介绍了一种通过VBScript脚本使用CRT软件进行Cisco路由器和交换机远程备份的方法。该脚本适用于无法直接访问设备的情况,通过telnet连接到中间Solaris服务器,并进一步连接到目标Cisco设备,实现配置文件的备份。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

日常工作有大量cisco路由器,交换机设备备份,telnet设备需要通过其一台服务器(solaris系统)进入,因网络关系无法通过TFTP完成备份.
因此程序通过crt软件脚本实现.

作:gyhong

# $language = "VBScript"
# $interface = "1.0"


Cnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False"
tabname="setmessage"  
Set cn=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.Recordset")


'Dim fso, MyFile
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set MyFile = fso.CreateTextFile("testfile.txt", True)
 cn.Open Cnstr
 rs.Open "select * from "+tabname,cn,1,3
Dim settype,ipaddr,seten1,seten2,filename

While Not rs.eof
  settype=rs("settype")
  ipaddr=rs("ipaddr")
  seten1=rs("en1")
  seten2=rs("en2")
  filename=rs("filename")

If settype="a" then
 
 crt.Session.LogFileName = filename
 crt.Session.Log True
 crt.Session.Connect ("/telnet IP地址")
 crt.Screen.WaitForString "login:"
 crt.screen.Send  "root" & Chr(10)
 crt.Screen.WaitForString "assword:"
 crt.screen.Send  "密码" & Chr(10)
 

 
 

   crt.Screen.WaitForString "#"
   '登录switch systme
   crt.screen.Send  "telnet "&ipaddr & Chr(10)
   crt.Screen.WaitForString "assword:"
   crt.screen.Send  seten1 & Chr(10)
   crt.Screen.WaitForString ">"
   crt.screen.Send  "en" & Chr(10)
   crt.Screen.WaitForString "assword"
    crt.screen.Send  seten2 & Chr(10)
  '    crt.Session.Log True
     crt.Screen.WaitForString "#" 
    crt.screen.Send  "show running-config" & Chr(10)
crt.sleep 100
  crt.screen.Send   Chr(32)
  crt.sleep 100
  crt.screen.Send   Chr(32)
  crt.sleep 100
  crt.screen.Send   Chr(32)
  crt.sleep 100
  crt.screen.Send   Chr(32)
  crt.sleep 100
  crt.screen.Send   Chr(32)

   crt.sleep 100
  crt.screen.Send   Chr(32)
crt.sleep 100
  crt.screen.Send   Chr(32)
crt.sleep 100
  crt.screen.Send   Chr(32)

crt.sleep 100
  crt.screen.Send   Chr(32)
 
  crt.sleep 100
  crt.screen.Send   Chr(32)
  crt.sleep 100
  crt.screen.Send   Chr(32)
  crt.sleep 100
  crt.screen.Send   Chr(32)
 
   crt.screen.Send  Chr(10)
   
     crt.Screen.WaitForString "#"
  
    crt.screen.Send  "exit"&Chr(10)
      crt.Session.Log False
    '退出中转系统
    crt.Screen.WaitForString "#"
     crt.screen.Send  "exit"&Chr(10)
   If crt.session.connected Then crt.session.disconnect

     End If
rs.movenext 
Wend    

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值