Andy Gaskell (Customer) asked a question.

November 30, 2023 at 3:16 PM
Active Monitor for Disk Threshold using VBScript connecting to WUGDB

Hi all, we're trying to move from V16 to 2023, we've had an active monitor in place for years, configured as a vbscript connecting to the WUG database. Added it to 2023 and the monitor just shows "UP" no matter what the status of the device. We have disk threshold configured to 90% and have triggered this, but the Active Monitor remains UP. Notification profiles aren't hitting the spot. We use the Active monitor "DOWN" status to automatically trigger an email to our call logging system in a specific format stating the "disk" monitor is down. Wondering if anyone can help? Attached is the current Script. Thanks in advance.

  • 2 answers
  • 247 views

  • Mike Rockwell (Progress Software)

    I cleaned up the SQL query a bit, try this one.

    1. Option Explicit
    2. 'Create WhatsUp DB connection object
    3. Dim oDB : Set oDB = Context.GetDB
    4. 'Get the deviceID
    5. Dim nDeviceID : nDeviceID = Context.GetProperty("DeviceID")
    6. 'SQL Query
    7. Dim sSql : sSql = "select ACI.sDisplayName, ACI.sAspectValue, PAA.sAlertDescription, ACI.sAspectName, PAA.sAlertName, ACI.dAlertTime, ACI.nAlertCenterItemsID from AlertCenterItems ACI " &_
    8. "INNER Join ProActiveAlert PAA on PAA.nProActiveAlertID = ACI.nProActiveAlertID " &_
    9. "where (ACI.bActive = 1 and ACI.nDeviceID = " &nDeviceID & " and ACI.nProActiveAlertID = 44)"
    10. Dim sAspectValue, sAlertDescription, sAlertName, dAlertTime, sAspectName, sDisplayName, nAlertCenterItemsID, nPreviousAlertItems, nCurrentAlertCenterItemId
    11. Dim sMsg : sMsg = ""
    12. Dim bStatus : bStatus = 0
    14. 'Execute sql query
    15. Dim oRS: Set oRS = oDB.Execute(sSql)
    16. If Not oRS.EOF Then
    17. oRS.MoveFirst
    18. If Not oRS.EOF Then
    19. bStatus = 1 'Set status down if records are returned
    20. Do While Not oRS.EOF
    21. sDisplayName = oRS("sDisplayName")
    22. sAspectValue = oRS("sAspectValue")
    23. sAspectName = oRS("sAspectName")
    24. sAlertDescription = oRS("sAlertDescription")
    25. sAlertName = oRS("sAlertName")
    26. dAlertTime = oRS("dAlertTime")
    27. nCurrentAlertCenterItemId = oRS("nAlertCenterItemsID")
    28. nAlertCenterItemsID = nAlertCenterItemsID & "," & oRS("nAlertCenterItemsID")
    29. sMsg = sMsg & sAlertName & " " & sAspectName & " " & sAspectValue & vbCrLf
    30. oRS.MoveNext
    31. Loop
    32. End If
    33. End If
    35. 'Set the status
    36. If bStatus = 0 Then
    37. sMsg = "No alert center thresholds are tripped"
    38. Context.SetResult bStatus, sMsg
    39. Else
    40. Context.SetResult bStatus, sMsg
    41. End If

    Are you just wanting a monitor for disk utilization > 90%? You may want to look at using the API.

  • Andy Gaskell (Customer)

    Hi Mark, thank you so much for taking the time to clean up the SQL code, I've added it in and we're doing some testing now. It literally is just the disk active monitor for over 90% we need. It's saved us many times over the years we've had it. We haven't actually used the API up to now. Our call logging software is automatically logging a call from a specific email format when the device status has the active monitor "down" and it lists the Disk active monitor in the call contents. Will update after we've tested the new script! Thanks again!