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