Se online/offline m.h.a IP lr liknande?

Det finns en bra komponent på https://www.serverobjects.com som heter ASP Ping, under förutsättning att du kan installera komponter på din server.

Redigerat: Hittade länken: http://www.serverobjects.com/comp/aspping.zip

Installerade komponenten och det gick bra. Om jag fattat rätt så visas sidan som innehåller koden nedan om IP kan hittas.

<%  Set Pinger = Server.CreateObject("AspPing.Conn")
    Pinger.RemoteHost = "IP SKRIVS HÄR"
    Pinger.PingCount = 2
    Response.Write "<pre>" & Pinger.Ping & "</pre>"
    Set Pinger = Nothing %>

Det skrivs dock inte ut något mellan pre-taggarna. Är det en felaktig IP adress skrivs det dock ut. Hur ska man nu anpassa koden ovan så att man skickas till online/offline sidorna beroende på om IP kan kontaktas eller inte? Om IPn hittas skulle man ju kunna ha sidan ovan som online sida, lr? Och skicka besökarna till offline sidan med en IF-sats kanske. Hur skulle den se ut då? Eller är jag helt fel ute här?

Samma för mig, inget skrivs om ip:t funkar men om det inte funkar så skrivs det ut.. alltså så funkar denna kod (iallafall för mig)

<%
Set Pinger = Server.CreateObject("AspPing.Conn")

Pinger.RemoteHost = "www.webforum.nu"
Pinger.PingCount = 2

If Len(Pinger.Ping) Then
	Response.Write "Offline"
Else
	Response.Write "Online"
End If

Set Pinger = nothing
%>

Bra, om man säger att man skulle vilja testa flera url:er på en gång, kanske upp till 5 stycken. Hur ska man göra då? Måste det till en ändring i dll:en, klistrar man in koden 5 ggr eller kör den 5 ggr? Jag tar gärna ett förslag även på detta.

Inte för att jag vet, men kanske typ något likt detta:

<%

url = "www.webforum.nu,[url]www.solbulle.com,www.hotmail.com[/url]"

arrayurl = Split(url, ",")

Set Pinger = Server.CreateObject("AspPing.Conn")

For i = 0 to ubound(url)

Pinger.RemoteHost = arrayurl(i)
Pinger.PingCount = 2

If Len(Pinger.Ping) Then
	Response.Write arrayurl(i) & " är Offline<br>"
Else
	Response.Write arrayurl(i) & " är Online<br>"
End If
Next
Set Pinger = nothing
%>