NAME
Win32::WQL - DBI-like wrapper for the WMI
SYNOPSIS
use Win32::WQL;
my $wmi = Win32::WQL->new( machine => 'remote_computer' );
my $sth = $wmi->prepare(<<'WQL');
ASSOCIATORS OF {Win32_Directory.Name='C:\\WINNT'}
WHERE ResultClass = CIM_DataFile
WQL
my $remote_files = $sth->execute;
while (my $file = $remote_files->fetch()) {
print $file->{Name},"\n";
};
OVERVIEW
This module implements a bare bones DBI clone which is similar yet different. You will most likely want to use the real thing, DBD::WMI, which is a compatibility layer over this module.
METHODS
new %ARGS
Initializes the thin wrapper over the Win32::OLE WMI instance. All parameters are optional.
machine
The parameter is the machine name to connect to. It defaults to the local machine.
wmi
A preinitialized WMI object to use. Defaults to creating a fresh instance.
statement_class
The class into which the results of prepare
are blessed. Defaults to Win32::WQL::Statement
.
event_iterator_class
The class into which the results of fetchrow
are blessed for event queries. Defaults to Win32::WQL::Iterator::Event
.
collection_iterator_class
The class into which the results of fetchrow
are blessed for static queries. Defaults to Win32::WQL::Iterator::Collection
.
$wmi->prepare QUERY
Returns a prepared query by calling
return $self->statement_class->new({
query => $query,
wmi => $self,
iterator_class => $class,
wmi_method => $method,
});
$wmi->event_query QUERY
Determines whether a query is an event query or a static query.
Event queries return a row whenever a new event arrives and block if there is no event available.
Static queries are static and return all rows in one go.
A query is considered an event query if it matches
$query =~ /\b__instance(?:\w+)event\b/i
or $query =~ /\wEvent\b/i
SEE ALSO
DBD::WMI for more examples
TODO
Implement parameters for and credentials
Implement a multiplexer by using multiple, waiting threads so you can
SELECT
events from more than one WMI namespace
REPOSITORY
The public repository of this module is https://github.com/Corion/dbd-wmi.
SUPPORT
The public support forum of this module is https://perlmonks.org/.
BUG TRACKER
Please report bugs in this module via the RT CPAN bug queue at https://rt.cpan.org/Public/Dist/Display.html?Name=DBD-WMI or via mail to www-mechanize-phantomjs-Bugs@rt.cpan.org.
AUTHOR
Max Maischein corion@cpan.org
COPYRIGHT (c)
Copyright 2009-2018 by Max Maischein corion@cpan.org
.
LICENSE
This module is released under the same terms as Perl itself.