原文链接：http://www.blogjava.net/fastzch/archive/2008/09/29/231793.html

SecureCRT支持ActiveX script engines，包括VBScript和JScript (Microsoft’s version of JavaScript)两种脚本。



Note：如果你想使用脚本自动运行方式的话，需要在 session option中进行设置。

脚本可以用任何文本编辑器来开发。Script头部用来识别脚本语言和SecureCRT脚 本接口的版本，脚本头部的每一行必须以#开头，头部包括

$language

行和

$interface

行。 例如，下面是一个简单的脚本。


# $language = "VBScript"
# $interface = "1.0"

Sub Main
  ' Display SecureCRT's version
  MsgBox "SecureCRT version is: " & crt.Version
End Sub

代 码通常放在main子过程，引擎在执行main子过程前，将转换并执行全局代码(脚本代码定义在任何子过程之外)，如果你有一些初始化处理的话，可以使用 这一特性。

如果想终止main过程，用VBScript的话，可以用Exit Sub语句。如：

Sub Main

  condition = DoSomething()
  If condition = 0 Then
    ' Error, bailout
    Exit Sub
  End If
   
End Sub

SecureCRT 有一些内建的对象，可以通过顶级应用对象或子对象调用。这些对象都有一些属性和方法。例如：

Dim dlg
Set dlg = crt.Dialog
dlg.Prompt("Login:")



下 面分享给大家一个通过N个跳板机上传文件的FTP脚本：

#$language = "VBScript"
#$interface = "1.0"

Sub main
  ' turn on synchronous mode so we don't miss any data
  crt.Screen.Synchronous = True
  
  ' Wait for a string that looks like "login: " or "Login: "
  ' Occasionally, a host needs to be kicked to display a
  ' login prompt.
  
  If (Not crt.Screen.WaitForString("ogin: ", 5)) Then
    crt.Screen.Send vbCr
    crt.Screen.WaitForString "ogin: "
  End If
  
  crt.Screen.Send "user0" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "pwd0" & VbCr
  crt.Screen.WaitForString "#"
  crt.Screen.Send "cd /tmp" & VbCr
  crt.Screen.WaitForString "#"
 
  'ftp to Machine1
  crt.Screen.Send "ftp IP1" & VbCr
  crt.Screen.WaitForString "): "
  crt.Screen.Send "user1" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "pwd1" & VbCr
  crt.Screen.WaitForString "ftp> "
  filename = crt.Dialog.Prompt("Please enter your filename.", "Enter filename", "", false)  
  crt.Screen.Send "cd /tmp" & VbCr
  crt.Screen.WaitForString "ftp> "
  crt.Screen.Send "binary" & VbCr
  crt.Screen.WaitForString "ftp> "  
  crt.Screen.Send "put " + filename & VbCr
  crt.Screen.WaitForString "ftp> "
  crt.Screen.Send "bye" & VbCr
  crt.Screen.WaitForString "#"   


  crt.Screen.Send "telnet IP1" & VbCr
  
  If (Not crt.Screen.WaitForString("ogin: ", 5)) Then
    crt.Screen.Send vbCr
    crt.Screen.WaitForString "ogin: "
  End If
  
  crt.Screen.Send "user1" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "pwd1" & VbCr
  crt.Screen.WaitForString ">"
  crt.Screen.Send "cd /tmp" & VbCr
  crt.Screen.WaitForString ">"
  
  
  
  'ftp to Machine2
  crt.Screen.Send "ftp IP2" & VbCr
  crt.Screen.WaitForString "): "
  crt.Screen.Send "user2" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "pwd2" & VbCr
  crt.Screen.WaitForString "ftp> "
  
  crt.Screen.Send "cd /tmp" & VbCr
  crt.Screen.WaitForString "ftp> "
  crt.Screen.Send "binary" & VbCr
  crt.Screen.WaitForString "ftp> "  
  crt.Screen.Send "put " + filename & VbCr
  crt.Screen.WaitForString "ftp> "
  crt.Screen.Send "bye" & VbCr
  crt.Screen.WaitForString ">"   


  crt.Screen.Send "telnet IP2" & VbCr
  If (Not crt.Screen.WaitForString("ogin: ", 5)) Then
    crt.Screen.Send vbCr
    crt.Screen.WaitForString "ogin: "
  End If
  crt.Screen.Send "user2" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "pwd2" & VbCr
  crt.Screen.WaitForString "#"
  crt.Screen.Send "cd /tmp" & VbCr
  crt.Screen.WaitForString "#"
  
  
  
  
  
  
    'ftp  to Machine3
  crt.Screen.Send "ftp IP3" & VbCr
  crt.Screen.WaitForString "): "
  crt.Screen.Send "user3" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "pwd3" & VbCr
  crt.Screen.WaitForString "ftp> "
 
  crt.Screen.Send "cd /tmp" & VbCr
  crt.Screen.WaitForString "ftp> "
  crt.Screen.Send "binary" & VbCr
  crt.Screen.WaitForString "ftp> "  
  crt.Screen.Send "put " + filename & VbCr
  crt.Screen.WaitForString "ftp> "
  crt.Screen.Send "bye" & VbCr
  crt.Screen.WaitForString "#"   


  crt.Screen.Send "telnet IP3" & VbCr
  
  If (Not crt.Screen.WaitForString("ogin: ", 5)) Then
    crt.Screen.Send vbCr
    crt.Screen.WaitForString "ogin: "
  End If
  
  crt.Screen.Send "user3" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "pwd3" & VbCr
  crt.Screen.WaitForString "#"
  crt.Screen.Send "cd /tmp" & VbCr
  crt.Screen.WaitForString "#"
  
  
  
  
  
    'ftp  to Machine4
  crt.Screen.Send "ftp IP4" & VbCr
  crt.Screen.WaitForString "): "
  crt.Screen.Send "user4" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "pwd4" & VbCr
  crt.Screen.WaitForString "ftp> "

  crt.Screen.Send "binary" & VbCr
  crt.Screen.WaitForString "ftp> "  
  crt.Screen.Send "put " + filename & VbCr
  crt.Screen.WaitForString "ftp> "
  crt.Screen.Send "bye" & VbCr
  crt.Screen.WaitForString "#"   


  crt.Screen.Send "telnet IP4" & VbCr
  
  If (Not crt.Screen.WaitForString("ogin: ", 5)) Then
    crt.Screen.Send vbCr
    crt.Screen.WaitForString "ogin: "
  End If
  
  crt.Screen.Send "user4" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "pwd4" & VbCr
  crt.Screen.WaitForString ">"
  
  
  crt.Screen.Synchronous = False

End Sub