SecureCRT运行vbs脚本实现自动登录至设备并执行命令

需要准备的工具软件：SecureCRT

SecureCRT支持运行vbs脚本，编写合适的vbs脚本，可实现自动化登录设备（一般使用ssh协议，如网络安全设备，路由器、交换机、虚拟机、服务器等），执行脚本中编写好的命令，同时把命令回显，输出至指定的文件中。

应用场景：

（1）多台网络设备配置备份

（2）多台虚拟机需要自动执行相同的命令

此文档使用说明：

（1）vbs脚本，文件名称：xxx.vbs，把脚本文件放至目录：D:ackup_script

（2）list.txt 文件，填写设备的IP地址用户名和密码，用于脚本调用，文件放在目录：D:ackup_script 【脚本中第9行，可以根据需要自己修改】

（3）安装好SecureCRT工具软件

（4）创建好目录：D:ackup_scriptackup 【脚本中第17行，回显内容按IP输出到的目录，可根据需要修改】

1、vbs脚本内容

#$language = "VBScript"
# $interface = "1.0"  
'本脚本示范：从一个文件里面自动读取设备IP地址，密码等，自动将设备配置备份 
Sub Main
'打开保存设备管理地址、名称以及密码的文件
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso,file1,line,str1,params
Set fso = CreateObject("Scripting.FileSystemObject")
    Set file1 = fso.OpenTextFile("D:ackup_scriptlist.txt",Forreading, False)'list.txt文件所在目录：D:ackup_script'
crt.Screen.Synchronous = True
DO While file1.AtEndOfStream <> True
'读出每行
line = file1.ReadLine
'分离每行的参数 IP地址 密码 En密码
params = Split (line)
'每台设备执行命令的回显，输出到文件夹D:ackup_scriptackup'
crt.session.LogFileName = "D:ackup_scriptackup" & params(1) & " " & params(0) & ".txt"
crt.session.Log(true)
'SSH到这个设备上
crt.Session.Connect ("/SSH2 /PASSWORD "& params(3) & " " & params(2) & "@" & params(0))
'定义str1，命令写在=号后面用双引号括起来'
str1 = "echo 'root01!' | su - root -c 'dmidecode -t system'"
'root无法ssh登录，需要使用普通 用户登录上，普通用户无权限执行的命令，需要切换到root用户执行，需要保证每台设备的root密码都一样，为：root01!'
 
'定义str2,普通用户可以直接执行的命令'
str2 = "cat /etc/passwd" 
 
'执行命令'
crt.Screen.Send str1 & vbcr '执行定义的str1'
crt.Screen.Send str2 & vbcr '执行定义的str2'
Do Until crt.Screen.WaitForString ("---- More ----",3) = False
crt.Screen.Send " "
loop
 
'执行命令后退出          
 
crt.Session.Disconnect
 
loop
 
crt.Screen.Synchronous = False
 
End Sub

2、list.txt内容

192.1.1.21 server1 test test01
192.1.1.102 server2 test test01

内容解释：一行为一台设备的相关信息，第一列为IP地址，第二列为设备名（自定义，随便起名），第三列为登录设备的用户名，第四列为第三列的用户对应的密码。

3、执行过程截图

3.1 打开SecureCRT，点击Script→Run→选中要运行的vbs脚本文件→点击run

3.2 SecureCRT开始登录设备，并执行脚本中的内容

3.3 查看目录中已经生成对应设备执行脚本时的回显