GetUserGroups

설명

현재 사용자가 속하는 활성 사용자 그룹의 목록을 리턴합니다.

리턴된 목록은 빈 목록일 수 있습니다.

구문

VBScript

session.GetUserGroups

Perl

$session->GetUserGroups();
ID
설명
session
현재 database-access 세션을 나타내는 Session 오브젝트입니다.
Return value
Visual Basic의 경우 Variant의 문자열 배열이 포함된 Variant를 리턴합니다. 각 문자열 이름은 현재 사용자(즉, 데이터베이스에 액세스하고 있는 로그인 이름을 사용하고 있는 사용자)가 속할 활성 그룹에 이름을 지정합니다.

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); 

피드백