Chinaunix首页 | 论坛 | 博客

qsh

  • 博客访问: 4030303
  • 博文数量: 1015
  • 博客积分: 15904
  • 博客等级: 上将
  • 技术积分: 8572
  • 用 户 组: 普通用户
  • 注册时间: 2008-07-04 19:16
文章分类

全部博文(1015)

文章存档

2019年(1)

2017年(1)

2016年(19)

2015年(27)

2014年(30)

2013年(95)

2012年(199)

2011年(72)

2010年(109)

2009年(166)

2008年(296)

分类: 系统运维

2012-04-01 22:39:53

  1. #$language = "VBScript"  
  2. #$interface = "1.0"   
  3. crt.Screen.Synchronous = True  
  4. Function Login(ptab,name,host,pwd,cmd)  
  5.    Dim tab,scr  
  6.    Set tab = ptab.Clone()  
  7.    tab.Caption = name  
  8.    Set scr = tab.Screen  
  9.    scr.Send("ssh " & host & VbCr)  
  10.    scr.WaitForString(host & "'s password: ")  
  11.    scr.Send(pwd & VbCr)  
  12.    scr.Send(cmd & VbCr)  
  13.    Set Login = tab  
  14. End Function  
  15. Sub Main  
  16.    Dim conf,tab  
  17.    Set conf = crt.OpenSessionConfiguration("session_name")  
  18.    Set tab = conf.ConnectInTab()  
  19.    Set tab = Login(tab,"name1","user1@host1","xxx","cd /home/")  
  20.    Set tab = Login(tab,"name2","user2@host2","xxx","shell cmd")  
  21. End Sub   
  22. Secure用SSH登陆服务器时,如果服务器较多,登陆一次很麻烦,所以,可以自己编写VBScript来搞定。

    一、Secure脚本介绍

    Secure是VBScript脚本,VB脚本的教程,请参考有关文档。

    Secure自带的对象如下:

    Application对象,就是crt,是个顶层的对象,所有其他内容都从这个对象中获得

    Session,会话对象,负责连接相关

    Tab对象,就是标签页

    Scree对象,负责交互相关的,比如发送命令、接收命令返回等

    主要是上面这几个,其他的看帮助文档。

阅读(2160) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~