Select Code to Download

for (10000..10001) {
    die Win32::OLE->LastError() unless (push @Triggers, $TriggerSet->C
+reate(0));
...
  unless (my $values = $Triggers[$#Triggers]->ValueQueries->Create("ev
+entId", "Event/System/EventID"));
    $Triggers[$#Triggers]->{Enabled} = 1;
}

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

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

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};