Returns the collection of groups associated with the schema repository. This is a read-only property; it can be viewed but not set.
Each element in the returned collection is a Group Object.
VBScript
adminSession.Groups
Perl
$adminSession->GetGroups();
VBScript
set adminSession = CreateObject("ClearQuest.AdminSession") adminSession.Logon "admin", "", "" set groupList = adminSession.Groups for each groupObj in groupList groupName = groupObj.Name msgbox groupName Next
Perl
use CQPerlExt; #Create a Rational ClearQuest admin session $adminSession= CQAdminSession::Build(); #Logon as admin $adminSession->Logon( "admin", "admin", "" ); #Get the list of groups $groupList = $adminSession->GetGroups(); #Get the number of groups $numGroups = $groupList->Count(); #Iterate through the groups for ( $x=0; $x<$numGroups; $x++ ) { #Get the specified item in the collection of groups $groupObj = $groupList->Item( $x ); #Get the name of the group $groupName = $groupObj->GetName(); } CQAdminSession::Unbuild($adminSession);