巡检脚本.bat
#$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
=================================================================