Hi,
i've written some code that changes the user information (eg givenname, sn,
department, ...) from a user in AD. The code runs without an error/exception.
The only annoying thing is that the changes aren't executed. here is my code :
Dim deEntry As New DirectoryEntry
deEntry.Path = "LDAP://myDomainControl ler"
Dim dsSearch As New DirectorySearch er(deEntry)
dsSearch.Filter = "(&(objectClass =user)(samaccou ntname=" & strLogin
& "*))"
Dim entry As DirectoryEntry = dsSearch.FindOn e.GetDirectoryE ntry
With entry
.Properties("sn ").Value = nieuweMdw.achte rnaam
.Properties("gi venname").Value = nieuweMdw.voorn aam
.Properties("de partment").Valu e = nieuweMdw.afdel ing
.Properties("ti tle").Value = nieuweMdw.funct ie
.Properties("co mpany").Value = nieuweMdw.firma
.Properties("ma il").Value = nieuweMdw.email
.Properties("te lephonenumber") .Value = nieuweMdw.telnr
End With
entry.Authentic ationType = AuthenticationT ypes.Secure
entry.CommitCha nges()
entry.RefreshCa che()
entry.Close()
does anyone see my problem? Thx!