Afficher les contacts de l'Active Directory
Bonjour !
J'aimmerais savoir comment est-il possible d'afficher uniquement les contacts de l'Active Directory en utilisant cette méthode
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
Dim objConnection, objCommand, objRecordset
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") = 40000
objCommand.commandText="select name, sAMAccountType from '"& sChemin & "' where objectCategory='person'"
Set objRecordset=objCommand.execute |
Merci