Perl
use CQPerlExt;
$adminsession = CQAdminSession::Build();
$adminsession->Logon("admin", "", "2003.06.00");
if (defined($adminsession->Logon("admin", "", "2003.06.00"))) {
print "Error: Not logged into ClearQuest.. please log in \n";
}
$groupObj = $adminsession->GetGroup("group3");
$dblist = $groupObj->GetSubscribedDatabases();
$numdbs = $dblist->Count();
print $numdbs;
CQAdminSession::Unbuild($adminsession);