Un moyen parmis d'autre ci-dessous. La seule condition nécessaire est que le serveur soit Windows 2000 avec Active-Directory ou qu'il écoute le protocole LDAP.
<% Response.Buffer = true %>
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>watchdog.asp</title>
</head>
<body>
<%
On Error Resume Next
Dim dso
Dim strTarget
strTarget = Request.QueryString
if strTarget = "" then
Response.Write "Oups! Je ne suis pas devin! Indiquez-moi quel serveur interroger svp. Merci."
else
Set dso = GetObject("LDAP://" & strTarget)
if Err then
Response.Write "Le serveur " & strTarget & " ne répond pas!"
Response.Status = "404 Not Found"
else
Response.Write "Le serveur " & strTarget & " est vivant!"
end If
Err.Clear
end if
%>
</body>
</html>