How to Enable New AD Account

esnmb

Member
Joined
Jul 12, 2005
Messages
15
Programming Experience
Beginner
I've searched the Net for two days now and can't get any of the solutions to work. This is what I have so far:

Const ADS_UF_ACCOUNTDISABLE = &H2

Dim lngFlag As String = lngFlag Xor ADS_UF_ACCOUNTDISABLE

usr.Properties("userAccountControl").Value = lngFlag

usr.CommitChanges()

 
Back
Top