我想通过读出owner中的username,读取去每个帐户的组，然后根据不同的组做判断,执行某些操作
我目前的脚本如下:
   set adminSession = CreateObject("ClearQuest.AdminSession")
   set Session = CreateObject("ClearQuest.Session")
   adminSession.Logon "stevenzhu", "stevenzhu", ""
   set userList = adminSession.Users
   set groupList = adminSession.Groups
   For each userObj in userList
   userName = userObj.Name
   上边代码已经取得了name,不知道如何取组啊
   If userGroup = "CCB" Then
   choices.AddItem(userName)
   End If
   Next


我看userobj里面有groups这个属性,为社么我用userobj.Name可以取的user的名字，但是用userobj.groups就不能取得user所属的组哪
请教应该如何做啊

问题已经解决 [打开主题]

本主题的最佳答案为 [ 4 楼].

For each userObj in userList
   userGroups = userObj.Groups
   '  因为一个用户可能属于几个组
   If Instr(userGroups，"CCB") Then
       choices.AddItem(userName)
   end if
Next

[ 本帖最后由 yunshan 于 2007-5-21 16:39 编辑 ]

修改后，我的代码如下:
        set adminSession = CreateObject("ClearQuest.AdminSession")
        set Session = CreateObject("ClearQuest.Session")
        adminSession.Logon "stevenzhu", "stevenzhu", ""
        set userList = adminSession.Users
        set groupList = adminSession.Groups
        For each userObj in userList
    userName = userObj.Name
        userGroups = userObj.Groups
    If Instr(userGroups,"CCB") Then
                choices.AddItem(userName)
        End If
        Next

但是使用时提示"对象变量未设置"
不知道是哪里修改错误了啊

set adminSession = CreateObject("ClearQuest.AdminSession")
        set Session = CreateObject("ClearQuest.Session")
        adminSession.Logon "admin", "", "pc"
        set userList = adminSession.Users
'       set groupList = adminSession.Groups
        For each userObj in userList
        userName = userObj.Name
        set        userGroups = userObj.Groups
        For each userGroup in userGroups
          If Instr(userGroup.Name,"CCB") Then
                  choices.AddItem(userName)
           End If
        Next
        Next
注意我改了Logon部分，用的时候改回你以前的，
这样就OK了~

[ 本帖最后由 yunshan 于 2007-5-21 17:26 编辑 ]

最佳答案

该回答被楼主/管理员列为正解!

非常感谢yunshan的帮助