wugSpace: The WhatsUp Gold Community

Script Library

This is a public Media Gallery public RSS

Active Monitor

Packet Loss Active Monitor

Active Monitor posted Jan 07 by kevin hickey

400 Views, 1 Comment

Name:

Packet Loss Active Monitor

Description:

This script is for monitoring packet loss but doing my own calculations for a specified (last - n) time period. You will probably need to increase the Ping Data Collection Iterations as 3 packets every 10 minutes (as default) will probably not give a very accurate look at the network.

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"

'Percent Loss that will cause down alarm
ThresholdPacketLoss=30


ScriptStartTime=timer()

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

' Get WhatsUp Database Instance
set objDatabase = Context.GetDB

' Verify Database Connectivity
If "" = objDatabase Then
  Context.SetResult 1, "Problem connecting to database"
Else
  context.logmessage "Database connectivity verified"

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

objStatisticalID = objDatabase.Execute(strStatisticalID)
nStatisticalMonitorTypeToDeviceID = objStatisticalID("nPivotStatisticalMonitorTypeToDeviceID")
context.logmessage "nPivotStatisticalMonitorTypeToDeviceID = " & nStatisticalMonitorTypeToDeviceID

 'Retrieve sample range start date, change (-3) to specify hours
 strStartDate = "SELECT DATEADD(hh, -3, dPollTime) AS 'StartDate' FROM " & _
 " [WhatsUp].[dbo].[StatisticalPingPacketLoss] 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 add packets sent and lost during sample date range
 strTotalPackets = "SELECT SUM(nPacketsSent) AS 'SUM_PacketsSent', SUM(nPacketsLost) AS 'SUM_PacketsLost' FROM " & _
 " [WhatsUp].[dbo].[StatisticalPingPacketLoss] WHERE nPivotStatisticalMonitorTypeToDeviceID = " & _
  nStatisticalMonitorTypeToDeviceID & " AND dPollTime >= '" & dStartDate & "'" 

 objTotalPacketsSet = objDatabase.Execute (strTotalPackets)
 nTotalPacketsSent = objTotalPacketsSet (0)
 nTotalPacketsLost = objTotalPacketsSet (1)
 context.logmessage "Total Packets Sent = " & nTotalPacketsSent 
 context.logmessage "Total Packets Lost = " & nTotalPacketsLost 


 'Packet Loss Calculation
 If nTotalPacketsLost = 0 Then
  PacketLoss = 0
 Else
  nPacketLossDecimal = nTotalPacketsLost / nTotalPacketsSent
  currPacketLoss = nPacketLossDecimal * 100
  PacketLoss = Round(currPacketLoss,2)
 End If

 'Sample range verification and threshold comparison
 If datediff("h", tmpdPollTime, now()) < 3 Then
  context.logmessage tmpdPollTime & "Sample range is < 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 PacketLoss < ThresholdPacketLoss Then
   context.setresult 0, "Packet Loss = " & PacketLoss & "% (script took = " & intScriptTimeTaken & " ms)"
  Else
   context.setresult 1, "Packet Loss Threshold (" & ThresholdPacketLoss & "%) exceeded. Current packet loss = " & _
   PacketLoss & "%" & " (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

Comments

posted Feb 25 by Sven Pägert
Hi Kevin,

I made a "Device Performance Monitor" ,pasted in your VB Script and activated it for one Cisco router.

Unfortunately I can't see any data in my "custom performance monitor", it says "there are Performance Monitor collection errors for the selected time period".

The error log shows this

Thu 02/25 11:00,Error,RDC Script (Packet Loss Active Monitor),Failed to parse the script. Error: Source:'Microsoft OLE DB Provider for ODBC Drivers'
Line:48 Char:1
Error:0 '[Microsoft][ODBC SQL Server Driver][SQL Server]The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.'
v
(null)

Any ideas ?

Thanks for your help.
Reply to this Comment
Attach File...
You may upload a file up to 20MB

Your file will be uploaded when you submit the form below
Cancel
- Be the first to rate this
  |
  Sign in to rate this