Det kan saktens lade sig gøre du skal download komponentet: w3sockets og installere det på serveren, derefter kan du bruge dette script:
<%
dim dbname
dim cn
dim constr
dim sqlstring
dim resultat
dbname=Server.MapPath("database.mdb")
set cn= server.createobject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & dbname
cn.connectionstring = constr
cn.open
sqlstring="Select * from iper"
set resultat=cn.execute(sqlstring)
if resultat.eof then
response.write"Intet at hente i databasen<br>"
else
%>
<head>
<title>Server Service status side - by Dalhøj Network -
www.dalhoj.tk</title><script language="javascript">
setTimeout("redirect()", 120000);
function redirect() {
top.location.href="default.asp";
}
</script>
</head>
<body bgcolor="#C0C0C0">
<table border="1" width="100%">
<tr>
<td width="55%">Node</td>
<td width="45%">Status</td>
</tr>
<tr>
<%
While not resultat.eof
on error resume next
Set objSocket = Server.CreateObject("Socket.TCP")
objSocket.Host = resultat("ip")
objSocket.Open
objSocket.TimeOut = 5000
objSocket.SendLine(request.form("line"))
if request.form("wait") = "yes" then
objSocket.WaitForDisconnect
end if
WhichErrNo = err.number
'response.write err.description & "<br>"
if WhichErrNo = 0 then
response.write "<td width='50%'>" & resultat("navn") & "</td>" & "<td width='50%'>" & "<font color='#008000'>|Successfully completed|<br></font></td></tr>"
elseif WhichErrNo = -2147418113 then
response.write "<td width='50%'>" & resultat("navn") & "</td>" & "<td width='50%'>" & "<font color='#FF0000'>|Connection refused|<br></font></td></tr>"
else
response.write "|err # " & (WhichErrNo) & ": " & err.description & "|<br>"
end if
objSocket.Close
resultat.movenext
wend
end if
'tmpBuffer = objSocket.Buffer
'Response.Write tmpBuffer
%>
</tr>
</table>
Iperne og portene er lagert i en database.
