Active DS suite et début de solution

Bonjour,
Comme je le disais dans un précédent post, je cherche à mieux maitriser la lecture de l'annuaire active directory.
Pour ce faire, j'ai bien coché active DS dans mes référence et en utilisant le bout de code ci dessous (trouvé surMSDN), j'obtiens
mes premiers résultats.

Premièr soucis, dans ce que je cherche à faire:
ça s'affiche dans une liste.
J'aimerais pouvoir remplir une table. (ID, computerName)

dans un deuxieme temps, je voudrais pouvoir remplir une ligne complete, par exemple, en ajoutant l'UO dans laquelle se trouve les
pc.

Merci pour vos pistes

Frederic



Dim Domaine As IADsDomain
Dim Ordinateur As IADsComputer
Dim Mgrp As IADsGroup
Dim Muser As IADsUser
Dim strDomaine As String
Dim Mcontain As IADsMembers

Dim iPointeurSouris As Integer

'Accepter le nom de domaine
strDomaine = InputBox("Nom de Domaine : ")
' strDomaine = "matloc"
'Utiliser les services d'annuaire WinNT
strDomaine = "WinNT://" & "strDomaine"

'Initialiser l'interface utilisateur
List1.RowSource = "" ' vide la liste avant de remplir avec la demande qui suit
'iPointeurSouris = Me.MousePointer
'Me.MousePointer = vbHourglass

'Créer l'objet Domaine
Set Domaine = GetObject(strDomaine)

'Rechercher les ordinateurs dans le domaine
Domaine.Filter = Array("group")

For Each Mgrp In Domaine
List1.AddItem Mgrp.Name
Next Mgrp

'Nettoyer
'iPointeurSouris = Me.MousePointer
Set Ordinateur = Nothing
Set Domaine = Nothing

End Sub 'Command1_Click

Bonjour,

je n'ai pas pu tester car le code ne voit rien en VPN et je n'aurai la
possibilité de me raccorder au domaine de ma boîte qu'au mois d'août...
Néanmoins, dans la boucle

For Each Mgrp In Domaine
List1.AddItem Mgrp.Name
Next Mgrp

tu peux remplacer List1.AddItem par

CurrentDb.Execute "INSERT INTO TaTable(computerName) VALUES ('" &
Mgrp.Name & "') ;"


--
Arnaud
-----------------------------------------
Vous êtes novice ? :
http://www.mpfa.info
-----------------------------------------


"fth" <infosSPAM?@matloc.be> a écrit dans le message de news:
ezPq9egoGHA.1600@TK2MSFTNGP04.phx.gbl...

Bonjour,
Comme je le disais dans un précédent post, je cherche à mieux maitriser
la lecture de l'annuaire active directory.
Pour ce faire, j'ai bien coché active DS dans mes référence et en
utilisant le bout de code ci dessous (trouvé surMSDN), j'obtiens mes
premiers résultats.

Premièr soucis, dans ce que je cherche à faire:
ça s'affiche dans une liste.
J'aimerais pouvoir remplir une table. (ID, computerName)

dans un deuxieme temps, je voudrais pouvoir remplir une ligne complete,
par exemple, en ajoutant l'UO dans laquelle se trouve les pc.

Merci pour vos pistes

Frederic



Dim Domaine As IADsDomain
Dim Ordinateur As IADsComputer
Dim Mgrp As IADsGroup
Dim Muser As IADsUser
Dim strDomaine As String
Dim Mcontain As IADsMembers

Dim iPointeurSouris As Integer

'Accepter le nom de domaine
strDomaine = InputBox("Nom de Domaine : ")
' strDomaine = "matloc"
'Utiliser les services d'annuaire WinNT
strDomaine = "WinNT://" & "strDomaine"

'Initialiser l'interface utilisateur
List1.RowSource = "" ' vide la liste avant de remplir avec la
demande qui suit
'iPointeurSouris = Me.MousePointer
'Me.MousePointer = vbHourglass

'Créer l'objet Domaine
Set Domaine = GetObject(strDomaine)

'Rechercher les ordinateurs dans le domaine
Domaine.Filter = Array("group")

For Each Mgrp In Domaine
List1.AddItem Mgrp.Name
Next Mgrp

'Nettoyer
'iPointeurSouris = Me.MousePointer
Set Ordinateur = Nothing
Set Domaine = Nothing

End Sub 'Command1_Click

...heuuu, accro au forum même en vacances? ;-)