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