Hi guys
I have been unable to set up the company property of a user using the dot 3.5 way. Here is the bit of code I use :
Dim u As New UserPrincipal(SharedObjects.PrincipalContext)
u.Surname = ln
u.SamAccountName = login
u.EmailAddress = email
u.Name = ln
u.DisplayName = fn & " " & ln
u.Enabled = True
Dim context As PrincipalContext = New PrincipalContext(ContextType.Domain, SharedObjects.LDAPName(), "OU=Users,OU=" & My.Settings.OUName & "," & SharedObjects.LDAP_DomainName(), SharedObjects.UserLogin(), SharedObjects.UserPassword())
u.Save(context)
'THIS IS THE TRICK! Dim de As DirectoryEntry
de = DirectCast(u.GetUnderlyingObject(), DirectoryEntry)
de.Properties("Company").Value = entity
de.CommitChanges()
|
Actually I am creatinf a user (using UserPrincipal, principalContext, etc) but if I want to set up the company name for this user, the only way I found to archive this is using the old 2.0 way with DirectoryEntry. IT WORKS but I don't like it.
Is there a better way to do that ?
cheers mates
Michael LibenPosted Feb 27, 2010, 8:01 AM