Restituisce la raccolta dei database a cui il gruppo ha accesso. Questo elenco di database include le sottoscrizioni indirette che possono esistere tra l'appartenenza al gruppo e le sottoscrizioni del gruppo (vale a dire, i database a cui il gruppo non è iscritto esplicitamente).
Si tratta di una proprietà di sola lettura; è possibile visualizzarla, ma non impostarla.
Ciascun elemento nella raccolta restituita è un oggetto Database. Se questo restituisce una raccolta vuota oppure la raccolta non contiene elementi, il gruppo viene registrato in tutti i database.
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);