Mon premier vbscript
mardi 17 janvier 2006
par
popularité : 86%
par
popularité : 86%
Mini Watchweb en VBS
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
'-------------------------------------------------------------------------
'------------------------------------------------------------------------– Puis utiliser Lynx (d :\apps\lynx)
– Envoyer des mails avec blat ; Si blat n’est pas installé : blat -install mailhost ceqnt2@mailhost
puis la clé est crée dans HKLO\software\department ...
– Utiliser un batch qui fait c:\windows\system32\cscript.exe <script.vbs >log pour exécuter le vbs
– puis le mettre en cron
Commentaires