如何批量修改交换机密码

用crt的脚本工具，选择执行脚本直接执行 telnet修改密码（（不过里面的代码以及路径自己修改）：

# $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:\SWbackup\list.txt",Forreading, False)        
     crt.Screen.SynchrOnous= True
     DO While file1.AtEndOfStream <> True
        "读出每行
        line = file1.ReadLine
        "分离每行的参数 IP地址 密码 En密码
        params = Split (line)
       crt.session.LogFileName = "d:\SWbackup\log\20120331\" & params(0) & ".txt"
       crt.session.Log(true)
        "Telnet到这个设备上
        crt.Session.Connect "/TELNET " & params(0)
        "输入telnet密码
        crt.Screen.WaitForString "Password:"
        crt.Screen.Send params(1) & vbcr
        "进特权模式
        crt.Screen.Send "enable" & vbcr
        crt.Screen.WaitForString "Password:"
        crt.Screen.Send params(2) & vbcr
        crt.Screen.waitForString "#"
         "备份目前runing-config配置
        str1 = "show run"
        crt.Screen.Send str1 & vbcr
 crt.Screen.WaitForString " --More-- "
 crt.Screen.Send "                                                                                                                                                          " & vbcr
        "备份完成后退出
        crt.Screen.waitForString "!" & vbcrlf & "end"
        crt.Session.Disconnect         
        loop
     crt.Screen.SynchrOnous= False           
End Sub
 "list.txt需要先做好。每行3列分别是：交换机ip 密码 enable密码。例如：192.168.1.1 cisco cisco，有多少交换机就写多少行  

如果有IMC 的话，可以批量操作，如果没有IMC的话，没法批量修改，但批量修改出来的密码都是一样的，没有IMC的话，你可以写个脚本，挨个设备连接，然后复制粘贴，这样比较快