현재 사용자가 속하는 활성 사용자 그룹의 목록을 리턴합니다.
리턴된 목록은 빈 목록일 수 있습니다.
VBScript
session.GetUserGroups
Perl
$session->GetUserGroups();
Perl의 경우 문자열 배열에 대한 참조가 리턴됩니다.
VBScript
set sessionObj = GetSession
' Iterate over the user's groups
userGroups = sessionObj.GetUserGroups
If IsEmpty(userGroups) Then
' Code to handle if no user groups exist
Else
For Each group in userGroups
' ...
Next
Perl
use strict;
use CQPerlExt;
# Create session object
my $sessionObj = CQSession::Build();
$sessionObj->UserLogon("user", "password", "SAMPL", "");
# get the user groups
my $userGroups = $sessionObj->GetUserGroups();
if (!@$userGroups) {
#Code to handle if no user groups exist
print "no user groups\n";
}
else {
# print out all groups
foreach my $group (@$userGroups) {
print "Group $group\n";
}
}
exit(0);
CQSession::Unbuild($sessionObj);