그룹에 액세스 권한이 있는 데이터베이스 콜렉션을 리턴합니다. 이 데이터베이스 목록에는 그룹 멤버 및 그룹 등록을 통해 존재할 수 있는 간접 등록이 포함되어 있습니다(즉, 사용자가 명시적으로 등록되어 있지 않은 데이터베이스).
이는 읽기 전용 특성입니다. 즉, 볼 수는 있으나 설정할 수는 없습니다.
리턴된 콜렉션의 각 요소는 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);