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

##</code><code>##

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

##</code><code>##

	# 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("ExecQuery for Clients failed",1);