Hallo Johannes,
also ich habe mir den Code mal rudimentär durchgeschaut,
ich kenne zwar die instanzmethode eventlog nicht aber ist ja auch egal.
Ich weiss nicht ob es ein schreibfehler von dir ist, aber wie soll er jemals aus der Whileschleife rauskommen geschweigedenn den die Variable $i erhöhen ?
"
my $i = 0;
while ($i < $number) {
$Eventlog->Read(EVENTLOG_BACKWARDS_READ|EVENTLOG_SEEK_READ, $oldest+$i, my $event) || die "Can't read EventLog entry $i";
$event->{"EventID"} = $event->{"EventID"} & 0xffff;
if ($event->{"EventID"} == 6005) {
timeres($event->{TimeGenerated});
last;
}
$i++;
"
hier müsstest du auch schon $i in den While block reinschreiben, da er sonst immer nur den selben wert bearbeitet und natürlich nicht mehr die schleife verlässt.
Vielleicht war das ja der fehler und vielleicht hast du ihn ja auch schon selber entdeckt, sollte ich jetzt völlig falsch liegen schreib mir bitte ne antwort
Gruß Urmel