crt脚本退出命令_SecureCRT下的批命令脚本 | 学步园

下面的脚本是在SecureCRT下运行的，采用vbs语言编写。把所有的配置命令放在一个文本文件中，然后使用测试脚本来执行这些命令，简化测试过程中的配置过程。

这个脚本在SecureCRT Version 4.0 (build 358)上调试通过。

执行前，根据自己的需要，修改一下CliPrompt、CliError、ShowError等常量。

CliPrompt是CLI的命令提示符

CliError是配置出错时显示的出错提示信息，用来判别命令的执行结果

ShowError表示在出错时，是不是显示一个提示框

在执行时，会提示输入一个命令列表文件名，然后执行这个文件中的所有命令。缺省的列表文件名是cmds.txt。

命令列表文件的格式很简单，每条命令单独放在一行里

如果一行的第一个字符是"#"，表示这行是注释行，在执行时被跳过

如果一行中没有任何字符，或者只有空格，则认为是空白行，在执行时被跳过

希望对大家有帮助。

# $language = "VBScript"

# $interface = "1.0"

' $Id$

Option Explicit

' constant

Const CliPrompt = "$"      ' CLI prompt

Const CliError = "Error"        ' the prompt when command exec error

Const ShowError = 1             ' If you dont want to see error msg, change to 0

Sub Main

Dim fso, f, cmdFile

Dim ln, cmd, pmt, sel, rc

Const ForReading = 1, ForWriting = 2, ForAppending = 8

' When error occured, continue to execute

On Error Resume Next

' Open file

cmdFile = crt.Dialog.Prompt("Enter your cmds filename:", "ExecCmds Script", "cmds.txt" )

Set fso = CreateObject("Scripting.FileSystemObject" )

Set f = fso.OpenTextFile(cmdFile, ForReading )

Do While f.AtEndOfStream <> true

' Read line

ln = f.ReadLine

' Trim blankspace

cmd = Trim(ln)

' Skip blank line and comment lines

If len(cmd) <> 0 And Left(cmd, 1) <> "#" Then

' For debug

' MsgBox("Line: " & cmd)

' Exec command

cmd = cmd & vbCrLf

Crt.Screen.Send cmd

rc = Crt.Screen.WaitForStrings(CliPrompt, CliError, 10)

If (showError = 1 And rc <> 1) Then

' error occured

pmt = "Error occured when exec:" & vbCrLf & cmd & vbCrLf & "Continue?"

sel = msgbox(pmt, vbOKCancel, "Information" )

If sel = vbCancel Then

Exit Do

End If ' rc = vbCancel

End If ' ShowError = 1 And rc <> 1

End If ' len(cmd) <> 0 And ...

Loop

f.Close

End Sub

参考资料

<1> SecureCRT help file

<2> Visual Basic Scripting运行时库参考