wugSpace: The WhatsUp Gold Community

Script Library

This is a public Media Gallery publicRSS

Active Monitor

Ping RTT Latency Active Monitor

Active Monitor posted Jan 11 by kevin hickey

844 Views

Name:

Ping RTT Latency Active Monitor

Description:

Ping Latency RTT monitor in which I have averaged all the RTT averages for a specified time period (last-n). Again you will probably want to increase the amount of packets WUP sends out for the Ping monitor. Sample date range can be easily changed by replacing the number in the SELECT DATEADD statement.

Language:

VB Script

Code:

'Sending log message to the WhatsUp Event Viewer
Context.LogMessage "Checking Address=" & Context.GetProperty("Address")

'Set the result code of the check (0=Success, 1=Error)
Context.SetResult 0, "No error"

'RTT Threshold Alarm Trigger
RTT_Threshold = 1000 'ms

ScriptStartTime=timer()

nDeviceID = Context.GetProperty("DeviceID")
context.LogMessage "DeviceID=" & nDeviceID

'Retrieve Database Instance
set objDatabase = Context.GetDB

'Verify Database Connectivity
if "" = objDatabase then
 Context.SetResult 1, "Problem connecting to database"
else
 context.logmessage "Connected to DB OK"

 'Get nPivotStatisticalMonitorTypeToDeviceID from DeviceID for enabled Ping monitor
 strGetStatisticalID = "SELECT nPivotStatisticalMonitorTypeToDeviceID FROM " & _
 " [WhatsUp].[dbo].[PivotStatisticalMonitorTypeToDevice]" &_
 " WHERE nDeviceID = " & nDeviceID & " AND nStatisticalMonitorTypeID " & _
 " = '3' AND bEnabled = 1"

 objGetStatisticalID = objDatabase.Execute(strGetStatisticalID)
 nStatisticalMonitorTypeToDeviceID = objGetStatisticalID("nPivotStatisticalMonitorTypeToDeviceID")
 context.logmessage "nPivotStatisticalMonitorTypeToDeviceID = " & nStatisticalMonitorTypeToDeviceID

 'Get sample range start date
 strStartDate = "SELECT DATEADD(hh, -3, dPollTime) AS 'StartDate' FROM " & _
 "[WhatsUp].[dbo].[StatisticalPing] WHERE nPivotStatisticalMonitorTypeToDeviceID =" & _
 nStatisticalMonitorTypeToDeviceID & " ORDER BY dPollTime DESC"

 objStartDate = objDatabase.Execute(strStartDate)
 dStartDate = objStartDate(0)
 context.logmessage "Start of sample date/time range:" & dStartDate 

  'Query to calculate average RTT within the date range specified above
 strAverageRTT_Time = "SELECT AVG(nRoundTripTime_Avg) AS 'AVG_RTT' FROM " & _
 " [WhatsUp].[dbo].[StatisticalPing] WHERE nPivotStatisticalMonitorTypeToDeviceID = " & _
  nStatisticalMonitorTypeToDeviceID & " AND dPollTime >= '" & dStartDate & "'" 
 
 objAverageRTT_Time = objDatabase.Execute (strAverageRTT_Time)
 nAvgRTT_TimeMS = objAverageRTT_Time (0)
 EndRTT_TimeMS = Round(nAvgRTT_TimeMS,2)
 context.logmessage "Average RTT in MS = " & EndRTT_TimeMS 
 
 'Sample date range validity check
 if datediff("h", tmpdPollTime, now()) < 3 then
  context.logmessage tmpdPollTime & "Sample range is LESS than 3 hours!"
  ScriptEndTime = timer()
  context.setresult 0,"The sample date range is not valid, Start Date/Time: " & dStartDate & ""
 Else
  context.logmessage tmpdPollTime & "Sample range is 3 hours"
  ScriptEndTime = timer()
  intScriptTimeTaken = int((ScriptEndTime - ScriptStartTime)*1000)

  If EndRTT_TimeMS < RTT_Threshold Then
   context.setresult 0, "Latency Return Trip Time = " & EndRTT_TimeMS & "ms (script took = " & intScriptTimeTaken & " ms)"
  Else
   context.setresult 1, "Latency Threshold RTT (" & RTT_Threshold & "ms) exceeded. Current RTT = " & _
   EndRTT_TimeMS & "ms" & " (script took = " & intScriptTimeTaken & " ms)"
  End If
 End If
End If

Disclaimer:

All scripts found on wugSpace are provided as-is with no warranty or guarantee. These scripts are not supported by Ipswitch Technical Support. If you have a problem with this script, please ask any questions in the comments.

Be the first to rate this
|
Sign in to rate this