SecureCRT自动登陆到服务器的脚本以及脚本编写简单说明
2016-06-17 17:51
477 查看
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
plain copy
#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
Function Login(ptab,name,host,pwd,cmd)
Dim tab,scr
Set tab = ptab.Clone()
tab.Caption = name
Set scr = tab.Screen
scr.Send("ssh " & host & VbCr)
scr.WaitForString(host & "'s password: ")
scr.Send(pwd & VbCr)
scr.Send(cmd & VbCr)
Set Login = tab
End Function
Sub Main
Dim conf,tab
Set conf = crt.OpenSessionConfiguration("session_name")
Set tab = conf.ConnectInTab()
Set tab = Login(tab,"name1","user1@host1","xxx","cd /home/")
Set tab = Login(tab,"name2","user2@host2","xxx","shell cmd")
End Sub
更详细的介绍,请参考SecureCRT的帮助文件。
一、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
plain copy
#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
Function Login(ptab,name,host,pwd,cmd)
Dim tab,scr
Set tab = ptab.Clone()
tab.Caption = name
Set scr = tab.Screen
scr.Send("ssh " & host & VbCr)
scr.WaitForString(host & "'s password: ")
scr.Send(pwd & VbCr)
scr.Send(cmd & VbCr)
Set Login = tab
End Function
Sub Main
Dim conf,tab
Set conf = crt.OpenSessionConfiguration("session_name")
Set tab = conf.ConnectInTab()
Set tab = Login(tab,"name1","user1@host1","xxx","cd /home/")
Set tab = Login(tab,"name2","user2@host2","xxx","shell cmd")
End Sub
更详细的介绍,请参考SecureCRT的帮助文件。
相关文章推荐
- 使textarea支持tab缩进
- Ionic Js十九:加载动画
- 如何用EasyWebSvr搭建Axure本地访问地址
- 使textarea支持tab缩进
- android-- Android 开发60条技术经验总结
- linux 系统下常用的命令
- 路由器接口配置与管理——5
- 内存观点
- shiro相关网址
- 特别好的CMake
- C/C++计时器检查程序性能
- iis7 appcmd的基础命令及简单用法
- 5分钟内搞定 Tomcat 的 SSL 配置
- Bro:一个开放源码的高级NIDS系统
- 500 internal server error
- C++语言特性备忘
- 第十六周 阅读程序1
- 【NOI 2010】【BZOJ 2005】【JZOJ 2225】能量采集
- hdu3534,恶心的树形dp,需要考虑的东西太多了
- canvas 简易时钟