Devuelve la recopilación de bases de datos a las que el grupo tiene acceso. Esta lista de bases de datos incluye suscripciones indirectas que pueden existir mediante pertenencia a grupo y suscripciones de grupo (es decir, bases de datos a las que el grupo no está suscrito explícitamente).
Es una propiedad de sólo lectura; se puede visualizar, pero no se puede establecer.
Cada elemento de la recopilación devuelta es un objeto Database. Si devuelve una recopilación vacía o la recopilación no tiene elementos, significa que el grupo está suscrito a todas las bases de datos.
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);