retrieving the AD Groups a user belongs to

[Alekctx]

Hi
I guess I am to tired
Could someone tell me why does this script not work?

Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D

Set objUser = GetObject _
("LDAP://cn=TOTO,ou=rx250,dc=test,dc=X34-001,dc=com&quot

intPrimaryGroupID = objUser.Get("primaryGroupID&quot
arrMemberOf = objUser.GetEx("memberOf&quot

If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
WScript.Echo "The memberOf attribute is not set."
Else
WScript.Echo "Member of: "
For each Group in arrMemberOf
WScript.Echo Group
Next
End If

Set objConnection = CreateObject("ADODB.Connection&quot
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command&quot
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
&quot;<LDAP://dc=test,dc=X34-001,dc=com>;(objectCategory=Group);&quot; & _
&quot;distinguishedName,primaryGroupToken;subtree&quot;
Set objRecordSet = objCommand.Execute

While Not objRecordset.EOF
If objRecordset.Fields(&quot;primaryGroupToken&quot = intPrimaryGroupID Then
WScript.Echo &quot;Primary group:&quot;
WScript.Echo objRecordset.Fields(&quot;distinguishedName&quot & _
&quot; (primaryGroupID: &quot; & intPrimaryGroupID & &quot&quot;
End If
objRecordset.MoveNext
Wend

 

[PGTurner]

On a quick look I would guess you are missing the .Name object syntax:

    For each Group in arrMemberOf
        WScript.Echo Group

.Name

    Next

Another syntax (not LDAP) but the same idea:

      Set DomainObj = GetObject("WinNT://DomainName")
      DomainObj.Filter = Array("Group")
      For Each Group in DomainObj
        Response.Write(Group

.Name

)
        Response.Write(Group

.Description

)
      Next