Users

Description

Devuelve la recopilación de usuarios asociados 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 User.

Sintaxis

VBScript

adminSession.Users 

Perl

$adminSession->GetUsers(); 
Identificador
Description
adminSession
Objeto AdminSession que representa la sesión de acceso al repositorio de esquemas actual.
Valor de retorno
Un objeto Users que contiene todos los usuarios del repositorio de esquemas.

Ejemplo

VBScript

set adminSession = CreateObject("ClearQuest.AdminSession")
set Session = CreateObject("ClearQuest.Session")

adminSession.Logon "admin", "admin", ""

set userList = adminSession.Users

For each userObj in userList
  userName = userObj.Name
  SessionObj.OutputDebugString "Found user: " & userName
Next 

Perl

use CQPerlExt;

#Create a Rational ClearQuest admin session
$adminSession= CQAdminSession::Build();

#Logon as admin
$adminSession->Logon( "admin", "admin", "" );

#Get the list of users in the repository.
$userList = $adminSession->GetUsers();

#Get the number of users
$numUsers = $userList->Count();

#Iterate through the users
for ( $x=0; $x<$numUsers; $x++ ) {
     #Get the specified item in the collection of users
     $userObj = $userList->Item( $x );
     #Get the name of the user
     $userName = $userObj->GetName();
}

CQAdminSession::Unbuild($adminSession); 

Comentarios