I want to be able to update attributes of active directory users.

I am using this code to get the user's information. Specifically if the user is active or disabled.

Dim searchAs DirectorySearcher =New DirectorySearcher
search.Filter =String.Format("(SAMAccountName={0})", userName)
search.PropertiesToLoad.Add("givenName")
search.PropertiesToLoad.Add("sn")
search.PropertiesToLoad.Add("userAccountControl")
Dim groupsListAs StringBuilder =New StringBuilder
Dim resultAs SearchResult = search.FindOne
OnErrorGoTo ErrorHandler
sFirstName = result.Properties("givenName").Item(0)
sLastName = result.Properties("sn").Item(0)

If (result.Properties("userAccountControl").Item(0) = 66050)Then
bDisabled =True
Else : bDisabled =False
EndIf

ExitSub

--

How can I get that user again and modify the "userAccountControl" item value to something else and comit the changes.

Any and all help will be greatly apprecited.
Thanks