Cirrus Report Formatting Problems

Question

Don't know how many of you have had the same problem - the config download summary report is all smashed together:
-------------------------------------------------
wpb-pbx-c831.gtlaw.com : downloaded Running config BOS-50.07--SWITCH : downloaded Running config NY-5300B : downloaded Running config NY-5300A : downloaded Running config CHI-50.03--SWITCH : downloaded Running config CHI-50.01--ROUTER : downloaded Running config CHI-50.04--SWITCH : downloaded Running config PHX-50.09--ROUTER : downloaded Running config Config for CHI-50.07--SWITCH has changed (Differs from Last Config) CHI-50.07--SWITCH : downloaded Running config 
-------------------------------------------------

I've written a little VBScript that will parse throught the config reports and will find the current days entries and output the info to an HTML file.  The report is then divided into three sections (FAILED, DIFFS, SUCCESS).  The report uses tables to allow quicker browsing of the data to see where you need to investigate further.

I added an option in the Cirrus download job to output the text to ta single text file.  It is easier to parse.  The script runs as a scheduled task about an hour after Cirrus does it's thing.  I now get a nice email summary to go along with the detailed change reports.

Let me know if you are interested.  I will send the source code.

andersond · Answer

Here is the code. '-------------------------------------------------------------------------------------------------------------- ' SOLAR WINDS REPORTING TOOL Dave Anderson 07-20-2006 '-------------------------------------------------------------------------------------------------------------- ' This tool opens the SolarWinds Cirrus Configuration Management report file and ' creates a nicely formatted email showing the device download status. ' ' The results are in a file called RESULTS.HTM ' This file can be copied to a server share on a webserver for public access. ' The report will be emailed using the website address as the body. ' ' ' VERSIONS: ' 01 = 07-20-2006 Original App ' - Basic app. Reads the SolarWinds report file. Outputs data to straight text file. ' ' 02 = 07-20-2006 Sectioned Report ' - Runs though the app two times. First time finds all failures and logs them to a table ' - Second time goes through and logs the success ' ' 03= 07-21-2006 Searching Date ' - Runs through the Cirrus report to locate only today's report information. ' - Runs through the app three times. First=Error connected to device, Second=Difference in Config, Third=Successes ' ' 04= 07-24-2006 Emailing Functions ' - Added code to copy the report to a network share. This location is a web server ' - Then create an email with the body of the email being the HTML file from the web server ' ' ' Remember to tweak the following variables for your own environment: ' Source Report File ' Web Server file locations ' Web Server Browsing Path ' Email Addresses and Email server to bounce the email '########################################################################################################### 'Pause at the begining. Allow time for user to exit script if they really don't want to run On Error Resume Next 'Put the number of seconds here...5 = 5 Second pause IntroPause "5" '########################################################################################################### 'Create General Objects used throughout script Set objShell = CreateObject("WScript.shell") Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Dim objMessage Set objMessage=CreateObject("CDO.Message") Dim objMessConfig Set objMessConfig=CreateObject("CDO.Configuration") Dim objFields Set objFields=objMessConfig.Fields 'Variables for the Text File Operations Const ForWriting = 2 Const forReading = 1 Const forAppending = 8 '########################################################################################################### ' MAIN SCRIPT '########################################################################################################### 'Create the DataFile to Log the Results Dim strResultsFile, objResultsFile strResultsFile = "Results.htm" Set objResultsFile = objFSO.OpenTextFile (strResultsFile, ForWriting, True) 'Create the HTML header info in the results file. ResultsFileHeader objResultsFile 'create a variable to hold the contents of one line of the input file Dim strInputFileLine 'Create variable for the two types of reports: SUCCESS and FAILURE Dim strStatusType strStatusType = "EMPTY" 'proper values are FAILURE or SUCCESS or DIFFERENCE 'Create variable to represent todays date. This is the same date format you are looking for in the Cirrus report Dim strTodaysDate strTodaysDate = (Month(Now()) & "/" & Day(Now()) & "/" & Year(Now())) 'Create variable to point at the source (input) file Dim strSourceFile strSourceFile = "Job-560296.Log" Dim objSourceFile '---------------------------------------------------------------------------------------------------------------------------------------------------- ' LOOKING FOR FAILURES IN CONFIG REPORT '---------------------------------------------------------------------------------------------------------------------------------------------------- 'OpenDataFile to Read Servernames 'Opening the source file from begining Set objSourceFile = objFSO.OpenTextFile (strSourceFile, ForReading, True) Dim strFoundToday 'variable used to identify when todays results are located strFoundToday = "FALSE" 'proper values are FALSE or TRUE 'Open the Cirrus Text File and read line by line the report results looking for FAILURES 'Create the HTML table in the results file FAILURES strStatusType = "FAILURE" CreateTableHTML objResultsFile, strStatusType wscript.echo "Checking for FAILURES" Dim x1, intMaxLoop 'used to prevent ininite looping x1 = 1 intMaxLoop = 200000 While Not ((objSourceFile.AtEndOfStream) or (x1 > intMaxLoop)) 'exit the loop if it runs too many times strInputFileLine = trim(objSourceFile.ReadLine) 'Check for today's date. If the line contains the date, the value = 1. Then start parsing the If (InStr(LCase(strInputFileLine), LCase(strTodaysDate)) > 0) Then wscript.echo "line no: " & x1 wscript.echo "strInputFileLine: " & strInputFileLIne strFoundToday = "TRUE" End If 'wscript.echo "Loop # " & x1 & " strFoundToday: " & strFoundToday If (strFoundToday = "TRUE") Then AnalyzeData strInputFileLine, objResultsFile, strStatusType End If x1 = (x1+1) 'increment counter to make sure you are not stuck in a never ending loop Wend 'Finish HTML table that has the results data inside CloseTableHTML objResultsFile 'Close Source File because we already looped through it objSourceFile.Close '---------------------------------------------------------------------------------------------------------------------------------------------------- ' LOOKING FOR DIFFERENCES IN CONFIG REPORT '---------------------------------------------------------------------------------------------------------------------------------------------------- 'OpenDataFile to Read Servernames 'Opening the source file from begining (again) Set objSourceFile = objFSO.OpenTextFile (strSourceFile, ForReading, True) strFoundToday = "FALSE" 'proper values are FALSE or TRUE 'Open the Cirrus Text File and read line by line the report results looking for FAILURES 'Create the HTML table in the results file FAILURES strStatusType = "DIFFERENCE" CreateTableHTML objResultsFile, strStatusType wscript.echo "Checking for DIFFERENCES" x1 = 1 intMaxLoop = 200000 While Not ((objSourceFile.AtEndOfStream) or (x1 > intMaxLoop)) 'exit the loop if it runs too many times strInputFileLine = trim(objSourceFile.ReadLine) 'Check for today's date. If the line contains the date, the value = 1. Then start parsing the If (InStr(LCase(strInputFileLine), LCase(strTodaysDate)) > 0) Then wscript.echo "line no: " & x1 wscript.echo "strInputFileLine: " & strInputFileLIne strFoundToday = "TRUE" End If 'wscript.echo "Loop # " & x1 & " strFoundToday: " & strFoundToday If (strFoundToday = "TRUE") Then AnalyzeData strInputFileLine, objResultsFile, strStatusType End If x1 = (x1+1) 'increment counter to make sure you are not stuck in a never ending loop Wend 'Finish HTML table that has the results data inside CloseTableHTML objResultsFile 'Close Source File because we already looped through it objSourceFile.Close '---------------------------------------------------------------------------------------------------------------------------------------------------- ' LOOKING FOR SUCCESSES IN CONFIG REPORT '---------------------------------------------------------------------------------------------------------------------------------------------------- 'OpenDataFile to Read Servernames 'Opening the source file from begining (again) Set objSourceFile = objFSO.OpenTextFile (strSourceFile, ForReading, True) strFoundToday = "FALSE" 'proper values are FALSE or TRUE 'Open the Cirrus Text File and read line by line the report results looking for FAILURES 'Create the HTML table in the results file FAILURES strStatusType = "SUCCESS" CreateTableHTML objResultsFile, strStatusType wscript.echo "Checking for SUCCESSES" x1 = 1 intMaxLoop = 200000 While Not ((objSourceFile.AtEndOfStream) or (x1 > intMaxLoop)) 'exit the loop if it runs too many times strInputFileLine = trim(objSourceFile.ReadLine) 'Check for today's date. If the line contains the date, the value = 1. Then start parsing the If (InStr(LCase(strInputFileLine), LCase(strTodaysDate)) > 0) Then wscript.echo "line no: " & x1 wscript.echo "strInputFileLine: " & strInputFileLIne strFoundToday = "TRUE" End If 'wscript.echo "Loop # " & x1 & " strFoundToday: " & strFoundToday If (strFoundToday = "TRUE") Then AnalyzeData strInputFileLine, objResultsFile, strStatusType End If x1 = (x1+1) 'increment counter to make sure you are not stuck in a never ending loop Wend 'Finish HTML table that has the results data inside CloseTableHTML objResultsFile 'Close Source File because we already looped through it objSourceFile.Close '---------------------------------------------------------------------------------------------------------------------------------------------------- 'Finish HTML Formatting on bottom of the page ResultsFileFooter objResultsFile, intErrorCount '---------------------------------------------------------------------------------------------------------------------------------------------------- 'Copy the Results File to the WebServer 'To browse the page use the following link: www.webserver.com/.../cirrusreport.htm Dim objFile, strDest wscript.echo "Copying results to the Web Server" strDest="\web-server\SolarWinds\CirrusReport.htm" Set objFile=objFSO.GetFile(strResultsFile) objFile.Copy(strDest) '---------------------------------------------------------------------------------------------------------------------------------------------------- 'Email Results of Scan 'MailResults wscript.echo "[EMAIL SECTION]" 'Location of Results File to be included with the email 'strFileName = "c:\bin\drivespace\Results.htm" 'Set the basic Message Properties With objMessage .Subject = "SolarWinds Configuration Report" .From = """SolarWinds Reporting"" " .To = "" .CreateMHTMLBody "">www.atlantis.com/.../cirrusreport.htm" .AddAttachement objResultsFile .AddAttachement objErrorFile .Configuration.Fields.Item ("">schemas.microsoft.com/.../sendusing") = 2 .Configuration.Fields.Item ("">schemas.microsoft.com/.../smtpserver") = "mail.atlantis.com" .Configuration.Fields.Item ("">schemas.microsoft.com/.../smtpserverport") = 25 .Configuration.Fields.Update End With objMessage.Send If err.number <> 0 Then Wscript.Echo "Error sending the email" wscript.echo "Err#: " & Err.Number & vbTab & Err.Description End If '---------------------------------------------------------------------------------------------------------------------------------------------------- 'Close DataFile objResultsFile.Close objErrorFile.Close 'Release Object Variables objShell = "" objFSO = "" objMessage = "" objMessConfig = "" objFields = "" '########################################################################################################### ' END MAIN '########################################################################################################### '########################################################################################################### Sub IdentifyDeviceName(strInputFileLine, objResultsFile) 'The first section of each line of text is the sytem name followed by a colon 'This sub identifies the system name from the entire line of text 'You must drop the colon from the name so subtract one intFirstColonPosition = ((InStr(LCase(strInputFileLine), LCase(":"))) - 1) wscript.echo infFirstColonPosition strDeviceName = Trim(Mid(strInputFileLine, 1, intFirstColonPosition)) wscript.echo "DEVICE NAME: " & strDeviceName End Sub '########################################################################################################### Sub AnalyzeData(strInputFileLine, objResultsFile, strStatusType) ' This sub will check the text from the text file to see if the line is reporting a succesfull download or failure download Dim strRType strRType = "EMPTY" If strStatusType = "FAILURE" then 'First section of IF/THEN is looking for FAILURES 'Checking the string for FAILURES, if found log them otherwise it assumes success and skips the entry If (InStr(LCase(strInputFileLine), LCase("error:")) > 0) Then wscript.echo "ERROR: " & strInputFileLine 'The first section of each line of text is the sytem name followed by a colon 'This section identifies the system name from the entire line of text 'You must drop the colon from the name so subtract one intFirstColonPosition = (InStr(LCase(strInputFileLine), LCase(":"))) intStringLength = Len(strInputFileLine) wscript.echo infFirstColonPosition strDeviceName = Trim(Mid(strInputFileLine, 1, (intFirstColonPosition-1))) wscript.echo "DEVICE NAME: " & strDeviceName 'Now you can drop the first portion of the string as it is the device name which was found above. 'This section drops the begining of the text up to the first semicolon. wscript.echo Right(strInputFileLIne, (intstringLength - intFirstColonPosition)) strConnectionInfo = Right(strInputFileLIne, (intstringLength - intFirstColonPosition)) strRType = "FAIL" WriteResultsData strConnectionInfo, objResultsFile, strRType, strDeviceName End If End If wscript.echo "strStatusType: " & strStatusType If strStatusType = "DIFFERENCE" then 'second section of IF/THEN is looking for DIFFERENCES 'Checking the string for SUCCESS, if found log them otherwise it assumes failure and skips the entry If (InStr(LCase(strInputFileLine), LCase("differs from last")) > 0) Then 'wscript.echo "Success: " & strInputFileLine 'The first section of each line of text is the sytem name followed by a colon 'This section identifies the system name from the entire line of text 'You must drop the colon from the name so subtract one wscript.echo "DIFF FOUND!!!!!!!!!!" wscript.echo strInputFileLine intFirstColonPosition = (InStr(LCase(strInputFileLine), "has changed")) intStringLength = Len(strInputFileLine) wscript.echo intFirstColonPosition strDeviceName = Trim(Mid(strInputFileLine, 11, (intFirstColonPosition-12))) wscript.echo "DEVICE NAME: " & strDeviceName 'Now you can drop the first portion of the string as it is the device name which was found above. 'This section drops the begining of the text up to the first semicolon. wscript.echo Right(strInputFileLIne, ((intstringLength - intFirstColonPosition)+1)) strConnectionInfo = Right(strInputFileLIne, ((intstringLength - intFirstColonPosition)+1)) strRType = "DIFF" WriteResultsData strConnectionInfo, objResultsFile, strRType, strDeviceName End If End If If strStatusType = "SUCCESS" then 'thrid section of IF/THEN is looking for SUCCESS 'Checking the string for SUCCESS, if found log them otherwise it assumes failure and skips the entry If (InStr(LCase(strInputFileLine), LCase("downloaded running config")) > 0) Then 'wscript.echo "Success: " & strInputFileLine 'The first section of each line of text is the sytem name followed by a colon 'This section identifies the system name from the entire line of text 'You must drop the colon from the name so subtract one intFirstColonPosition = (InStr(LCase(strInputFileLine), LCase(":"))) intStringLength = Len(strInputFileLine) wscript.echo intFirstColonPosition strDeviceName = Trim(Mid(strInputFileLine, 1, (intFirstColonPosition-1))) wscript.echo "DEVICE NAME: " & strDeviceName 'Now you can drop the first portion of the string as it is the device name which was found above. 'This section drops the begining of the text up to the first semicolon. wscript.echo Right(strInputFileLIne, (intstringLength - intFirstColonPosition)) strConnectionInfo = Right(strInputFileLIne, (intstringLength - intFirstColonPosition)) strRType = "SUCCESS" WriteResultsData strConnectionInfo, objResultsFile, strRType, strDeviceName End If End If End Sub '########################################################################################################### Sub WriteResultsData(strConnectionInfo, objResultsFile, strRType, strDeviceName) ' This sub writes data into an HTML table for each device. If the device was a failure, then it writes the data into table ' field with yellow background. if (strRType = "SUCCESS") then objResultsFile.WriteLine "" objResultsFile.WriteLine "" & UCase(strDeviceName) & "" objResultsFile.WriteLine "" & strConnectionInfo & "" objResultsFile.WriteLine "" end if if (strRType = "FAIL") then objResultsFile.WriteLine "" objResultsFile.WriteLine "" & UCase(strDeviceName) & "" If (Instr(LCase(strConnectionInfo), "bad password") > 0) Then objResultsFile.WriteLine "" & strConnectionInfo & "" Else objResultsFile.WriteLine "" & strConnectionInfo & "" End If objResultsFile.WriteLine "" objResultsFile.WriteLine "" end if if (strRType = "DIFF") then objResultsFile.WriteLine "" objResultsFile.WriteLine "" & UCase(strDeviceName) & "" objResultsFile.WriteLine "" & strConnectionInfo & "" objResultsFile.WriteLine "" objResultsFile.WriteLine "" end if End Sub '########################################################################################################### Sub ResultsFileHeader(objResultsFile) 'Add formatting to HTML Results file objResultsFile.WriteLine "" objResultsFile.WriteLine "" objResultsFile.WriteLine "

" objResultsFile.WriteLine "" objResultsFile.WriteLine "ATLANTIS OUTPOST CORP.
" objResultsFile.WriteLine "CIRRUS DEVICE CONFIG MGMT REPORT
" objResultsFile.WriteLine "" objResultsFile.WriteLine "" objResultsFile.WriteLine Month(Now()) & "-" & Day(Now()) & "-" & Year(Now()) & "
" objResultsFile.WriteLine Time() & "
" objResultsFile.WriteLIne "running from server: SOLARWINDS SERVER" objResultsFile.WriteLIne "" objResultsFile.WriteLine "

" End Sub Sub ResultsFileFooter(objResultsFile, intErrorCount) 'Finish HTML Formatting on bottom of the page objResultsFile.WriteLine "

" objResultsFile.WriteLine "" objResultsFile.WriteLine "" End Sub '########################################################################################################### Sub CreateTableHTML(objResultsFile, strStatusType) objResultsFile.WriteLine "
" objResultsFile.WriteLine "" objResultsFile.WriteLine "" objResultsFile.WriteLine "" End Sub Sub CloseTableHTML(objResultsFile) objResultsFile.WriteLine "

" objResultsFile.WriteLine "" & strStatusType & "" objResultsFile.WriteLine "

" objResultsFile.WriteLine "" objResultsFile.WriteLine "
" End Sub '########################################################################################################### Sub IntroPause(intWaitTimeSec) wscript.echo "SOLARWINDS CIRRUS REPORTING SCRIPT" wscript.echo "This script will query the Cirrus report and output the data in a nicer format." wscript.echo "" wscript.echo "Pausing for "& intWaitTimeSec & " seconds. CTRL+C If you Do Not wish To run now." wscript.sleep((intWaitTimeSec*1000)) wscript.echo "" wscript.echo "" End Sub '###########################################################################################################

jonchill · Answer

I had the exact same problem and talked to Solarwinds support and asked if you could format the log outputs like the reports that are e-mailed out but unfortunately the reply was no but I'm sure if enough people e-mail support with this request they will hopefully look at tidying it up and actually making it readable.

Would it be possible in the mean time to post the VBscript you've created?

Thanks

Jon

IT Infrastructure Manager
Pilgrim Hospital
UK

ceclark · Answer

Very nice, how about posting it!