1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Properties("User ID")= "MonDomaine/UserName
objConnection.Properties("Password")= "Password"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
sql = "SELECT ADsPath, Name "
sql = sql & "FROM 'LDAP://MonDomaine/OU=XXX,OU=PF,OU=Groupes Droits,OU=XXX,OU=yyyyy,DC=MonDomaine,DC=zzz,DC=eee' "
sql = sql & "WHERE objectCategory = 'group' "
objCommand.CommandText = sql
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
MsgBox objRecordSet.fields(0).value
objRecordSet.MoveNext
Loop |
Partager