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

最新推荐文章于 2025-09-08 16:01:49 发布

原创最新推荐文章于 2025-09-08 16:01:49 发布 · 2.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#脚本 #windows #vbscript #solaris #security #interface

windows系统管理和安全同时被 2 个专栏收录

168 篇文章

订阅专栏

脚本网页语言安全和网站攻防

68 篇文章

订阅专栏

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

日常工作有大量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