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
               o = New DirectoryEntry(objSearchResult.Path)
               If o.Properties.Contains(type) Then   'The DE contains this 
               ' property
                    o.Properties(type)(0) = data
                Else
                    o.Properties(type).Add(data)
                End If
                o.CommitChanges()
            End If
            Return True
        Catch ex As Exception
            ADError.setFehler(ex)
            Return False
        End Try
 
    End Function