当需要在代码中判断用户组的关系or某一用组是否真正存在的情况时，以下的方法很有用。
（Note: 该段代码转自IBM官方论坛）

Function CheckGroupMembership(groupName)
dim session
set session = GetSession
CheckGroupMembership = 0
//得到所有的用户组
userGroups = session.GetUserGroups

//如果没有用户组，则退出
if IsEmpty(userGroups) then
Exit Function
//否则遍历用户组列表
else
for each group in userGroups
//找到，也就是存在此group, returen 1
if group = groupName then
CheckGroupMembership = 1
Exit Function
end if
next
end if
End Function
此方法可以通过改写，用这其他的用途。

强人！
支持！

强烈支持楼主
马上实验测试