VBScript
session.GetUserGroups
Perl
$session->GetUserGroups();
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);