Discussion :

[laurent33500]

Bonjour à tous,
Je vous expose mon problème.
Durant la semaine des serveurs W2K3 doivent rebooter et je dois vérifier le matin si le reboot c'est bien effectué.
Je voudrais savoir comment faire en perl avec Win32::Eventlog pour récupérer le dernier event n° 6005 qui correspond à "Le service d'Enregistrement d'événement a démarré."

Merci pour votre aide

[Invité]

Salut,

Pourquoi ne jettes-tu pas un oeil à la doc. Tout y est expliqué avec des exemples:

http://www.xav.com/perl/site/lib/Win32/EventLog.html

$handle->GetNumber(SCALARREF);
The GetNumber() method returns the number of EventLog records in the EventLog represented by $handle. The number of the most recent record in the EventLog is therefore computed by

$handle->GetOldest($oldest);
$handle->GetNumber($lastRec);
$lastRecOffset=$oldest+$lastRec;

[laurent33500]

Voila mon script pris dans l'exemple.
En rouge ma nouvelle ligne. Celle ci ne me donne aucune réponse, alors que la ligne en vert fonctionne.
la source eventlog correspond à l EventID 6006

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use Win32::EventLog;

 $handle=Win32::EventLog->new("System", $ENV{ComputerName})
        or die "Can't open Application EventLog\n";
 $handle->GetNumber($recs)
        or die "Can't get number of EventLog records\n";
 $handle->GetOldest($base)
        or die "Can't get number of oldest EventLog record\n";

 while ($x < $recs) {
        $handle->Read(EVENTLOG_FORWARDS_READ|EVENTLOG_SEEK_READ,
                                  $base+$x,
                                  $hashRef)
                or die "Can't read EventLog entry #$x\n";
        if ($hashRef->{EventID} eq "6006") {
        #if ($hashRef->{Source} eq "EventLog") {
                Win32::EventLog::GetMessageText($hashRef);
                print "Entry $x: $hashRef->{Message}\n";
        }
        $x++;
 }

[djibril]

Encadre ton code sous balise code (#)

Merci