SecureCRT中使用VBscript实例介绍
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
'第一次用 ssh 登录时执行 IF 中的语句
If (Not crt.Screen.WaitForString("assword:",5)) Then crt.Screen.Send "yes" & VbCr crt.Sleep(5)
End If
'输入密码
crt.Screen.send "888888" & VbCr
crt.Screen.Send "yes" & VbCr crt.Sleep(5) End If crt.Screen.send "888888" & VbCr crt.Screen.send "cd /home/etuser/sys/cs010_20060426_001/bin" & VbCr crt.Screen.send "killall csd" & VbCr crt.Sleep(1) crt.Screen.send "./csd" & VbCr crt.Sleep(1)
crt.Screen.Send "yes" & VbCr crt.Sleep(10) End If crt.Screen.send "888888" & VbCr crt.Screen.send "cd /home/etuser/sys/PS_V5.0.0011_LINUX/bin" & VbCr crt.Screen.send "killall psd" & VbCr crt.Sleep(1) crt.Screen.send "./psd" & VbCr crt.Sleep(1)
'进入 ims002 的目录
crt.Screen.Send "cd /home/etuser/sys/ims009 " & VbCr
'杀掉当前的 imsd 进程
crt.ScБайду номын сангаасeen.Send "killall imsd" & VbCr
'暂停 1 秒
crt.Sleep(1)
'启动 csd 进程
crt.Screen.Send "./imsd" & VbCr
在 SecureCRT 中执行 VBscript 方法： 按照下图所示的方法运行脚本 从菜单中选择脚本――>运行——>找到脚本所在的路径， 点击执行
图表 1 在 SecureCRT 中运行脚本
3. 开启服务端实体的 VBscript 脚本详解
#$language = "VBScript" #$interface = "1.0" Sub main
3
'----------------------------------------启动 ps001 进程-----------------------------------------------------
crt.Screen.Send "ssh etuser@192.168.10.28" & VbCr If (Not crt.Screen.WaitForString("assword:",5)) Then
'暂停 1 秒
crt.Sleep(1)
'------------------------------------------启动 ips002 实体---------------------------------------------------
crt.Screen.Send "ssh etuser@192.168.10.12" & VbCr If (Not crt.Screen.WaitForString("assword:",5)) Then
crt.Screen.Send "yes" & VbCr crt.Sleep(5) End If crt.Screen.send "888888" & VbCr crt.Screen.send "cd /home/ips002/sys/ips009_20060426_001" & VbCr crt.Screen.send "killall ipsd" & VbCr crt.Sleep(1) crt.Screen.send "./ipsd" & VbCr crt.Sleep(1)
If (Not crt.Screen.WaitForString("assword:",5)) Then crt.Screen.Send "yes" & VbCr crt.Sleep(10)
End If crt.Screen.send "888888" & VbCr crt.Screen.send "cd /home/etuser/sys/IMS009" & VbCr crt.Screen.send "killall imsd" & VbCr crt.Sleep(1) crt.Screen.send "./imsd" & VbCr crt.Sleep(1)
'---------------------------------------启动 ims001 进程----------------------------------------------------
crt.Screen.Send "ssh etuser@192.168.10.29" & VbCr
crt.Screen.Send "yes" & VbCr crt.Sleep(5) End If crt.Screen.send "888888" & VbCr crt.Screen.Send "cd /home/etuser/sys/ips009 -20060426-001" & VbCr crt.Screen.Send "killall ipsd" & VbCr crt.Sleep(1) crt.Screen.Send "./ipsd" & VbCr crt.Sleep(1)
'开启同步模式
crt.Screen.Synchronous = True
'-----------------------------------------------启动 cs002 实体---------------------------------------------'进入 cs002 的目录
crt.Screen.Send "yes"
2
End If crt.Screen.send "888888" & VbCr crt.Screen.Send "cd /home/etuser/sys/ps011" & VbCr crt.Screen.Send "killall psd" & VbCr crt.Sleep(1) crt.Screen.Send "./psd" & VbCr crt.Sleep(5)
'-----------------------------------------启动 ips001 进程---------------------------------------------------
crt.Screen.Send "ssh ips002@192.168.10.9" & VbCr If (Not crt.Screen.WaitForString("assword:",5)) Then
'------------------------------------启动 cs001 进程--------------------------------------------------------
crt.Screen.Send "ssh etuser@192.168.10.10" & VbCr If (Not crt.Screen.WaitForString("assword:",5)) Then
'----------------------------------------启动 ps002 实体----------------------------------------------------
crt.Screen.Send "ssh etuser@10.0.1.22" & VbCr If (Not crt.Screen.WaitForString("assword:",1)) Then
2. 在 SecureCRT 中编写 VBscript
SecureCRT 是为了英特网与内部网所设计的 32 位终端机程序，它支持 SSH（secure shell）、Telnet 及 rlogin 协议。它提供标准 CRT 终端机程序的功能，如：自动登入、打印、 Zmodem 档案传输、Emacs 模式及支持防火墙。SecureCRT 及 SSH 在我们的日常测试中经 常用到，最常用到的功能是于远程 ssh 登陆服务器对实体进行更新、启动、停止等操作， SecureCRT 对脚本的支持非常强大，下面介绍使用 VBscript 语言实现杭州测试环境中服务 端实体程序开启的实例，希望能起到抛砖引玉的作用，把 SecureCRT 其它未用到的功能发 掘出来，为我们的日常工作服务
'暂停 1 秒
crt.Sleep(1)
'--------------------------------------------启动 ims002 实体----------------------------------------------'使用 ssh 命令登录到 ims002 服务器
crt.Screen.Send "ssh etuser@192.168.10.6" & VbCr
crt.Screen.Send "cd /home/etuser/sys/cs010_20060426_001/" & VbCr 1
'杀掉当前的 csd 进程
crt.Screen.Send "killall csd" & VbCr
'暂停 1 秒
crt.Sleep(1)
'启动 csd 进程
crt.Screen.Send "./csd" & VbCr
' 关掉同步模式恢复正常输入过程
crt.Screen.Synchronous = False End Sub
4
SecureCRT 中使用 VBscript 提高工作效率
1. 引言
在测试环境的 维护、更新 中有很多 大量重复耗 时的工作 ，如修改每 台服务器 密码、为 每台服务器添加路由、开启所有实体对应的 emagent 等操作，人为操作不仅耗时，而且很 容易出错，为使 这些重复 的日常工作 变的更加高 效、有序， 就必须想 办法通过脚 本来完成 这些工作，这样可以大大提高工作效率的同时提高操作结果的质量。
If (Not crt.Screen.WaitForString("assword:",5)) Then crt.Screen.Send "yes" & VbCr crt.Sleep(5)
End If
'输入密码
crt.Screen.send "888888" & VbCr
crt.Screen.Send "yes" & VbCr crt.Sleep(5) End If crt.Screen.send "888888" & VbCr crt.Screen.send "cd /home/etuser/sys/cs010_20060426_001/bin" & VbCr crt.Screen.send "killall csd" & VbCr crt.Sleep(1) crt.Screen.send "./csd" & VbCr crt.Sleep(1)
crt.Screen.Send "yes" & VbCr crt.Sleep(10) End If crt.Screen.send "888888" & VbCr crt.Screen.send "cd /home/etuser/sys/PS_V5.0.0011_LINUX/bin" & VbCr crt.Screen.send "killall psd" & VbCr crt.Sleep(1) crt.Screen.send "./psd" & VbCr crt.Sleep(1)
'进入 ims002 的目录
crt.Screen.Send "cd /home/etuser/sys/ims009 " & VbCr
'杀掉当前的 imsd 进程
crt.ScБайду номын сангаасeen.Send "killall imsd" & VbCr
'暂停 1 秒
crt.Sleep(1)
'启动 csd 进程
crt.Screen.Send "./imsd" & VbCr
在 SecureCRT 中执行 VBscript 方法： 按照下图所示的方法运行脚本 从菜单中选择脚本――>运行——>找到脚本所在的路径， 点击执行
图表 1 在 SecureCRT 中运行脚本
3. 开启服务端实体的 VBscript 脚本详解
#$language = "VBScript" #$interface = "1.0" Sub main
3
'----------------------------------------启动 ps001 进程-----------------------------------------------------
crt.Screen.Send "ssh etuser@192.168.10.28" & VbCr If (Not crt.Screen.WaitForString("assword:",5)) Then
'暂停 1 秒
crt.Sleep(1)
'------------------------------------------启动 ips002 实体---------------------------------------------------
crt.Screen.Send "ssh etuser@192.168.10.12" & VbCr If (Not crt.Screen.WaitForString("assword:",5)) Then
crt.Screen.Send "yes" & VbCr crt.Sleep(5) End If crt.Screen.send "888888" & VbCr crt.Screen.send "cd /home/ips002/sys/ips009_20060426_001" & VbCr crt.Screen.send "killall ipsd" & VbCr crt.Sleep(1) crt.Screen.send "./ipsd" & VbCr crt.Sleep(1)
If (Not crt.Screen.WaitForString("assword:",5)) Then crt.Screen.Send "yes" & VbCr crt.Sleep(10)
End If crt.Screen.send "888888" & VbCr crt.Screen.send "cd /home/etuser/sys/IMS009" & VbCr crt.Screen.send "killall imsd" & VbCr crt.Sleep(1) crt.Screen.send "./imsd" & VbCr crt.Sleep(1)
'---------------------------------------启动 ims001 进程----------------------------------------------------
crt.Screen.Send "ssh etuser@192.168.10.29" & VbCr
crt.Screen.Send "yes" & VbCr crt.Sleep(5) End If crt.Screen.send "888888" & VbCr crt.Screen.Send "cd /home/etuser/sys/ips009 -20060426-001" & VbCr crt.Screen.Send "killall ipsd" & VbCr crt.Sleep(1) crt.Screen.Send "./ipsd" & VbCr crt.Sleep(1)
'开启同步模式
crt.Screen.Synchronous = True
'-----------------------------------------------启动 cs002 实体---------------------------------------------'进入 cs002 的目录
crt.Screen.Send "yes"
2
End If crt.Screen.send "888888" & VbCr crt.Screen.Send "cd /home/etuser/sys/ps011" & VbCr crt.Screen.Send "killall psd" & VbCr crt.Sleep(1) crt.Screen.Send "./psd" & VbCr crt.Sleep(5)
'-----------------------------------------启动 ips001 进程---------------------------------------------------
crt.Screen.Send "ssh ips002@192.168.10.9" & VbCr If (Not crt.Screen.WaitForString("assword:",5)) Then
'------------------------------------启动 cs001 进程--------------------------------------------------------
crt.Screen.Send "ssh etuser@192.168.10.10" & VbCr If (Not crt.Screen.WaitForString("assword:",5)) Then
'----------------------------------------启动 ps002 实体----------------------------------------------------
crt.Screen.Send "ssh etuser@10.0.1.22" & VbCr If (Not crt.Screen.WaitForString("assword:",1)) Then
2. 在 SecureCRT 中编写 VBscript
SecureCRT 是为了英特网与内部网所设计的 32 位终端机程序，它支持 SSH（secure shell）、Telnet 及 rlogin 协议。它提供标准 CRT 终端机程序的功能，如：自动登入、打印、 Zmodem 档案传输、Emacs 模式及支持防火墙。SecureCRT 及 SSH 在我们的日常测试中经 常用到，最常用到的功能是于远程 ssh 登陆服务器对实体进行更新、启动、停止等操作， SecureCRT 对脚本的支持非常强大，下面介绍使用 VBscript 语言实现杭州测试环境中服务 端实体程序开启的实例，希望能起到抛砖引玉的作用，把 SecureCRT 其它未用到的功能发 掘出来，为我们的日常工作服务
'暂停 1 秒
crt.Sleep(1)
'--------------------------------------------启动 ims002 实体----------------------------------------------'使用 ssh 命令登录到 ims002 服务器
crt.Screen.Send "ssh etuser@192.168.10.6" & VbCr
crt.Screen.Send "cd /home/etuser/sys/cs010_20060426_001/" & VbCr 1
'杀掉当前的 csd 进程
crt.Screen.Send "killall csd" & VbCr
'暂停 1 秒
crt.Sleep(1)
'启动 csd 进程
crt.Screen.Send "./csd" & VbCr
' 关掉同步模式恢复正常输入过程
crt.Screen.Synchronous = False End Sub
4
SecureCRT 中使用 VBscript 提高工作效率
1. 引言
在测试环境的 维护、更新 中有很多 大量重复耗 时的工作 ，如修改每 台服务器 密码、为 每台服务器添加路由、开启所有实体对应的 emagent 等操作，人为操作不仅耗时，而且很 容易出错，为使 这些重复 的日常工作 变的更加高 效、有序， 就必须想 办法通过脚 本来完成 这些工作，这样可以大大提高工作效率的同时提高操作结果的质量。