for (10000..10001) {
    die Win32::OLE->LastError() unless (push @Triggers, $TriggerSet->Create(0));
    $Triggers[$#Triggers]->{Id} = $_;
    $Triggers[$#Triggers]->{Subscription} =
        qq{<QueryList>
          <Query Id="$_" Path="Microsoft-Windows-NetworkProfile/Operational">
            <Select Path="Microsoft-Windows-NetworkProfile/Operational">*[System[(EventID="$_")]]</Select>
          </Query>
        </QueryList>};
    die Win32::OLE->LastError() 
  unless (my $values = $Triggers[$#Triggers]->ValueQueries->Create("eventId", "Event/System/EventID"));
    $Triggers[$#Triggers]->{Enabled} = 1;
}

##</code><code>##

    $Triggers[$#Triggers]->{Id} = $_;

##</code><code>##


    <Query Id="$_" Path="Microsoft-Windows-NetworkProfile/Operational">

##</code><code>##

warn "Testing query";
$RootFolder->RegisterTaskDefinition("OLE-Test",$TaskDefinition,1,undef,undef,3);
warn "Query OK, installing task";
$RootFolder->RegisterTaskDefinition("OLE-Test",$TaskDefinition,6,undef,undef,3);
print Dumper $TaskDefinition->{XmlText};