Call TestPage()
 
   wscript.quit
 
   '-------------------------------------------------------------------------
   '-------------------------------------------------------------------------
   Sub TestPage()
   Logfile = "d:appslynxpage_test.log"
   Lynx_Conf = "%comspec% /c d:appslynxlynx.exe -cfg=d:appslynxlynx.cfg"
   Lynx_URL = " -dump ""http://siteoueb/page.jsp"""
    
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set wshShell = WScript.CreateObject("Wscript.Shell")
   Surf = wshshell.Run (Lynx_Conf & Lynx_URL & " >" & Logfile, 0, TRUE)
    
   Set Result = fso.OpenTextFile(Logfile, 1, False)
   If Not Result.AtEndOfStream Then
   TextFich = Result.ReadAll
   Else Wscript.echo "Erreur : fichier vide"
   Wscript.Quit
   End If
 
   Set Re = New RegExp
   Re.Global = True
   Re.IgnoreCase = False
   Re.Pattern = "chaineatrouver"
   ReR = Re.Test(TextFich)
   If ReR = True Then
   Wscript.echo "page de test OK"
   Else Wscript.echo "Erreur sur la page de test"
   Call EnvoiMailRiisFailed()
   Result.Close
   Wscript.quit
   End If
   Result.Close
   End Sub
   '-------------------------------------------------------------------------
   '-------------------------------------------------------------------------
   Sub EnvoiMailRiisFailed()
   Set wshShell = WScript.CreateObject("Wscript.Shell")
   jour = day(date)
   If( jour < 10 ) Then 
   jour = "0" & jour
   End If
   mois = month(date)
   If( mois < 10 ) Then 
   mois = "0" & mois
   End If
   annee = right(year(date), 2)
   DateDuJour = jour & "/" & mois & "/" & annee
    
   DateFile = "d:sysadmindatefile.txt"
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Set fso2 = CreateObject("Scripting.FileSystemObject")
   If (fso2.FileExists(FileResult)) Then
   Set fso3 = CreateObject("Scripting.FileSystemObject")
   fso3.DeleteFile(FileResult)
   End If
   Set Remplir = fso2.OpenTextFile(DateFile, ForWriting, True)
   Remplir.WriteLine("MACHINE")
   Remplir.WriteLine(DateDuJour)
   Remplir.WriteLine("Probleme")
   Remplir.WriteLine("Erreur sur la page de surveillance")
   Remplir.WriteLine("Il faut probablement relancer Apache/JServ")
   Remplir.WriteLine("d:sysadminStartApache.cmd")
   Remplir.close
 
   EnvoiMail = "%comspec% /c d:appstoolsblat.exe " & DateFile & " -t destintaire@domaine -s ""Sujet"""
   Envoi = wshshell.Run (EnvoiMail, 0, TRUE)
   wscript.sleep 5000
    
   End Sub
   '-------------------------------------------------------------------------
   '------------------------------------------------------------------------