GetUserGroups

Descrizione

Restituisce un elenco di gruppi di utenti attivi al quale l'utente corrente appartiene.

È possibile che l'elenco restituito sia vuoto.

Sintassi

VBScript

session.GetUserGroups

Perl

$session->GetUserGroups();
Identificativo
Descrizione
session
L'oggetto Session che rappresenta la sessione di accesso al database corrente.
Valore di ritorno
Per Visual Basic, viene restituito un valore Variant che contiene una stringa array di Variant. Ciascuna stringa attribuisce un nome a un gruppo attivo al quale l'utente corrente appartiene (ovvero, l'utente tramite il quale nome di accesso si accede al momento al database).

Per Perl, viene restituito un riferimento ad un array di stringhe.

Esempi

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

Feedback