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

原创 2007年09月14日 08:53:00

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

6个Expect脚本示例

Expect scripting language is used to feed input automatically to an interactive program. It is easy ...
  • robertsong2004
  • robertsong2004
  • 2014年09月01日 20:48
  • 5079

windows下expect使用小结

1,主要程序源文件概述(在编译过程中提取) exp_command.c   ---> expect.c   ---> exp_inter.c   ---> exp_regexp.c   -...
  • yuhanfeng314
  • yuhanfeng314
  • 2014年07月30日 20:17
  • 2789

使用expect实现shell自动交互

一 安装expect 1.首先确认expect的包要安置。 #rpm -qa | grep expect 如果没有则需要下载安装, #yum install expect 2.安装完成后,查...
  • zhuxiang203
  • zhuxiang203
  • 2015年01月16日 15:10
  • 2902

expect 脚本的简单例子

  • 2014年08月11日 10:44
  • 362B
  • 下载

Expect简介及应用,是一种能够强大的脚本语言

  • 2009年05月08日 14:34
  • 413KB
  • 下载

expect脚本学习教程与范例

  • 2010年01月06日 14:05
  • 128KB
  • 下载

delphi使用lysee脚本的例子(windows下)

  • 2012年10月14日 10:59
  • 249KB
  • 下载

<expect>交互试软件的脚本

  • 2009年07月07日 01:13
  • 46KB
  • 下载

Expect 5.21r1b1 for Windows

  • 2014年06月05日 16:12
  • 1.03MB
  • 下载

expect简介和使用例子

expect简介expect是一款自动化的脚本解释型的工具。 expect基于tcl脚本,expect脚本的运行需要tcl的支持。expect对一些需要交互输入的命令很有帮助,比如ssh ftp sc...
  • shile
  • shile
  • 2017年12月07日 21:08
  • 199
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:crt应用脚本一例子,windows下的expect
举报原因:
原因补充:

(最多只允许输入30个字)