指令碼適用於同時開啟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鍵可以切換各個視窗