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

[download]
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.

In reply to Write to WIndows Event Log by sungy

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.