securecrt的vbs脚本

vbs文件内容：

#$language = "VBScript"

#$interface = "1.0" 
Sub main
crt.Screen.Synchronous = True
'获取securecrt对象，定义变量
'Dim objTab
'Set objTab = crt.GetScriptTab

'1.跳转到相应的目录，vbcr表示回车
szCommand="cd /home"
crt.Screen.Send szCommand & vbcr
'等待命令执行成功后，才执行下面的语句
crt.Screen.waitForString "["

'2.上传本地文件到服务器【要设置默认的下载目录：securecrt—》session Option--》X/Y/Zmodem的 upload】
szCommand="rz"
crt.Screen.Send szCommand & vbcr
crt.Screen.waitForString "["

'3.移动文件到相应的目录
'szCommand="mv -f mysky.txt /home"
'crt.Screen.Send szCommand & vbcr
'crt.Screen.waitForString "["

'4.压缩文件
szCommand="zip test2013_backup.zip mysky.txt"
crt.Screen.Send szCommand & vbcr
crt.Screen.waitForString "["

'5.下载文件服务器文件到本地【要设置默认的下载目录：securecrt—》session Option--》X/Y/Zmodem的 download】
szCommand="sz test2013_backup.zip"
crt.Screen.Send szCommand & vbcr
crt.Screen.waitForString "["

crt.Screen.Synchronous = False
End Sub