请教关于Active Directory的问题

下面代码：
  Const ADS_SCOPE_SUBTREE = 2

  Set objConnection = CreateObject("ADODB.Connection")
  Set objCommand = CreateObject("ADODB.Command")
  objConnection.Provider = "ADsDSOObject"
  objConnection.Open "Active Directory Provider"
  Set objCommand.ActiveConnection = objConnection
   
  objCommand.Properties("Page Size") = 100
  objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
  objCommand.CommandText = "SELECT samAccountName, ADsPath FROM 'GC://ou=Useraccounts,ou=pk，dc=bosch,dc=com'"

  objCommand.Properties("SearchScope") = ADS_SCOPE_SUBTREE

  Set objRecordSet = objCommand.Execute
  Set objItem = GetObject(objRecordSet.Fields("AdsPath").Value)

在上面对ad进行连接后，获取里面信息 比如objitem.cn
http://msdn.microsoft.com/zh-cn/library/ms675085.aspx
根据上面的属性和类查找，里面的类(class)是怎么使用的 只会用属性
关键For Each Group In objItem.Groups 这句里的groups在上面网址里找不到，使ad里自己设的还是有什么其它的途径？

忘记说了，是这样的
For Each Group In objItem.Groups
  Cells(intRow, intCol) = Group.Name
  intCol = intCol + 1
Next
里面的groups和group.name是从哪里来获取的，链接里没有。