Devuelve la recopilación de bases de datos asociadas al repositorio de esquemas. 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.
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);