Pinga mot IP

hmm är inte säker men tror detta varit uppe tidigare, tror inte det... utan plugin, men sök och du svar skall finna! :e

Sitter du med en nyare win2000 server så är chansen stor att du kan använda ServerXMLHTTP.

Kan tex se ut så här:

Function GetHTML(strPage)
Dim strXMLout
On Error Resume Next 
Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
	'Winsock Timeouts: resolve, connect, send, receive
	objHTTP.setTimeouts 3000, 3000, 5000, 5000
	objHTTP.Open "GET", strPage, False
	objHTTP.Send

	If Err.Number = 0 AND objHTTP.Status = 200 Then
		strXMLout = "UPPE
	Else
		strXMLout = "NERE"
	End If

Set objHTTP = Nothing 
GetHTML = strXMLout
End Function

Sen testar du att connecta mot en sida på servern du vill kolla med:

<%=GetHTML("http://www.doman.com/sida.htm")%>

Då bör funktionen returnera UPPE eller NERE.

Finns inte Msxml2.ServerXMLHTTP så prova med den äldre XMLHTTP istället.

Förresten... Det kan nog hända att funktionen i vissa fall inte returnerar något alls beroende på var timeot inträffar(.setTimeouts ställer in timeoutvärdena direkt i winsock) så lägg in en if-else sats som endast kollar efter "UPPE" vid utskrift.

If GetHTML("http://www.doman.com/sida.htm") = "UPPE" Then
Response.Write "Sidan är uppe!" 
Else 
Response.Write "Sidan är nere!" 
End If

Förresten #2: För att kolla om komponenten finns så kommentera bort On Error Resume Next ;) Men annars bör den finnas där för hanteringen av timeouts.