ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vitaly Cheprasov aka Fanatik         2:5009/5.24    04 Jun 2004  19:12:26
 To : All
 Subject : eventLog
 -------------------------------------------------------------------------------- 
 

 
 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->{Source} eq "EventLog") {
                 Win32::EventLog::GetMessageText($HasHRef);
                 print "Entry $x: $HasHRef->{Message}\n";
         }
         $x++;
  }
 При выполнение выдаът ошибку:
 C:\Perl\bin>perl5.8.0.exe test.pl
 Can't locate auto/Win32/EventLog/new.al in @INC (@INC contains: C:/Perl/lib
 C:/Perl/site/lib .) at test.pl line 3
 Подскажите что делать
 С уважением Fanatik...
 
 --- ...CyberStudio...cyberstudio@tamb.ru
  * Origin: ...локальные сети...веб... (2:5009/5.24)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    eventLog   Vitaly Cheprasov aka Fanatik   04 Jun 2004 19:12:26   Re: eventLog   Andrew Alakozow   07 Jun 2004 10:51:31