Public Function changePropertie(ByVal lanUser As String, ByVal type As String, _
   ByVal data As String) As Boolean
 
        Try
            objEntry = New DirectoryEntry(adServer, user, password)
            objSearcher = New DirectorySearcher(objEntry)
            objSearcher.Filter = "(&(objectClass=user)(cn=" & lanUser & "))"
            objSearchResult = objSearcher.FindOne
 
            If objSearchResult.Properties.Values.Count > 0 Then
 
                Dim o As DirectoryEntry
                ' --- Zugriff auf Eintrag
                o = New DirectoryEntry(objSearchResult.Path)
                o.CommitChanges()
            End If
            Return True
        Catch ex As Exception
            ADError.setFehler(ex)
            Return False
        End Try
 
    End Function

System.UnauthorizedAccessException: Allgemeiner "Zugriff verweigert"-Fehler
 
   bei System.DirectoryServices.Interop.UnsafeNativeMethods.IAds.SetInfo()
   bei System.DirectoryServices.DirectoryEntry.CommitChanges()
   bei NBAD.ADDAL.changePropertie(String lanUser, String type, String data) in _
     D:\VB.net\ADImport\NBAD\DAL.vb:Zeile 191