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.

Un message, un commentaire ?

Forum sur abonnement

Pour participer à ce forum, vous devez vous enregistrer au préalable. Merci d’indiquer ci-dessous l’identifiant personnel qui vous a été fourni. Si vous n’êtes pas enregistré, vous devez vous inscrire.

Connexions’inscriremot de passe oublié ?