利用SecureCRT實現網絡設備自動備份-華爲、H3C篇

（1）新建文本文件（注意保存路徑，本次測試路徑爲D:\backup\list.txt）：

　　x.x.x.x username password enable_password   （#注：若是沒有enable密碼能夠不寫；每項用空格分割）

（2）新建文本文件H3C.txt（路徑D:\backup\H3C.txt），內容以下：

# $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:\backup\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:\backup\h3c\201611\" & params(0) & ".txt"

       crt.session.Log(true)

        'Telnet到這個設備上

        crt.Session.Connect "/TELNET " & params(0)

        crt.Screen.WaitForString "Username:" 

        crt.Screen.Send params(1) & Chr(13)

        

        '輸入telnet密碼

        crt.Screen.WaitForString "Password:"

        crt.Screen.Send params(2) & Chr(13)

        '進特權模式

        crt.Screen.Send "sup" & Chr(13)

        crt.Screen.WaitForString "Password:"

        crt.Screen.Send params(3) & Chr(13)

        crt.Screen.waitForString ">"

         '備份目前runing-config配置

        str1 = "disp cur "

        crt.Screen.Send str1 & Chr(13)

        crt.Screen.WaitForString " ---- More ----"

        crt.Screen.Send "                "

        'crt.Screen.Send Chr(13)                                                                                                                                                      " & vbcr

        '備份完成後退出

        crt.Screen.waitForString  "return"

        crt.Screen.waitForString ">" 

        '執行disp int br命令 

        crt.Screen.Send "disp int brief" & Chr(13)

        crt.Screen.WaitForString " ---- More ----"

        crt.Screen.Send "                        "

        crt.Screen.waitForString ">"

        crt.screen.send Chr(13)

        crt.Session.Disconnect  

        loop

     crt.Screen.Synchronous = False           

End Sub

（3）修改上面文本後綴個是爲.vbs，即H3C.vbs；

（4）運行CRT軟件，菜單欄-->腳本-->執行-->找到腳本路徑D:\backup\H3C.vbs；

（5）查看備份文件保存路徑