一、前言

  在有一些IT环境中，可能存在各种情况的服务器，因为各种原因不能统一部署类似ansible、saltstack等批量操控软件，当遇到需要对这些服务器进行某项信息的排查或调整配置时，你是否还是通过securecrt一台一台登录后进行操作？数量少还行，如果数量有个百八十台，建议可以保留下面介绍的securecrt批量登录脚本，它将帮你节省不少时间。

二、脚本介绍

1、前提条件

服务器都有一个相同密码的用户，比如root，或其他指定用户

2、两个文件

login.vbs--红色部分替换为实际用户和密码

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

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

iplistpath=".\ip.txt"
loginuser = "youruser"
StrPwd="youruserpasswd"
'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 AES-256-CTR " & StrIp
crt.Session.ConnectInTab cmd
        End If
Loop

 ip.txt--上一步脚本中定义的主机IP文档

192.168.0.1

192.168.1.1

X.X.X.X

 三、实现过程

1、打卡securecrt，点击scripts--RUN

选中编辑后的vbs脚本后，点击RUN

 接着crt窗口就会依次自动登录ip.txt文件中记录的主机，如果有异常会提示相应报错；当所有主机都登录后，则可以继续使用crt下框右键的批量command window菜单，批量下发指令。