华为交换机自动保存配置

#$language = "VBScript"
#$interface = "1.0"
'自动备份设备配置，版本号1.0日期2017年12月17日作者heping
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\list.txt",Forreading, False)        
     crt.Screen.Synchronous = True
     DO While file1.AtEndOfStream <> True'读出所有
     line = file1.ReadLine '读取每行
     params = Split (line)  '分离每行的参数 IP地址 密码 
     crt.session.LogFileName = "D:\Backup\bak\log\" & params(0) & ".txt"
     crt.session.Log(true)'打开日志对话
     crt.Screen.Send "telnet" &" " & params(0) & chr(13) 
     crt.Screen.WaitForString "username:",3
     crt.Screen.Send "admin" & chr(13) 
     crt.Screen.WaitForString "password:",3
     crt.Screen.Send params(1) & vbcr
     crt.Screen.WaitForString "huawei#",3
     crt.Screen.Send "display cur"& chr(13)
     crt.Screen.WaitForString "#---- More ----    ",3
     crt.Screen.Send " "&" "&" "&"quit" & chr(13)
     crt.Screen.waitForString "huawei999>",10
     crt.Screen.waitForString"Press CTRL+K to abort",3
     crt.Screen.Send Chr(11)&Chr(27)& "[A" & Chr(8) & "3" &Chr(13)'发送 ctrl+k
     crt.session.Log(false)
     loop  
     'crt.Session.Disconnect    断开crt会话
End Sub