[vbs] windows nt backup log controleren

[Verwijderd]

hallo

Ik heb een script gemaakt dat het windows nt backup programma (ingebouwd) logfile kan controleren. Alleen het werkt nog niet helemaal.

code:

   Const ForReading = 1, ForWriting = 2

   dim goed1, goed2, fout
   goed1 = "Maken van back-up voltooid"
   goed2 = "Controleren voltooid op"

   fout = "De bewerking is niet uitgevoerd omdat het opgegeven medium niet kan worden gevonden."
   Dim fso, servers_bestand, log_bestand
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set servers_bestand = fso.OpenTextFile(".\servers.txt", ForReading)

   Do While servers_bestand.AtEndOfLine <> True
   'in het server bestand staan alle servers (paden) waarin op logbestanden moet worden gecontroleerd
   'deze lus leest alle te controleren paden uit

     ReadLineTextFile = servers_bestand.ReadLine

     wscript.echo readlinetextfile

     'alle bestanden in het huidige pad worden opgezocht
     Dim f, f1, fc, s
     Set f = fso.GetFolder(readlinetextfile)
     Set fc = f.Files
     For Each f1 in fc


     'alleen de logbestanden in de map moeten worden gescand
     'als een bestand geen logfile is kan het worden overgeslagen

     if instr(f1.name, ".log") <> 0 then
       Set log_bestand = fso.OpenTextFile(readlinetextfile & "\" & f1.name , ForReading)
       wscript.echo readlinetextfile & "\" & f1.name
       
       do while log_bestand.atendofline <> true

          'uitlezen van de regels in het huidige logbestand
          readLineTextFile2 = log_bestand.ReadLine
          wscript.echo readlinetextfile2

          'controle of de backup is uitgevoerd
          if instr(readlinetextfile2, goed1) <> 0 then
           wscript.echo "backup gelukt"
           'geen verdere actie
          end if

          'controle of de backup is gecontroleerd
          if instr(readlinetextfile2, goed2) <> 0 then
           wscript.echo "controleren gelukt"
           'geen verdere actie
          end if

          'als deze bekende foutmelding voorkomt moet de beheerder worden gemailed
          if instr(readlinetextfile2, fout) <> 0 then
           wscript.echo "backup niet gelukt, medium niet gevonden"
           'mailen naar beheerder
          end if

          'andere foutmeldingen kunnen worden toegevoegd aan het script

       loop
    
     end if

   Next

   loop

   servers_bestand.Close
   log_bestand.Close

   wscript.echo "einde script"

Het bestand servers.txt bevat te controleren mappen. Wanneer de regels uit de logbestanden worden uitgelezen en worden ge-echo-ed om even te controleren krijg ik allemaal rare waarden.

Heeft iemand een idee om dit op te lossen? Of een betere manier om de logbestanden van windows ntbackup te controleren en de beheerder te mailen als het fout gaat?

[Remco]

Ik heb geen idee waarom je rare output krijgt, nu ben ik ook niet thuis in vbs.
Er zijn tooltjes die via een smtp server bestandjes kan mailen, moet je maar even kijken op google.
Voor de rest als je een volwaardig backup pakket wil, met alle controles en opties, zal je toch naar Arcserve of Backup-exec moeten.
En bestaat er zo'n scriptje toevallig al niet ergens ???