首页 > 代码库 > SecureCRT自动登陆到服务器的脚本以及脚本编写简单说明

SecureCRT自动登陆到服务器的脚本以及脚本编写简单说明

http://blog.csdn.net/marising/article/details/6409196

Secure用SSH登陆服务器时,如果服务器较多,登陆一次很麻烦,所以,可以自己编写VBScript来搞定。

一、Secure脚本介绍

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

Secure自带的对象如下:

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

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

Tab对象,就是标签页

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

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

 

二、自动登陆的说明

1、创建Session,并连接到服务器

这里有两种方式,一种是自己设置参数连接,一种是利用现有的Session设置来连接

 

方式1:

    crt.session.Connect("protocol user@host")

    protocol:协议,支持ssh,ssh2,telnet

    user:用户名

    host:机器名

方式2:

    Set conf = crt.OpenSessionConfiguration("session_name")

Set tab = conf.ConnectInTab()

 

    session_name:是你自己设置的Session的名字,这样做的好处是可以利用已设置好的Session来连接,简单。

 

2、克隆(Clone)标签页,并登陆到服务器

    Set newtab = tab.Clone()

    克隆的好处是不用再登陆,直接Clone已有的即可。

 

3、设置标签页的名称等

    tab.Caption = xxx

    标签多了,需要每个设置一个别名

 

4、连接到服务器

    连接功能主要是Screen对象中的各种方法。

     Set scr = tab.Screen ‘首先获取tab的Screen

     scr.Send("ssh " & host & VbCr) ‘发送ssh 登陆命令

scr.WaitForString(host & "‘s password: ") ‘等待输入密码的提示

scr.Send(pwd & VbCr) ‘输入密码

 

三、完整例子

 

[vb] view plaincopy
 
  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   

 

 

 

更详细的介绍,请参考SecureCRT的帮助文件。

SecureCRT自动登陆到服务器的脚本以及脚本编写简单说明