GetUserGroups

Descripción

Devuelve la lista de los grupos de usuarios activos a los que pertenece el usuario actual.

La lista devuelta puede estar vacía.

Sintaxis

VBScript

session.GetUserGroups

Perl

$session->GetUserGroups();
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
Valor de retorno
Para Visual Basic, devuelve un valor Variant que contiene un String de variantes de matriz. Cada serie da nombre a un grupo activo al que pertenece el usuario actual (es decir, el usuario cuyo nombre de inicio de sesión se ha utilizado para acceder a la base de datos actualmente).

Para Perl, una referencia a una matriz de series.

Ejemplos

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