DriX von Siemens auslesen

[tannepa]

Hallo
Ich suche ein Beispiel wie ich das DriX von Siemens auslesen kann.

Das AD funktioniert super, beim DriX kommt es bei der Zeile For Each objValue In newDE.Properties(strAttrName) zum Fehler

Dim sRet As New StringBuilder

Dim deGlobal As DirectoryEntry = New DirectoryEntry("LDAP://Servername/OU=Prod,DC=xxx,DC=xxxx,DC=net")
Dim ds As DirectorySearcher = New DirectorySearcher(deGlobal)

ds.Filter = "(sAMAccountName=" + sLogin + ")"
ds.SearchScope = DirectoryServices.SearchScope.Subtree

For Each SearchResult As SearchResult In ds.FindAll
Dim newDE As DirectoryEntry = New DirectoryEntry(SearchResult.Path)


Dim strAttrName As String
Dim objValue As Object
For Each strAttrName In newDE.Properties.PropertyNames
For Each objValue In newDE.Properties(strAttrName)
Debug.Print(strAttrName & " : " & objValue.ToString)

Next objValue
Next strAttrName

Next

[Christian Marquardt]

Was für ein Fehler? Schon mal debuggt? Vermutlich ist strAttrName nicht belegt