Discussion :

[Julien.alkaza]

Bonjour,

Ca fait un moment que je bloque sur ce problème :

J'ai un AD 2003 avec plus de 450 users. Tous situés dans des sous OU d'une OU appelée INTERNE.

J'ai un fichier Excel avec les personnes de la société (et toutes les infos qui vont bien, et surtout le DN complet et le samaccountname de l'utilisateur).

Ce que j'aimerai, c'est arriver à requêter l'AD pour trouver l'utilisateur correspondant à ma ligne Excel et pouvoir le modifier avec les fonctions de l'objet IADsUser (Put puis SetInfo).

J'ai lu beaucoup de codes, d'articles...Mais j'arrive pas bien à comprendre comment il faut faire....

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
16
17
18
19
20
21
22
Sub ListUsers()
 
Dim sam As String
 
sam = "unsamaccountname"
 
Dim oUser As IADsUser
Dim oOU As IADsOU
Dim DomainContainer
Set rootDSE = GetObject("LDAP://RootDSE")
DomainContainer = rootDSE.Get("defaultNamingContext")
Set oOU = GetObject("LDAP://OU=yyy,OU=FR,OU=xxx,OU=INTERNE,OU=Domain_users,DC=societe,DC=COM")
 
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADSDSOObject"
conn.Open "ADs Provider"
 
Rem Ici il faudrait faire une requête LDAP, mais je ne sais pas comment récupérer l'objet IADsUser par la suite.    
 
 
End Sub

Un GRAND merci d'avance!

Julien

[Julien.alkaza]

Je me réponds à moi même...
J'ai trouvé, sur ActiveXeperts Software des exemples...

Il fallait pas aller bien loin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set objUser = GetObject _
  ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")

Sert à récupérer l'objet selon le DN!
Et oui, comme quoi, c'est pas bien compliqué!!!!!

Après ca, l'objet user est modifiable...

Merci quand même!

Julien