SecureCRT 脚本自动化实现指南

SecureCRT 提供了强大的脚本功能，可以通过 VBScript、JScript 或 Python 脚本实现自动化操作。以下是实现 SecureCRT 脚本自动化的详细方法：

1. 脚本基础

支持的脚本语言

• VBScript (默认)
• JScript
• Python (需要额外配置)

脚本位置

• 全局脚本：%APPDATA%\VanDyke\Config\Scripts
• 会话特定脚本：保存在会话配置中

2. 创建和运行脚本

创建新脚本

1. 打开 SecureCRT
2. 菜单栏选择 Script > New Script
3. 选择脚本语言类型
4. 编写脚本代码

基本脚本示例 (VBScript)

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

Sub Main
    crt.Screen.Send "ls -l" & vbCr
    crt.Screen.WaitForString "$"
    crt.Screen.Send "date" & vbCr
End Sub

3. 常用脚本功能

连接会话

crt.Session.Connect "/SSH2 /L username /PASSWORD password hostname"

发送命令

crt.Screen.Send "command" & vbCr

等待特定字符串

crt.Screen.WaitForString "prompt$"

读取屏幕内容

result = crt.Screen.ReadString("prompt$")

处理对话框

If crt.Dialog.MessageBox("Continue?", vbYesNo) = vbYes Then
    ' 用户点击了是
End If

4. 高级自动化技巧

参数化脚本

Sub Main
    Dim hostname, username, password
    hostname = crt.Arguments.GetArg(0)
    username = crt.Arguments.GetArg(1)
    password = crt.Arguments.GetArg(2)

    crt.Session.Connect "/SSH2 /L " & username & " /PASSWORD " & password & " " & hostname
End Sub

日志记录

Set fso = CreateObject("Scripting.FileSystemObject")
Set logFile = fso.OpenTextFile("C:\logs\session.log", 8, True)
logFile.WriteLine "Session started: " & Now

错误处理

On Error Resume Next
' 可能出错的代码
If Err.Number <> 0 Then
    crt.Dialog.MessageBox "Error: " & Err.Description
    Exit Sub
End If

5. 定时执行脚本

使用 Windows 任务计划

1. 创建批处理文件 (.bat) 调用 SecureCRT 并执行脚本： "C:\Program Files\VanDyke Software\SecureCRT\SecureCRT.exe" /SCRIPT "C:\scripts\myscript.vbs" /ARG "hostname" "username" "password"
2. 在 Windows 任务计划中设置定时执行该批处理

6. Python 脚本支持

要使用 Python 脚本，需要： 1. 安装 Python 2. 在 SecureCRT 中配置 Python 解释器路径 (Options > Global Options > General > Default Session > Edit Default Settings > Terminal > Advanced)

Python 脚本示例：

import os
def Main():
    crt.Screen.Send("ls -l\r")
    crt.Screen.WaitForString("$")
    crt.Screen.Send("date\r")

7. 调试脚本

• 使用 crt.Dialog.MessageBox 显示调试信息
• 启用脚本日志 (Options > Global Options > General > Scripting)
• 使用 crt.Screen.Send "echo $?" & vbCr 检查上一条命令的返回值

8. 常用场景示例

自动登录并执行命令

Sub Main
    crt.Session.Connect "/SSH2 /L user /PASSWORD pass host"
    crt.Screen.WaitForString "$"
    crt.Screen.Send "cd /var/log" & vbCr
    crt.Screen.WaitForString "$"
    crt.Screen.Send "grep 'error' messages" & vbCr
End Sub

批量设备配置

Sub Main
    Dim devices(2)
    devices(0) = "router1"
    devices(1) = "switch1"
    devices(2) = "firewall1"

    For Each dev In devices
        crt.Session.Connect "/SSH2 /L admin /PASSWORD admin123 " & dev
        crt.Screen.WaitForString "#"
        crt.Screen.Send "show run" & vbCr
        crt.Screen.WaitForString "--More--"
        crt.Screen.Send " "
        crt.Session.Disconnect
    Next
End Sub

通过以上方法，您可以实现 SecureCRT 的自动化操作，提高工作效率。