cisco 设备巡检脚本,慎用。最好还是自己敲命令。 — CCIE那点事

cisco 设备巡检脚本,慎用。最好还是自己敲命令。

来源:本站原创 CISCO 超过876 views围观 0条评论

 

脚本还是不要用,因为没办法分段执行导致CPU过高,会让通迅出现问题。

#$language = "VBScript"
#$interface = "1.0"
‘XX巡检和log记录,包括GSR、7600、7500,每种类型设备生成两个文件
Sub main
crt.Screen.Synchronous = True
crt.Session.Log false
    Dim fso, f, str,path_command,logfile
    Const ForReading = 1
    Set fso = CreateObject("Scripting.FileSystemObject")
  d_date = right("00" & Month(Now()),2)&right("00" & Day(Now()),2)  
  Hours = right("00" & Hour(Time()),2)
  min = right("00" & Minute(Time()),2)
  Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists( d_date )) <> True Then
  Set f = fso.CreateFolder( d_date )
  CreateFolderDemo = f.Path
End If
If (fso.FolderExists( d_date & "\XX\")) <> True Then
  Set f = fso.CreateFolder( d_date & "\XX\")
  CreateFolderDemo = f.Path
End If
logpath = d_date & "\XX\"
logtime = Hours & min
    Set f = fso.OpenTextFile("XX巡检设备地址.txt", ForReading, 0)
    Do While f.AtEndOfStream <> True
     str = f.Readline
    If Trim(str)=";GSR" Then
      path_command = "巡检脚本\深圳GSR巡检命令.txt"
      logfile = "深圳GSR-"
    logfile =  logpath & logfile & logtime & ".log" ‘GSR巡检记录成一个文件
    crt.Session.LogFileName = logfile      
      crt.Session.Log True
    end if
    If Trim(str)=";SR" Then
       crt.Session.Log false
      logfile = "XXSR-"         
    logfile =  logpath & logfile & logtime & ".log" ‘GSR巡检记录成一个文件
    crt.Session.LogFileName = logfile      
       crt.Session.Log True
      path_command = "巡检脚本\深圳SR巡检命令.txt"
    end if
    If Trim(str)=";75设备" Then
       crt.Session.Log false
      logfile = "XX75-"         
    logfile =  logpath & logfile & logtime & ".log" ‘GSR巡检记录成一个文件
    crt.Session.LogFileName = logfile      
       crt.Session.Log True
      path_command = "巡检脚本\XX75巡检命令.txt"
    end if   
    If Trim(str)=";access 二层65设备" Then
       crt.Session.Log false
      logfile = "XX65二层-"      
    logfile =  logpath & logfile & logtime & ".log" ‘GSR巡检记录成一个文件
    crt.Session.LogFileName = logfile            
       crt.Session.Log True     
      path_command = "巡检脚本\65_二层巡检脚本.txt"
    end if
    If Trim(str)=";45" Then   
       crt.Session.Log false
      logfile = "XX45-"      
    logfile =  logpath & logfile & logtime & ".log" ‘GSR巡检记录成一个文件
    crt.Session.LogFileName = logfile            
       crt.Session.Log True        
      path_command = "巡检脚本\45巡检脚本.txt"
  end if
  if  IsNumeric(left(Trim(str),2)) then
       crt.Screen.Send "telnet " & Trim(Left(Str,15)) & chr(13)
       If crt.Screen.WaitForString("sername:",10) <> True Then
         crt.Screen.Send Chr(3)
         crt.Screen.WaitForString "$"
        Else
         crt.Screen.Send "12345" & chr(13)
         crt.Screen.WaitForString "assword:"
         crt.Screen.Send "12345" & chr(13)
         crt.Screen.WaitForString ">"
         Set file = fso.OpenTextFile(path_command, ForReading, 0)
          Do While file.AtEndOfStream <> True
           str = file.Readline
           crt.Screen.Send str & chr(13)         
           ‘if crt.Screen.Get (crt.Screen.CurrentRow,3,crt.Screen.CurrentRow,6) = "More" then
           ‘ crt.Screen.Send "      " & chr(13)
           ‘end if
           if crt.Screen.WaitForString (">",30) <> true then
            crt.Screen.Send Chr(3)
            crt.Screen.WaitForString "$"
             exit do
           else
            crt.Screen.Send chr(13)
            crt.Screen.WaitForString ">"
           end if
          Loop
         file.close()
        crt.Screen.Send "exit" & chr(13)
       End If
     End If
    crt.Screen.Send Chr(3)
    crt.Screen.WaitForString "$"
  Loop
crt.Session.Log false
f.close()
‘所有设备的log信息采集
   Set f = fso.OpenTextFile("xx巡检设备地址.txt", ForReading, 0)
    Do While f.AtEndOfStream <> True
     str = f.Readline
    If Trim(str)=";GSR" Then
      logfile = "XXGSR-loginfo-"
    logfile =  logpath & logfile & logtime & ".log" ‘GSR巡检记录成一个文件
    crt.Session.LogFileName = logfile      
      crt.Session.Log True
    end if
    If Trim(str)=";SR" Then
       crt.Session.Log false
      logfile = "XXSR-loginfo-"        
    logfile =  logpath & logfile & logtime & ".log" ‘GSR巡检记录成一个文件
    crt.Session.LogFileName = logfile      
       crt.Session.Log True   
    end if
    If Trim(str)=";75设备" Then
       crt.Session.Log false
      logfile = "XX75-loginfo-"         
    logfile =  logpath & logfile & logtime & ".log" ’75巡检记录成一个文件
    crt.Session.LogFileName = logfile      
       crt.Session.Log True
    end if     
    If Trim(str)=";access 二层65设备" Then
       crt.Session.Log false
      logfile = "XX65二层-loginfo-"      
    logfile =  logpath & logfile & logtime & ".log" ’65巡检记录成一个文件
    crt.Session.LogFileName = logfile            
       crt.Session.Log True     
    end if
    If Trim(str)=";45" Then   
       crt.Session.Log false
       logfile = "XX45-loginfo-"
    logfile =  logpath & logfile & logtime & ".log" ’45巡检记录成一个文件
    crt.Session.LogFileName = logfile            
       crt.Session.Log True        
  end if
  if  IsNumeric(left(Trim(str),2)) then
       crt.Screen.Send "telnet " & Trim(Left(Str,15)) & chr(13)
       If crt.Screen.WaitForString("sername:",10) <> True Then
         crt.Screen.Send Chr(3)
         crt.Screen.WaitForString "$"
        Else
         crt.Screen.Send "12345" & chr(13)
         crt.Screen.WaitForString "assword:"
         crt.Screen.Send "12345" & chr(13)
         crt.Screen.WaitForString ">"
         crt.Screen.Send "terminal length 0" & chr(13)
         crt.Screen.WaitForString ">"   
         crt.Screen.Send "show logging | include Aug" & chr(13)
         crt.Screen.WaitForString ">"
         crt.Screen.Send "show logg buffer -100" & chr(13)
         crt.Screen.WaitForString ">"
         crt.Screen.Send "exit" & chr(13)
       End If
     End If
    crt.Screen.Send Chr(3)
    crt.Screen.WaitForString "$"
  Loop
crt.Session.Log false
f.close()
crt.Screen.Synchronous = false
End Sub
==============================================================
xx巡检设备地址.txt
;GSR                                    以下为地址
1.1.1.1                                
;SR                                      以下为地址
2.2.2.2                               65-3
;75设备
3.3.3.3                              
4.4.4.4                  
;access 二层65设备
5.5.5.5                              65-1
===============================================================
XXGSR巡检命令.txt
terminal length 0
show version
show led
show red st
show red
show gsr
sh redun states
sh diag | in SLOT | crash
sh contr fia
sh contr err
sh contr pos
show proce me | in Free|Dead
show proce cpu | exclude 0.00
show context all
sh buff | in free | hits
sh int | in line | errors
show env
show power

文章出自:CCIE那点事 http://www.jdccie.com/ 版权所有。本站文章除注明出处外,皆为作者原创文章,可自由引用,但请注明来源。 禁止全文转载。
本文链接:http://www.jdccie.com/?p=1449转载请注明转自CCIE那点事
如果喜欢:点此订阅本站
上篇文章:
  • 相关文章
  • 为您推荐
  • 各种观点

暂时还木有人评论,坐等沙发!
发表评论

快捷键:Ctrl+Enter