Mon premier vbscript
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
Vos commentaires
# Le 22 juin 2006 à 11:03, par didinux En réponse à : Mon premier vbscript
salut
cool se script, moi aussi je fait des script mais je ne sui pas tres douée, je suis débutante alors peut etre ke vous pourriez m’aider.
j’aimerai savoir comment on pourrais faire pour ouvrir une un script d’un autre script comme un genre de lien hypertexte en HTLM
j’espere que je suis clair
merci de bien vouloir m’aider
@+
# Le 1er juillet 2006 à 14:28, par DaffyDuke En réponse à : Mon premier vbscript
Bah j’y connais pas grand chose en vbscript alors non. Mais en shell, on peut passer par du dialog ou du ncurses pour faire des interfaces interactives.