Home site EPFL LoginThis site is in french only !
> windows.epfl.ch

Home Page

Comment savoir si un serveur est toujours vivant
  

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>

Article N° 96 du 12.04.2002 11:16:40 par François Georgy -- Permalink : http://windows.epfl.ch/?article=96
Mentions légales     Signaler un problème
© 2001-2021 EPFL, EPFL-EXAPP, T. Charles, tous droits réservés.