回复 #5 happygod 的帖子
我现在用下面的脚本:
my $session = $entity->GetSession();
# start building a query of the users
my $queryDefObj = $session->BuildQuery("users");
# have the query return the desired field of the user object(s)
$queryDefObj->BuildField("Login_Name");
# filter for members of group "MyGroup" (whatever group you want)
my $filterOp = $queryDefObj->BuildFilterOperator(
$CQPerlExt::CQ_BOOL_OP_AND);
my @array = ("DEV");
$filterOp->BuildFilter("groups", $CQPerlExt::CQ_COMP_OP_EQ, \@array);
my $resultSetObj = $session->BuildResultSet($queryDefObj);
# run it
$resultSetObj->Execute();
# add each value in the returned column to the choicelist
while ($resultSetObj->MoveNext() == $CQPerlExt::CQ_SUCCESS) {
push(@choices,$resultSetObj->GetColumnValue(1));
}
结果owner处只能显示出“DEV”组的人员名单,别的组的不行,哪位高人帮忙看看,对脚本一窍不通阿:(