V8 All Active Alerts resource for Advanced alerts?

lucast

Does anyone know when or if an AllActiveAlerts resource will be released for V8 that supports advanced alerts. The current one only works for Basic alerts.

Thanks. I created a basic one however it only works for nodes at this point.

lucast

quote:Originally posted by lucast Does anyone know when or if an AllActiveAlerts resource will be released for V8 that supports advanced alerts. The current one only works for Basic alerts. Thanks. I created a basic one however it only works for nodes at this point.

for anyone who wants it, here is my 20 minute hack including my previous web sound addition.

<!-- Title=Advanced Triggered Alerts with Sound -->
<!-- Level=7 -->
<!--#include Virtual=/NetPerfMon/scripts/Resource.asp -->
<%
Title="Active Advanced Alerts"
HelpPage="AllAlerts"
SubTitle="All Triggered Advanced Alerts w/o Unmanaged"
SQL="SELECT * FROM CustomPollerAssignment INNER JOIN AlertStatus INNER JOIN AlertDefinitions ON AlertStatus.AlertDefID = AlertDefinitions.AlertDefID ON CustomPollerAssignment.CustomPollerAssignmentID = AlertStatus.ActiveObject INNER JOIN Nodes ON CustomPollerAssignment.NodeID = Nodes.NodeID INNER JOIN CustomPollerStatus ON CustomPollerAssignment.CustomPollerAssignmentID = CustomPollerStatus.CustomPollerAssignmentID Order By AlertDefinitions.AlertName, TriggerTimeStamp Desc"

DoResourceHeader
Set SQLResource = NetPerfMon.NewSQLResource
SQLResource.SQL=SQL
SQLResource.Execute

dim ParamString

Response.Write SQLResource.LastError
If Not SQLResource.EOF Then DoReport
%>

<% Sub DoReport %>



<table border="0" cellPadding="2" cellSpacing="0" width="100%">
<tr>
<td class="ReportHeader" width="20"> </td>
<td class="ReportHeader">TIME OF ALERT</td>
<td class="ReportHeader">DEVICE</td>
<td class="ReportHeader">MESSAGE</td>
<td class="ReportHeader">CURRENT</td>
</tr>
<% Dim COA
COA=0
Do While Not SQLResource.EOF %>


<% If Property <> SQLResource.GetProperty("AlertName") Then
Property = SQLResource.GetProperty("AlertName")
%>
<tr>
<td class="PropertyHeader" colspan="10" vAlign="center" width="100%"><font color="Blue"><%=SQLResource.GetProperty("AlertName")%></font> </td>
</tr>
<% End If %>
<tr>
<td class="Property"><img src="/NetPerfMon/images/Event-19.gif" border="0"></td>
<td class="Property" vAlign="center" width="80"><%=SQLResource.GetProperty("TriggerTimeStamp")%> </td>
<td class="Property" vAlign="center" nowrap>
<%
NetObject = SQLResource.GetProperty("ObjectType") & ":" & SQLResource.GetProperty("ActiveObject")
Select Case SQLResource.GetProperty("ObjectType")
Case "Node"
View="NodeDetails"
ParamString = SQLResource.GetProperty("NodeParamString")
Case "Interface"
View="InterfaceDetails"
ParamString = SQLResource.GetProperty("InterfaceParamString")
Case "Volume"
View="VolumeDetails"
ParamString = SQLResource.GetProperty("NodeParamString")
Case "Custom Node Poller"
View="VolumeDetails"
ParamString = SQLResource.GetProperty("NodeParamString")
Case "Custom Interface Poller"
View="VolumeDetails"
ParamString = SQLResource.GetProperty("NodeParamString")
End Select
%>
<a <%=ParamString%> href="thwack.solarwinds.com/.../View.asp 
</td>
<td class="Property" vAlign="center"><%=SQLResource.GetProperty("AlertMessage")%> </td>
<td class="Property" vAlign="center"><font color="red"><b><%=SQLResource.GetProperty("Status")%></b></font> </td>

</tr>
<%COA=DateDiff("n",SQLResource.GetProperty("TriggerTimeStamp"),Now)%>
<% If COA < 10 Then %>
<bgsound src="/netperfmon/sounds/alarm4.wav" loop="1">
<% End If %>
<% SQLResource.MoveNext
Loop
%>
</table>
<bgsound src="/netperfmon/sounds/ding.wav">
<% End Sub %>


<br>