Select Code to Download

# Connect to WMI on reporting server
#
...
        FatalCOMError("Can't open WbemScripting object");
my $SWbemServices = $SWbemLocator->ConnectServer($Server, "root/sms/si
+te_$SiteCode") or 
        FatalCOMError("Can't connect to server: $Server");

    # Get count of clients in collection
    my $WQL = q/select * from SMS_CM_RES_COLL_CEN01562/;
    $Colln = $SWbemServices->ExecQuery($WQL,"WQL",16) or FatalErr("Exe
+cQuery for Clients failed",1);
    $count = $Colln->{Count};

    # Get count of clients in collection
    my $WQL = q/select count(*) from SMS_CM_RES_COLL_CEN01562/;
    $Colln = $SWbemServices->ExecQuery($WQL,"WQL",16) or FatalErr("Exe
+cQuery for Clients failed",1);