Discussion (4)2
Log in or sign up to continue

for list all my user's groups , I executed this:

s LD=##Class(%SYS.LDAP).Init("ad.com.local")
s Status=##class(%SYS.LDAP).SimpleBinds(LD,"CN=adminUser,OU=ServicesUsers,OU=IHP,DC=domain,DC=ad","password")
s Filter="sAMAccountname=richard.roeder"
s Attributes=$lb("memberof")
s BaseDN="DC=domain,DC=ad"
s Status=##Class(%SYS.LDAP).SearchExts(LD,BaseDN,$zhex("02"),Filter,Attributes,0,"","",10,50,.SearchResult)
s CurrentEntry=##Class(%SYS.LDAP).FirstEntry(LD,SearchResult)
s ObjectClass=##Class(%SYS.LDAP).GetValues(LD,CurrentEntry,"memberof")
f i=1:1:$ll(ObjectClass) w !!,$lg(ObjectClass,i)_";"