Devuelve la recopilación de esquemas asociados al depósito 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 Schema.
VBScript
adminSession.Schemas
Perl
$adminSession->GetSchemas();
VBScript
set adminSession = CreateObject("ClearQuest.AdminSession")
set SessionObj = CreateObject("ClearQuest.Session")
adminSession.Logon "admin", "admin", ""
set schemaList = adminSession.Schemas
For each schemaObj in schemaList
schemaName = schemaObj.Name
SessionObj.OutputDebugString "Found schema: " & schemaName
Next
Perl
use CQPerlExt;
#Crear una sesión de administración de Rational ClearQuest
$adminSession = CQAdminSession::Build();
$SessionObj = CQSession::Build();
#Iniciar la sesión como administrador
$adminSession->Logon( "admin", "admin", "" );
#Obtener la lista de esquemas del depósito.
$schemaList = $adminSession->GetSchemas();
#Obtener el número de esquemas del depósito.
$numSchemas = $schemaList->Count();
#Iterar a través de los esquemas del depósito.
for ( $x=0; $x<$numSchemas; $x++ ) {
#Obtener el elemento especificado de la recopilación de esquemas
$schemaObj = $schemaList->Item( $x );
#Obtener el nombre del esquema
$schemaName = $schemaObj->GetName();
#Salida, a través del depurador
$debugString = "Found schema: " . $schemaName;
$SessionObj->OutputDebugString( $debugString );
}
CQSession::Unbuild($SessionObj);
CQAdminSession::Unbuild($adminSession);