Bonjour !

J'aimmerais savoir comment est-il possible d'afficher uniquement les contacts de l'Active Directory en utilisant cette méthode
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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