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
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
Comment