SecureCRT 发送文件内容

        当需要连接 Linux 服务器或设备的时候，SecureCRT 是一个利器。有一个工作场景是这样的，工程代码在服务器上编译完后运行，然后用 secureCRT 连接程序的指定端口（用 telnet ），连接上后就往端口里下发配置（一些基础的配置大概有 3000 行，每次都需要拷贝-粘贴 比较麻烦）。于是用脚本的方式进行操作，首先从配置文件里读取，然后再一条条配置下发。

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

Dim g_objTab 
Set g_objTab = crt.GetScriptTab

'------get the index of current tab
currentTabIdx = g_objTab.index

Set objCurrentTab = crt.GetTab(currentTabIdx)

Set fso = CreateObject("Scripting.FileSystemObject")
fileName = "object_counter_npt2300_base_config.txt"
fileBuf = fso.OpenTextFile(fileName).ReadAll
lineBuf = Split(fileBuf, vbCrlf)

if objCurrentTab.Session.Connected = True then
	For Each line In lineBuf
		objCurrentTab.Screen.Send line &vbcr
	Next
end if

然后在按钮栏加一个按钮，简直不要太方便了，按钮一点一条条配置自动下发。