Az Active Directory használata saját programból

A mellékelt példa futtatása előtt a Form1.vb forráskód 84. sorában lévő sort módosítania kell, annak függvényében, hogy mi az Ön számítógépéről elérhető tartomány neve.

Az Active Directory eléréséhez az LDAP protokollt használjuk. Rendelkezésünkre áll egy DirectoryEntry osztály, melynek segítségével felvehetjük a kapcsolatot az Active Directory-val. Ehhez egy kapcsolódási sztringet kell megadni az osztály konstruktorában. Ez a sztring leírja, hogy pontosan melyik tartományhoz és esetlegesen azon belül melyik objektumhoz szeretnénk kapcsolódni.

   Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
    Dim de As New DirectoryEntry("LDAP://CN=Computers,DC=animare,DC=local")

Az objektum létrejötte után számos property ad tájékoztatatást arról, hogy milyen tulajdonságai vannak az Active Directory objektumnak.

    listBox1.Items.Add(de.Name)
    listBox1.Items.Add(de.Path)
    listBox1.Items.Add(de.SchemaClassName)      

A DirectoryEntry osztályban találunk egy Properties nevű property-t, mely az Active Directory objektum tulajdonságait tárolja. Egy-egy objektumnak tetszőleges számú tulajdonsága lehet, sőt egy-egy tulajdonság is több elemből állhat. Készítünk most egy kettős ciklust, melynek segítségével az összes tulajdonság minden elemén végigmehetünk és megjeleníthetjük azok nevét és a hozzájuk tartozó értéket a Form-on lévő ListBox-ban.

    Dim i As Integer = 1
    Dim s As String
    For Each s In de.Properties.PropertyNames
      listBox1.Items.Add("--------------")
      listBox1.Items.Add((i.ToString() + ". " + s + ":")) 'ToDo: ++ operator not supported within expressions
      i += 1
      Dim o As [Object]
      For Each o In de.Properties(s)
        listBox1.Items.Add(o)
      Next o
    Next s
  End Sub