GetUserGroups

説明

現在のユーザーが属しているアクティブ ユーザー グループのリストを戻します。

戻されたリストが空の場合があります。

構文

VBScript

session.GetUserGroups

Perl

$session->GetUserGroups();
識別子
説明
session
現在のデータベース アクセス セッションを表す Session オブジェクト。
戻り値
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);

フィードバック