18 lines
573 B
Perl
18 lines
573 B
Perl
use Win32::EventLog;
|
|
|
|
$eventLog = Win32::EventLog->new('System') || die $!;
|
|
%eventRecord = (
|
|
'Source' => 0,
|
|
'Computer' => 0,
|
|
'Length' => 0,
|
|
'RecordNumber' => 0,
|
|
'TimeGenerated'=> 0,
|
|
'Timewritten' => 0,
|
|
'ClosingRecordNumber' => 0,
|
|
'Category' => 2,
|
|
'EventID' => 4242,
|
|
'EventType' => EVENTLOG_INFORMATION_TYPE,
|
|
'Strings' => "Used to identify the data",
|
|
'Data' => "Informational data about the message",
|
|
);
|
|
$eventLog->Report(\%eventRecord); |