지정된 사용자가 로그인할 때 사용할 수 있는 데이터베이스 목록을 리턴합니다.
이 메소드는 지정된 사용자가 로그인할 수 있는 데이터베이스만 리턴합니다. user_login_name 매개변수에 빈 문자열이 포함된 경우, 이 메소드는 지정된 스키마 저장소(마스터 데이터베이스)와 연관된 모든 데이터베이스의 목록을 리턴합니다.
각 DatabaseDesc 오브젝트를 확인하여 해당하는 데이터베이스 이름, 데이터베이스 세트 이름 및 로그인하는 데 필요한 기타 정보를 가져올 수 있습니다.
VBScript
session.GetAccessibleDatabases (master_db_name, user_login_name, database_set)
Perl
$session->GetAccessibleDatabases(master_db_name, user_login_name, database_set);
Perl의 경우 DatabaseDescs 오브젝트 콜렉션을 리턴합니다.
VBScript
set sessionObj = GetSession ' Get the list of databases in the ' master database set. databases = sessionObj.GetAccessibleDatabases("MASTR","admin","") for each db in databases ' Get the name of the database dbName = db.GetDatabaseName sessionObj.UserLogon "admin", "", dbName, AD_PRIVATE_SESSION, "" dbConnectString = db.GetDatabaseConnectString Next The following code provides a MsgBox indicating the connect vendor information and logical name for all the user databases in a specific dbset. Sub Test() Dim session Dim databases Dim dbConnectString Dim dbConnectName Dim db Set session = CreateObject("CLEARQUEST.SESSION") databases = session.GetAccessibleDatabases("MASTR", "admin", "") session.UserLogon "admin", "", "SAMPL", AD_PRIVATE_SESSION, "" For Each db In databases dbConnectString = db.GetDatabaseConnectString dbConnectName = db.GetDatabaseName MsgBox dbConnectString MsgBox dbConnectName Next End Sub
Perl
use CQPerlExt;
#Start a Rational ClearQuest session
$sessionObj = CQSession::Build();
#Get a list of accessible databases
$databases = $sessionObj->GetAccessibleDatabases("MASTR", "admin", "");
$count = $databases->Count();
#Foreach accessible database, login as joe with password gh36ak3
for($x=0;$x<$count;$x++){
$db = $databases->Item($x);
$dbName = $db->GetDatabaseName();
# Logon to the database
$sessionObj->UserLogon( "joe", "gh36ak3", $dbName, "" );
#...
}
CQSession::Unbuild($sessionObj);