SecureCRT多台服务器快速登录--VB脚本

脚本适用于同时打开20个连接，同时进行操作，配置好IP列表文件，用户名密码，可以一键登录服务器，方法如下：
1.新建两个文件ip.txt和vb.vbs(注意文件名的后缀，可在文件夹–查看，勾选文件拓展名)

复制如下代码，添加到vb.vbs文件

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

Const ForReading = 1
Dim fso, iplistpath , iplist, StrIp, StrPwd
Dim loginuser

iplistpath=".\ip.txt"
loginuser = "用户名"
StrPwd="密码"
'MsgBox("Your Password is " & StrPwd)

Set fso = CreateObject("Scripting.FileSystemObject")
Set iplist = fso.OpenTextFile(iplistpath , ForReading, False) ' ip-list file path

Do While iplist.AtEndOfStream <> True
    StrIp = Trim(iplist.Readline)
        If StrIp <> "" Then
            cmd = "/ssh2 /L " & loginuser &" /PASSWORD " & StrPwd & " /C 3DES " & StrIp
crt.Session.ConnectInTab cmd
        End If
Loop

ip.txt文件格式如下

192.168.1.1
192.168.1.2
192.168.1.3
192.168.1.4
192.168.1.5
192.168.1.6
192.168.1.7
192.168.1.8
192.168.1.9
192.168.1.10
192.168.1.11
192.168.1.12
192.168.1.13
192.168.1.14
192.168.1.15
192.168.1.16
192.168.1.17
192.168.1.18
192.168.1.19
192.168.1.20

2.文件都配置好以后，打开CRT，点击脚本–执行

点击vb脚本–执行，就全部登陆了

小技巧：CRT支持同时发送同一个命令给多个连接，打开CRT的交互窗口，最下边会打开一个新的会话框，在新会话框的空白处点击右键–发送交互到所有会话，就可以同时操作所有机器了
Ctrl+Tab键可以切换各个窗口