Community
- Command Central
- MVP Program
- Monthly Mission
- Blogs
- Groups
- Events
- Media Vault
Products
- Observability
- Network Management
- Application Management
- IT Security
- IT Service Management
- System Management
- Database Management
Content Exchange
- SolarWinds Platform
- Server & Application Monitor
- Database Performance Analyzer
- Server Configuration Monitor
- Network Performance Monitor
- Network Configuration Manager
- SQL Sentry
- Web Help Desk
Free Tools & Trials
Store

Search Interfaces

I just felt inspired today, so here are the toys needed to search on interfaces. Hopefully, the guys at SW can throw this into the next incremental release.

Put the following in as c:\inetpub\SolarWinds\NetPerfMon\Resources\9-1-Miscellaneous\98-SearchInterfaces.Resource

// Start




<%
Title="Search for Interfaces"
HelpPage="SearchInterfaces"

Dim Field
Dim AnyInterface

DoResourceHeader

Set AnyInterface = NetPerfMon.GetNetObject(NetPerfMon.GetRandomNetObject("I"))
%>

<table width="100%" border="0" cellpadding="5" cellspacing="0">
<form name="Search" action="/NetPerfMon/Resources/SearchInterfaces.Action.asp" method="POST" target="_blank">
<tr class="ViewHeader">
<td width="40">
Find<br>
<input type="text" name="SearchStr">
</td>
<td width="60">
Search by <br>
<select name="Field" align=left>
<option value="InterfaceName">Interface Name</option>
<option value="InterfaceAlias" selected>Interface Description</option>
<%
If Not AnyNode Is Nothing Then
For Each Field in AnyInterface.UserFields
Response.Write "<option value='" & Field.Name & "'>" & Field.Name & "</option>"
Next
End If
%>
</select>
</td>
<td width="16" valign="middle">
<br>
<input type="image" name="Submit" src="/NetPerfMon/images/SmallButton.Search.gif">
</td>
<td width="50%"></td>
</tr>
<tr class="ViewHeader">
<td colspan=4 height=15>Examples: Cisco*, 10.15.*.*, W?ndows, Server-*, *.SolarWinds.Net </td>
</tr>
</form>
</table>
<br>
// Stop

Next, put the following in as c:\Inetpub\SolarWinds\NetPerfMon\Resources\SearchInterfaces.Action.asp

// Start


<%

SelectWeb "NetPerfMon"
VerifyLogin "USER"

Dim SQLResource
Dim SQLResource2
Dim SearchStr
Dim Count
Dim InterfaceID
Dim NodeID
Dim Field

Field = Request("Field")
SearchStr = Request("SearchStr")

Count = 0

DoStyleSheets
%>

<table width="100%" border="0" cellpadding="8" cellspacing="0">
<tr class="ViewHeader">
<td height="35" align="left" nowrap>
<b>Interface Search Results for </b><i><%=SearchStr%></i><b> within </b><i><%=Field%></i>
</tr>
</table>

<%
SearchStr = Replace(Replace(SearchStr, "*", "%"), "?", "_")

Set SQLResource = NetPerfMon.NewSQLResource
SQLResource.SQL="Select * From Interfaces Where " & Field & " Like '" & SearchStr & "' Order by InterfaceAlias"
SQLResource.Execute

If SQLResource.EOF then
Response.write "<br><font color=red size=2>No Interfaces where found with ""<b>" & SearchStr & "</b>"" in the <b>" & Field & "</b> Property.<br></font>"
Response.Write "<br><br><font size=2>Try using wildcards in your search.<br>For Example :<br><br>"
Response.Write " Cisco*<br> 10.15.*.*<br> W?ndows<br> Server-*<br> *.SolarWinds.Net </font>"
End If
%>

<table border="0" cellPadding="2" cellSpacing="0" width="100%">
<tr>
<td class="Property" colspan=2><b>Status/Type</b></td>
<td class="Property" colspan=2><b>Parent Node & Interface</b></td>
<td width=20 nowrap> </td>
<td class="Property"><b>Interface Description</b></td>
<% If Field <> "InterfaceAlias" Then %>
<td class="Property"><b><% Field %></b></td>
<% End If %>
<td class="Property" width="100%"> </td>
</tr>
<% Do While Not SQLResource.EOF %>
<tr>
<% InterfaceID = SQLResource.GetProperty("InterfaceID") %>
<% NodeID = SQLResource.GetProperty("NodeID") %>

<td class="Property" vAlign="center" width="20"><%=SQLResource.GetProperty("StatusLed as SmallStatusLED")%></td>
<td class="Property" vAlign="center" width="20"><%=SQLResource.GetProperty("InterfaceIcon")%></td>
<td class="Property" nowrap>

<% Set SQLResource2 = NetPerfMon.NewSQLResource
SQLResource2.SQL = "Select * From Nodes where NodeID like '" & NodeID & "'"
SQLResource2.Execute

If SQLResource2.EOF then
Response.write NodeID
else %>
<a href="thwack.solarwinds.com/.../View.asp
<%
End If
%>

<td class="Property" nowrap><a href="thwack.solarwinds.com/.../View.asp </td>
<td></td>
<td class="Property" nowrap><a href="thwack.solarwinds.com/.../View.asp </td>
<% If Field <> "InterfaceAlias" Then %>
<td class="Property" nowrap><a href="thwack.solarwinds.com/.../View.asp </td>
<% End If %>
<td class="Property" width="100%"> </td>
</tr>

<%
SQLResource.MoveNext
Count = Count + 1
Loop
%>
</table>
<br>
<% if Count = 1 then
Response.Redirect "/NetPerfMon/View.asp?View=InterfaceDetails&NetObject=I:" &InterfaceID
End if
%>
// Stop

Add resource to views as required...and enjoy!

// Ian Underwood - Service Management
// Level 3 Communications

Find more posts tagged with

Accepted answers

All comments

Network_Guru

Nice work Ian!

-=Cheers=-
NG

FormerMember

Absolutely! Nice work Ian! I've been waiting patiently and hoping this capability would come one day. I've wanted to search (list) all my ATM interfaces in one view.

One question though...the Interface Name is displayed in 2 places; Once under "Parent Node & Interface" and again trailing the Interface Description (without a column heading). Was this intentional?

Again, very nice job and thanks for taking the time to do this!

Ron

iunderwo

The double-listing of the interface name was accidental. Oops.

I didn't take that field into account when I wrote the script, mostly since the searches I do are usually done within interface descriptions.

I also added a SortBy function which allows an arbitrary sort order to be applied to the interface search as well. There are a couple other cleanups too. I can go over it a little more deeply and post the latest-and-greatest if people are interested.

// Ian Underwood - Service Management
// Level 3 Communications

iunderwo

Here are the things I've got in the newest script:

* Selectable search criteria (Name / Description / Custom Properties)
* Variety of selectable sort orders (Parent Node ID / All Searchables)
* Selectable informational fields:
Interface Icon
Interface Speed
Interface Utilization %

Bug fixes:
* Duplicate display of Interface Name when searching on Interface Name is fixed.

Before I post the newest, any feedback / suggestions / wishlist is welcome.

// Ian Underwood - Service Management
// Level 3 Communications

saranghe

hey ian,

simply fantastic!

can we have your modified latest-and-greatest script (with sort function?)

1 request:

=> can you give it an option so that by default the search starts with * and ends with *?

e.g. instead of keying in

*solarwinds*

we just need to key in

solarwinds

I need to this this most of the time for searching interface descriptions ...

tq!

FormerMember

I'm interested in the latest and greatest. If you like, you can email to me at rgward@mdot.state.md.us

Thanks,
Ron

iunderwo

Okay crew, here is the latest and greatest code!

Summary of changes and stuff:

The full-wildcard search facility that was requested has been added. Note, that this is selectable and is checked by default (you can change this if you want by modifying the form). This function removes all asterisks from the search field and then adds them at the start and end of the search criteria.

The SW search button has been replaced with a default form button along with a reset button.

Additional information can be selected as requested in a couple rows of checkboxes at the bottom of the form. This looks cleaner in most cases.

Interfaces can now be sorted by their status.

The SW search actions now report in a standard web page manner, using the Solarwinds headers and footers.

Put the following in as c:\inetpub\SolarWinds\NetPerfMon\Resources\9-1-Miscellaneous\98-SearchInterfaces.Resource
//Start




<%
Title="Search for Interfaces"
HelpPage="SearchInterfaces"

Dim Field
Dim AnyInterface

DoResourceHeader

Set AnyInterface = NetPerfMon.GetNetObject(NetPerfMon.GetRandomNetObject("I"))
%>

<table width="100%" border="0" cellpadding="5" cellspacing="0">
<form name="Search" action="/NetPerfMon/Resources/SearchInterfaces.Action.asp" method="POST" target="_blank">
<tr class="ViewHeader">
<td width="120" valign=top>
Find<br>
<input type="text" name="IFSearchStr"><br>
<input type="checkbox" name="WC" value="true" checked>Full Wildcard<br>
<input type="submit" value="Search"> <input type="reset">
</td>
<td width="60">
Search by <br>
<select name="Field" align=left>
<option value="InterfaceName">Interface Name</option>
<option value="InterfaceAlias" selected>Interface Description</option>
<%
If Not AnyNode Is Nothing Then
For Each Field in AnyInterface.UserFields
Response.Write "<option value='" & Field.Name & "'>" & Field.Name & "</option>"
Next
End If
%>
</select>
<br>
Sort Order <br>
<select name="Order">
<option value="NodeID">Parent Node ID</option>
<option value="InterfaceName">Interface Name</option>
<option value="Status">Interface Status</option>
<option value="InterfaceAlias" selected>Interface Description</option>
<%
If Not AnyNode Is Nothing Then
For Each Field in AnyInterface.UserFields
Response.Write "<option value='" & Field.Name & "'>" & Field.Name & "</option>"
Next
End If
%>

</select>
<td width="50%"></td>
</tr>
<tr class="ViewHeader" colspan=3><td colspan=3><b>Display Additional Fields</b></td></tr>
<tr class="ViewHeader" valign=top>
<td><input type="checkbox" name="IFInfo" Value="Icon">Interface Icon<br>
<input type="checkbox" name="IFInfo" Value="Speed">Interface Speed</td>
<td><input type="checkbox" name="IFInfo" Value="Util">Interface Utilization</td>
<td width="50%"></td>
</tr>
</form>
</table>
<br>
//End

Next, put the following in as c:\Inetpub\SolarWinds\NetPerfMon\Resources\SearchInterfaces.Action.asp
//Start


<%
SelectWeb "NetPerfMon"
VerifyLogin "USER"

Dim SQLResource
Dim SQLResource2
Dim SearchStr
Dim Order
Dim WC
Dim Count
Dim InterfaceID
Dim NodeID
Dim Field

Dim IFInfo
Dim member
Dim DoIcon
Dim DoSpeed
Dim DoUtil

Field = Request("Field")
SearchStr = Request("IFSearchStr")
Order = Request("Order")
WC = Request("WC")

IFInfo = Request("IFInfo")
IFInfo = Split(IFInfo,",")

Count = 0

DoHeader
DoStyleSheets
%>

<%
If trim(WC) = "true" then
SearchStr = Replace(SearchStr, "*","")
SearchStr = ("*"+SearchStr+"*")
End If
%>

<table width="100%" border="0" cellpadding="8" cellspacing="0">
<tr class="ViewHeader">
<td height="35" align="left" nowrap>
<b>Interface Search Results for </b><i><%=SearchStr%></i><b> within </b><i><%=Field%></i><b> ordered by </b><i><%=Order%>
</tr>
</table>

<%
For Each member in IFInfo
If Trim(member) = "Icon" Then DoIcon = "true" End If
If Trim(member) = "Speed" Then DoSpeed = "true" End If
If Trim(member) = "Util" Then DoUtil = "true" End If
Next

SearchStr = Replace(Replace(SearchStr, "*", "%"), "?", "_")

Set SQLResource = NetPerfMon.NewSQLResource
SQLResource.SQL="Select * From Interfaces Where " & Field & " Like '" & SearchStr & "' Order by " & Order & ""
SQLResource.Execute

If SQLResource.EOF then
Response.write "<br><font color=red size=2>No Interfaces where found with ""<b>" & SearchStr & "</b>"" in the <b>" & Field & "</b> Property.<br></font>"
Response.Write "<br><br><font size=2>Try using wildcards in your search.<br>For Example :<br><br>"
Response.Write " Cisco*<br> 10.15.*.*<br> W?ndows<br> Server-*<br> *.SolarWinds.Net </font>"
Else %>

<table border="0" cellPadding="2" cellSpacing="0" width="100%">
<tr>
<td class="Property"><b>Status</b></td>
<% IF DoIcon = "true" Then %> <td class="Property"><b>Type</b></td> <% End If %>
<td class="Property"><b>Parent Node</b></td>
<td class="Property"><b>Interface</b></td>
<% If Dospeed = "true" or DoUtil = "true" Then %>
<td width=10 nowrap> </td>
<% End If %>
<% If DoSpeed = "true" Then %> <td class="Property"><b>Speed</b></td> <% End If %>
<% If DoUtil = "true" Then %>
<td class="Property" nowrap><b>In %</b></td>
<td class="Property" nowrap><b>Out %</b></td>
<% End If %>
<td width=10 nowrap> </td>
<td class="Property"><b>Interface Description</b></td>

<% If Field <> "InterfaceAlias" AND Field <> "InterfaceName" Then %>
<td class="Property"><b><%=Field %></b></td>
<% End If %>

<td class="Property" width="100%"> </td>
</tr>

<% End IF %>

<% Do While Not SQLResource.EOF %>
<tr>
<% InterfaceID = SQLResource.GetProperty("InterfaceID") %>
<% NodeID = SQLResource.GetProperty("NodeID") %>

<td class="Property" vAlign="center" width="20"><%=SQLResource.GetProperty("StatusLed as SmallStatusLED")%></td>
<% If DoIcon = "true" Then %>
<td class="Property" vAlign="center" width="20"><%=SQLResource.GetProperty("InterfaceIcon")%></td>
<% End If %>
<td class="Property" nowrap>

<% Set SQLResource2 = NetPerfMon.NewSQLResource
SQLResource2.SQL = "Select * From Nodes where NodeID like '" & NodeID & "'"
SQLResource2.Execute

If SQLResource2.EOF then
Response.write NodeID
else %>
<a href="thwack.solarwinds.com/.../View.asp
<%
End If
%>

<td class="Property" nowrap><a href="thwack.solarwinds.com/.../View.asp </td>

<% If Dospeed = "true" or DoUtil = "true" Then %>
<td width=10 nowrap> </td>
<% End If %>

<% If DoSpeed = "true" Then %>
<td class="Property" nowrap><%= SQLResource.GetProperty("InBandwidth")%></td>
<% End If %>
<% If DoUtil = "true" Then %>
<td class="Property" nowrap><%= SQLResource.GetProperty("InPercentUtil")%></td>
<td class="Property" nowrap><%= SQLResource.GetProperty("OutPercentUtil")%></td>
<% End If %>
<td></td>
<td class="Property" nowrap><a href="thwack.solarwinds.com/.../View.asp </td>
<% If Field <> "InterfaceAlias" AND Field <> "InterfaceName" Then %>
<td class="Property" nowrap><a href="thwack.solarwinds.com/.../View.asp </td>
<% End If %>
<td class="Property" width="100%"> </td>
</tr>

<%
SQLResource.MoveNext
Count = Count + 1
Loop
%>
</table>
<br>
<% DoFooter %>
<% if Count = 1 then
Response.Redirect "/NetPerfMon/View.asp?View=InterfaceDetails&NetObject=I:" &InterfaceID
End if
%>
//End

// Ian Underwood - Service Management
// Level 3 Communications

saranghe

simply the best!

tq so much for incorporating my request ...

cshiver

Ian,

Thanks for posting this script, but I'm getting the following message when I add the resource to a page:

##############################################################
Active Server Pages error 'ASP 0141'

Page Command Repeated

/NetPerfMon/scripts/NetPerfMon.asp, line 1

The @ command can only be used once within the Active Server Page.
##############################################################

Running 7.2.55. Any ideas?

Thanks again...
Chris

iunderwo

I'd remove line 1, and see what happens.

I'm running 7.2.44, on my web engine, and 7.2.65 on my main poller and both work fine.

You did exclude the //start and //end statements in my post, right?

// Ian Underwood - Service Management
// Level 3 Communications

cshiver

Hmmm...that killed the whole site (backup up before editing of course).

Maybe its something with my particular version or setup. I'll give it another shot when 7.3 is released. Thanks for posting the script and all your other contributions to this forum.

- Chris

dsullinger

Anyway to setup this script to search for specific interface speeds? I would like to see all interface circuits that are 56 Kbps, or all 1.544 Mbps.

Network_Guru

Chris,

Did you go through each line to look for instructions?
There are actually 2 parts to this script:

"Put the following in as c:\inetpub\SolarWinds\NetPerfMon\Resources\9-1-Miscellaneous\98-SearchInterfaces.Resource"

AND

"Next, put the following in as c:\Inetpub\SolarWinds\NetPerfMon\Resources\SearchInterfaces.Action.asp
//Start
"

I almost missed this when I installed this script.
I even left the //start & //end markers on by accident, but it still worked.
I just went back and deleted them once I could see what it did.

Kudos & great work Ian, you deserve a commission for this!

-=Cheers=-
NG

iunderwo

quote:Originally posted by dsullinger

Anyway to setup this script to search for specific interface speeds? I would like to see all interface circuits that are 56 Kbps, or all 1.544 Mbps.

One of the problems with speed search, is that speeds are largely subjective. For instance, I've seen T1s set for both 1536000 (correct) and 1544000 (incorrect...FDL doesn't count in interface throughput). Good suggestion, though.

Raw speed is easy, though. I'll take a look and see what kinda neat stuff I can do with it. Next release will probably be for 7.3, depending on what else they change.

// Ian Underwood - Service Management
// Level 3 Communications

cshiver

D'oh!!!!

That was it. Thanks again Ian! This is a great addition!

- Chris

loftenter

Awesome work!!!!!!!!!!!!!!!!

We need more goodies like this!

Thanks!

Justin

DTuloJr

VERY useful feature! This code, or something like it, should be absorbed by SolarWinds. Its an excellent feature, that also helps to promote a solid reason for naming standards across information environments.

FormerMember

Since upgrading to v8.5.1 sp3 my search button now doesn't work. Looked for all the files to make sure everything is still there and all would appear ok. Any suggestions?

FormerMember

Anyone able to assist. When I use the search tool posted above the page refreshes but I don't see any results or an error either.

Thanks

FormerMember

Bit of an update. I have now found that the search box works if you detach it from the main view, but if you search whilst its docked in the main summary view it fails to return results.

Really would appreciate some or a steer on this, thanks

Mark

Network_Guru

I believe the SW developers have included this code into the OOB search resource already.
Just add that view to your page and you should be good to go.
Here's a snippet from the V8.1 code here: C:\Inetpub\Solarwinds\NetPerfMon\Resources\9-1-Miscellaneous\99-SearchInterfaces.Resource
(V8.5.1 uses ASPX code for this and includes the wildcards for you)

<!--www2.solarwinds.net/.../topic.asp

<%
    Title="Search for Interfaces"
    HelpPage="SearchInterfaces"

    Dim Field
    Dim AnyInterface

    DoResourceHeader
    NetPerfMon.InsertGroupingJava

    Set AnyInterface = NetPerfMon.GetNetObject(NetPerfMon.GetRandomNetObject("I"))
%>