Returns the collection of databases to which the group has access. This list of databases includes indirect subscriptions that may exist through group membership and group subscriptions (that is, databases to which the group is not explicitly subscribed).
Il s'agit d'une propriété en lecture seule ; elle peut être visualisée mais pas définie.
Each element in the returned collection is a Database object. If this returns an empty collection or the collection has zero elements, the group is subscribed to all databases.
VBScript
group.AllSubscribedDatabases
Perl
$group->GetAllSubscribedDatabases();
VBScript
Set session = CreateObject("CLEARQUEST.ADMINSESSION")
session.Logon "admin", "", "bigboss"
set group = session.GetGroup("groupnum1")
Set dbs = group.SubscribedDatabases
Set alldbs = group.AllSubscribedDatabases
alldbscount = alldbs.Count
dbscount = dbs.Count
msgbox "alldbs count is " & CSTR(alldbscount)
msgbox "dbs count is " & CSTR(dbscount)
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";
}
$userObj = $adminsession->GetUser("admin");
$dblist = $userObj->GetAllSubscribedDatabases();
$numdbs = $dblist->Count();
print $numdbs;
CQAdminSession::Unbuild($adminsession);