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