You can get Win32::EventLog::Message using PPM: Ppm install http://www.roth.net/perl/packages/win32-eventlog-message.ppd
-----Original Message----- From: Philip Morley [mailto:[EMAIL PROTECTED]] Sent: Thursday, April 18, 2002 6:45 AM Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: Re: EventLog Question Where the suggestions posted by the other correspondents of any use? I'm afraid I have no other suggestions. The code I posted in response to your previous mail did display the error icon on my NT machine, it's weird that it didn't on yours. Can you just confirm when/where you got the Win32::EventLog installation from, please? Also my installation (ActiveState Perl 5.6.1) doesn't recognise Win32::EventLog::Message::RegisterSource. Any idea why? Thanks, Phil Morley rAuL <luar@speakea To: rAuL <[EMAIL PROTECTED]> sy.net> cc: "Philip Morley" <[EMAIL PROTECTED]>, rAuL 17/04/02 <[EMAIL PROTECTED]>, 14:34 [EMAIL PROTECTED], [EMAIL PROTECTED] Subject: Re: EventLog Question I'm sorry to report that this did not work. I still do not see the icon change. I am using the latest Active State distribution and using their VPM tool, I got the latest Win32::Event::Message. On 16 Apr 2002, rAuL wrote: > > Sorry for taking a week to respond to this but > here is my code: > > WriteToEventLog (EVENTLOG_ERROR_TYPE, "An > error has occurred") > > sub WriteToEventLog { my ($eventType, > $text) = @_; > > Win32::EventLog::Message::RegisterSource( > "Application", $DisplayName ); > > my $Event = Win32::EventLog->new( > $DisplayName ) || die; > > my $Result = $Event->Report( { EventID => > EVENT_ID, Strings => $text, EventType => > $eventType, } ); > > $Event->Close(); } > > > Again the problem is that while the error > message does get written to the event log, > only the INFORMATION icon is displayed rather > than the ERROR icon. This happens under NT 4.0 > and 2000. > > Thanks > > Raul Rodriguez > > > On 12 Apr 2002, Philip Morley wrote: > > > > > No. I see the error or warning icons on my > > viewer. Perhaps you should include a snippet > > of the code you use that writes to the Event > > Log...? > > > > Phil Morley > > > > > > > > > > > rAuL > > <[EMAIL PROTECTED]> > > Sent by: To: > > perl-win32-a- dmin-admi- > > [EMAIL PROTECTED] <Perl-- > > Win32-admin@listser- > > v.ActiveState.com> > > eState.com cc: > > Subject: EventLog > > Question > > > > > 12/04/02 16:05 > > > > > > > > > > > > > > > > Whenever I use EVENTLOG_ERROR_TYPE or > > EVENTLOG_WARN_TYPE, I do not see a error or > > warning icon in Event Viewer. Is this > > normal? > > > > ________________________________________- > > _____- > > __ > > Perl-Win32-Admin mailing list > > [EMAIL PROTECTED] To > > unsubscribe: > > http://listserv.ActiveState.com/- > > mailman/mysubs > > > > > > > > > > > > ________________________________________- > > _____- > > __ > > Perl-Win32-Admin mailing list > > [EMAIL PROTECTED] To > > unsubscribe: > > http://listserv.ActiveState.com/- > > mailman/mysubs _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
