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

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

AUTHOR

Max Maischein (corion@cpan.org)

COPYRIGHT

This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.