Mega Code Archive

 

Categories / Perl / Win32

 

An Event Report

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