Hi All

In the below script we can print event details into console window by
debug_spin(1).
Now how can I print those event details ina text file ?

__________________________________________________________________
use strict;
use Win32::OLE;
use Win32::ActAcc;

sub main
{
        print "\n"."aaEvents - Display WinEvents"."\n\n";
        print "(runs until interrupted, e.g., by ^C)\n";
        Win32::OLE->Initialize();
        my $eh = Win32::ActAcc::createEventMonitor(1);
        for (;;)
        {
                print "-----\n";
                $eh->debug_spin(1);
        }
}

&main;
_________________________________________________


Thanks

Abhra


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to