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 String 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, devuelve una referencia a una matriz de series.

Ejemplos

VBScript

set sessionObj = GetSession

' Iterar en los grupos de usuarios
userGroups = sessionObj.GetUserGroups
If IsEmpty(userGroups) Then

   ' Código para manejar si no existen grupos del usuario

Else

   For Each group in userGroups
      ' ...
Next

Perl

use strict;

use CQPerlExt;



# Crear un objeto Session

my $sessionObj = CQSession::Build();

$sessionObj->UserLogon("user", "password", "SAMPL", "");



# obtener los grupos de usuarios

my $userGroups = $sessionObj->GetUserGroups();



if (!@$userGroups) {

    #Código para manejar si no existe ningún grupo de usuarios

    print "no user groups\n";

}

else {

    # imprimir todos los grupos

    foreach my $group (@$userGroups) {

        print "Group $group\n";

    }

}

exit(0);

CQSession::Unbuild($sessionObj);


Comentarios