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()
Const ADS_UF_ACCOUNTDISABLE = &H2
Dim lngFlag As String = lngFlag Xor ADS_UF_ACCOUNTDISABLE
usr.Properties("userAccountControl").Value = lngFlag
usr.CommitChanges()