Mon premier vbscript

mardi 17 janvier 2006
par  Olivier Duquesne aka DaffyDuke
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

Logo de DaffyDuke
samedi 1er juillet 2006 à 14h28 - par  DaffyDuke

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.

Logo de didinux
jeudi 22 juin 2006 à 11h03 - par  didinux

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
@+

Navigation

Mots-clés de l’article