<%Dim Domaine
Dim Ordinateur
Set Domaine = getobject("WinNT://MonDomaine")
Domaine.Filter = Array("Computer")%>
<%for each Ordinateur in Domaine
Nom = Ordinateur.Name
Description = Ordinateur.Description%>
----
<%=Nom%>,
----
<%=Description%>,
<%next%>
<%Set Domaine = Nothing%>
</HTML>
Et ca plante à la ligne :
Description = Ordinateur.Description
En me générant une erreur de type :
Active Directory error '8000500d'
La propriété répertoire n'est pas présente dans le cache
Voilà ... Le truc c'est que ca marche pour la plupart des autre propriétés que l'on pourrait mettre mais pas pour la description...
Et moi c'est ce champ que je veux !!!
Bal1n
Messages postés43Date d'inscriptionjeudi 6 mai 2004StatutMembreDernière intervention17 septembre 20081 18 oct. 2005 à 18:10
Bon bah en fait j'ai trouvé ;)
Ma démarche pour trouver :
Installer ADSIEDIT.msc qui vous permet d'avoir tout les chemins LDAP de vos objet active directory.
Ensuite j'ai repéré le chemin LDAP de l'objet qui chez nous contenait tout les ordis et voilà .
!!! Attention généraleemnt les AD sont organiser par unité d'organisation (genre Compta avec dedans liste des users et liste des pc appartenant a la compta) Chez nous c'est un peu spécial on a mis tout les pc dans une UO à part qui s'appelle computers ;)
Voilà le code pour moi : (qui me liste les ordi + la description des ordi)
Set Domaine = GetObject("LDAP://serveurDNS.mondomaine.fr/CN=Computers,DC=mondomaine,DC=fr")
For Each ordi In Parcinfo
MsgBox ordi.name & " " & ordi.Description
Next
Si vous avez des pc éparpillé dans plusieurs UO alors il vous faut prendre le chemin LDAP le plus haut puis filtrer sur les objet de type Computer. Comme ca :
Set ToutAD = GetObject("LDAP://serveurDNS.mondomaine.fr/DC=mondomaine,DC=fr")
For Each OU In ToutAD
Set ordinateurs = GetObject("LDAP://srvfichiers.mont-blanc.local/" & OU.Name & ",DC=mont-blanc,DC=local")
For Each ordi In ordinateurs
If ordi.Class = "computer" Then
MsgBox ordi.Name
End If
Next
Next
!!!! Notez que pour que ca fonctionne sur votre environnement il vous faudra trouver votre bon chemin LDAP grace a ADSIEDIT!!!
Perso j'ai trouvé les infos dans msdn 2001.
Le topic s'appelle "Easy Access to Active Directory using ADSI"
LOL => J'aime bien le nom des topic chez microsoft