Aide sur Win32::Eventlog

Version imprimable

24/10/2008, 09h58
laurent33500

Aide sur Win32::Eventlog

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
24/10/2008, 12h21
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

Citation:

$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;

test

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:

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++;
 }

24/10/2008, 15h49
djibril

Encadre ton code sous balise code (#)

Merci