zoukankan      html  css  js  c++  java
  • SecureCRT自动备份脚本-华为

    # $language = "VBScript"
    # $interface = "1.0"
    
    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:SWbackuplist2.txt",Forreading, False)        
         crt.Screen.Synchronous = True
         do while file1.AtEndOfStream <> True 
            '读取每一行
            line = file1.ReadLine   
            '分割IP,用户名,密码
            params = Split (line)
            crt.session.LogFileName = "D:SWbackuplog" & params(0) & ".txt"
            crt.session.Log(true)
            'telnet登录
            crt.Session.Connect "/TELNET " & params(0)
            
            '输入用户名
            crt.screen.WaitForString "Username:",1
            crt.screen.send params(1) & Chr(13)
            
            '输入密码
            crt.Screen.WaitForString "Password:"
            crt.Screen.Send params(2) & Chr(13)
            '进入特权模式(enable)
            crt.Screen.Send "system-view" & Chr(13)
            crt.Screen.waitForString "]"
            '执行dis cur命令
            crt.Screen.Send "dis cur" & Chr(13)
            crt.Screen.Send "                                           "
            crt.screen.send Chr(13)
            crt.Screen.waitForString "return" 
            crt.Screen.waitForString "]"
            crt.screen.send Chr(13)
            '执行dis ip int b命令 
            crt.Screen.Send "dis ip int b" & Chr(13)
            crt.Screen.Send "                        "
            crt.screen.send Chr(13)
            crt.Screen.waitForString "]" 
            '执行dis int b命令
            crt.Screen.Send "dis int b" & Chr(13)        
            crt.Screen.Send "                 "
            crt.screen.send Chr(13)
            crt.Screen.waitForString "]" 
            crt.screen.send Chr(13)
            '断开连接
            crt.Session.Disconnect  
        
            loop
            crt.Screen.Synchronous = False     
              
    End Sub
  • 相关阅读:
    SQL修改字段默认值、获取字段默认值
    关于sql server 代理(已禁用代理xp)解决办法
    JAVA 调用存储过程
    软件下载
    log4j 日志配置和jar包下载
    不同数据库间数据传输
    数据库操作——单用户模式,紧急模式下解决方法
    索引篇
    leetcode Reorder List
    leetcode word ladder
  • 原文地址:https://www.cnblogs.com/ping-y/p/5946657.html
Copyright © 2011-2022 走看看