I am new to perl and I had a problem in writing to the Windows Event Log from my program. Actually after the program run, an entry had been written to the event log but when I view it in the Event Viewer, it show mine the following :
The description for Event ID ( 0 ) in Source ( MyProgram ) cannot be found. The local computer may not have the necessary registry information or message DLL files to display messages from a remote computer. You may be able to use the /AUXSOURCE= flag to retrieve this description; see Help and Support for details. The following information is part of the event: Test.
Here is my code
sub writeeventlog {
use Win32::EventLog;
my $eventLog = Win32::EventLog->new('MyProgram')
my %eventRecord = (
'Source' => 'MyProgram',
'Computer' => 0,
'Length' => 0,
'RecordNumber' => 0,
'TimeGenerated' => 0,
'Timewritten' => 0,
'ClosingReocrdNumber' => 0,
'Category' => NULL,
'EventID' => 0,
'EventType' => EVENTLOG_ERROR_TYPE,
'Strings' => 'Test.'
'Data' => 'Test.',
);
$eventLog->Report(\%eventRecord);
$eventLog->Close();
}
Also I realized that the source is not register in the registry under HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\Application\
Please help and how I can register the event source, many thanks.