Diese Hilfsroutine liefert die Werte eines Attributs in einem durch Semikola getrennten String: Codebeispiel für Visual Basic .NET (VB.NET) und CSharp (C#)

Code-Beispiel

Diese Hilfsroutine liefert die Werte eines Attributs in einem durch Semikola getrennten String

Ein Beispiel zum Einsatz der Klasse System.DirectoryServices.DirectoryEntry aus der .NET-Klassenbibliothek.

Beschreibung

Während das Classic-ADSI nur diejenigen Attribute, die mehrwertig sind, als Array zurückliefert, gibt .NET-ADSI immer eine PropertyValueCollection zurück. Dies hat zur Folge, dass auch bei einwertigen Attributen immer explizit das erste Element der Liste angesprochen werden muss.

Während ein Attributzugriff im Classic-ADSI in der Regel so aussah

xy = obj.Attributname

ist also in .NET-ADSI mehr Aufwand nötig:

xy = obj.Properties("Attributname ")(0)

Wenn ein Attribut keinen Wert hat, dann führt der Zugriff auf das Attribut in .NET genauso zu einem Fehler wie in COM-ADSI. Während man dies in COM nur mit der Laufzeitfehlerbehandlung (on error…) abfangen konnte, bietet die FCL nun eine elegantere Möglichkeit über die Abfrage des Attributs Count in der PropertyValueCollection.

obj.Properties("Attributname").Count

Wenn Count den Wert 0 hat, dann besitzt das Attribut keinen Wert.
Bei mehrwertigen Attributen liefert Count die Anzahl der vorhandenen Werte. Auf die einzelnen Werte kann dann über den Index in der PropertyValueCollection zugegriffen werden:

obj.Properties("Attributname")(INDEX)

Die verschiedenen Prüfungsvorgänge beim Auslesen eines Verzeichnisattributs kann man gut in eine Hilfsroutine packen. Die Funktion getAtt() erwartet als Parameter einen Zeiger auf ein DirectoryEntry-Objekt und den Namen eines Attributs. Sie liefert eine Zeichenkette (System.String) mit dem Attributwert zurück. Bei mehrwertigen Attributen werden die Einzelwerte durch ein Semikolon voneinander getrennt.

Programmcodebeispiele Visual Basic .NET (VB.NET)


    ' ### Liefert die Werte eines Attributs In einem durch Semikola getrennten String

Function getAtt(ByVal se As Object, ByVal attributname As String) As String

  Dim werteliste As Object 

  'ResultPropertyValueCollection oder  

  'PropertyValueCollection

  Dim wert As Object ' einzelner Wert

  Dim ergebnis As String ' Rückgabestring



  ' --- Prüfung, ob Attribut vorhanden

  If se.Properties.Contains(attributname) Then

   ' --- Zugriff auf Wertemenge

   werteliste = se.Properties(attributname)

   ' --- Schleife über alle Werte

   For Each wert In werteliste

    ' --- Ergebnis zusammensetzen

    If Len(ergebnis) = 0 Then

     ergebnis = wert

    Else

     ergebnis = ergebnis & ";" & wert

    End If



   Next

  End If

  Return (ergebnis)

End Function

Programmcodebeispiele CSharp (C#)


		using System;

using System.DirectoryServices;



namespace FCLBuch._SystemDirectoryServices {



  public class ADSI_HelperMethods {

public static string GetAtt(object se, string attributname) {



      // Liefert die Wert eines Attributs in einem durch Semikola getrennten String

      PropertyValueCollection werteliste; // PropertyValueCollection

      string ergebnis = String.Empty;   // Rückgabestring



      // se kann DirectoryEntry oder SearchResult sein

      DirectoryEntry de = (se is SearchResult) ? ((SearchResult)se).GetDirectoryEntry() : ((DirectoryEntry)se);



      // Prüfung, ob Attribut vorhanden

      if (de.Properties.Contains(attributname)) {

        // Zugriff auf Wertemenge

        werteliste = de.Properties[attributname];



        // Schleife über alle Werte

        foreach ( object wert in werteliste ) {

          // Ergebnis zusammensetzen

          if (ergebnis.Length == 0)

            ergebnis = wert.ToString();

          else

            ergebnis = ergebnis + ";" + wert.ToString();

        }

      }

      return ergebnis;

    }

  }

}