스키마 저장소에 연관된 데이터베이스 콜렉션을 리턴합니다. 이는 읽기 전용 특성입니다. 즉, 볼 수는 있으나 설정할 수는 없습니다.
리턴된 콜렉션 내의 각 요소는 Database 오브젝트입니다.
VBScript
adminSession.Databases
Perl
$adminSession->GetDatabases();
VBScript
set adminSession = CreateObject("ClearQuest.AdminSession") set SessionObj = CreateObject("ClearQuest.Session") adminSession.Logon "admin", "admin", "" set databaseList = adminSession.Databases For each dbObj in databaseList dbName = dbObj.DatabaseName SessionObj.OutputDebugString "Found database: " & dbName Next
Perl
use CQPerlExt; #Create a Rational ClearQuest Admin session $adminSession= CQAdminSession::Build(); #Logon as admin $adminSession->Logon( "admin", "admin", "" ); $databaseList = $adminSession->GetDatabases(); #Get the number of databases $numDbs = $databaseList->Count(); #Iterate through the databases for ( $x=0; $x<$numDbs; $x++ ) { #Get the specified item in the collection of databases $dbObj = $databaseList->Item( $x ); #Get the name of the database $dbName = $dbObj->GetName(); } CQAdminSession::Unbuild($adminSession);