Description Ordinateur Active Directory

J'essais de récupérer la description de l'ordinateur depuis Active Directory. Je suis capable de récupéréer d'autres information mais la description ca ne fonctionne pas.

Voici un petit bout de mon code:




Set Domaine = GetObject(FormADOrdinateurs.strDomaine)

For Each Ordinateurs In Domaine
    If Ordinateurs.Name = ListOrdinateurs.Text Then
        MSHFlexGrid1.AddItem ""
        MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1 
        MSHFlexGrid1.Col = 0
        MSHFlexGrid1.Text = Ordinateurs.Name
        MSHFlexGrid1.Col = 1
        'ICI TROUVER COMMENT RÉCUPÉRER LA DESCRIPTION DE L'ORDINATEUR
        'MSHFlexGrid1.Text = Ordinateurs.Description
        MSHFlexGrid1.Col = 0
        MSHFlexGrid1.Sort = flexSortStringAscending

        Exit Sub
    End If
Next Ordinateurs


Merci  beaucoup !

BiduleX

Voici la solution (enfin UNE solution, il en existe sûrement d'autres...) :

Dim dso, obj
Dim Username, Password, IPofDC As String

IPofDC = "192.168.1.2"

Set dso = GetObject("LDAP:")
Set obj = GetObject("LDAP://" & IPofDC & "/OU=Computers,DC=VotreDomaine,DC=com")

For Each computer In obj
   If computer.Class = "computer" Then
      MsgBox computer.Description
   End If
Next

Avec LDAP on peut aussi accéder à toutes les propriétés non accessibles avec WINT :
(liste non exhaustive)

cn
name
dNSHostname
isCriticalSystemObject
DisplayName
Description
localPolicyFlags
userAccountControl
OperatingSystem
operatingSystemHotfix
operatingSystemServicePack
OperatingSystemVersion
physicalLocationObject
rIDSetReferences
volumeCount
sAMAccountName
...........