グループがアクセス権を持つデータベースのコレクションを戻します。このデータベースのリストには、グループのメンバシップとグループ登録の全体に存在する可能性のある間接的な登録が含まれます (つまり、グループが明示的に登録されていないデータベース)。
これは読み取り専用のプロパティです。表示できますが設定できません。
戻されたコレクション内の各エレメントは 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);