Devuelve la lista de los grupos de usuarios activos a los que pertenece el usuario actual.
VBScript
session.GetUserGroups
Perl
$session->GetUserGroups();
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);