Re: WMI EventLog

I'm not familiar with WMI, but here are a few pointers that may help:

The string you're seeing is OK, it just means that $aevents is a Win32::OLE object, as it should be.

Check for an error after the ExecQuery call by calling Win32::OLE->LastError. Something like:

$aevents = $Wmi->ExecQuery(...);
print "The error code is ", Win32::OLE->LastError(), "\n";
[download]

I assume the $if thing is just a copy-and-paste-o.
One of the best resources I know for working with Perl on Win32 is Dave Roth's web site. A look over there usually turns up useful info. Give it a shot.

Good luck.

Comment on Re: WMI EventLog Select or Download Code

Replies are listed 'Best First'.
Re: Re: WMI EventLog by Mitch (Sexton) on Feb 11, 2003 at 19:42 UTC
Thanks for getting back to me so quickly. The $if is just a copy-and paste-o. The error code returned after the ExecQuery is 0, which should mean it worked. I'm thinking the loop and "in" structure may not be a clean translation from vb to perl. I looked on Roth's sight; he does have some WMI examples, but not with looping through events. Thanks. Mitch	[reply]