AD_User.Put "FullName", txt
AD_User.Put "Description", txt
'AD_User.AccountDisabled = IIf(Check1.Value = 1, True, False)
'AD_User.IsAccountLocked = IIf(Check2.Value = 1, True, False)
AD_User.Put "HomeDirectory", IIf(Text7.Text <> "", Text7.Text, vbNullString)
AD_User.Put "LoginScript", IIf(Text8.Text <> "", Text8.Text, vbNullString)
AD_User.Put "MaxStorage", CInt(Text10.Text)
AD_User.Put "Profile", IIf(Text9.Text <> "", Text9.Text, vbNullString)
AD_User.Put "userFlags", ADS_UF_PASSWD_CANT_CHANGE AD_User.Put "PasswordExpired", CLng(0)
AD_User.SetInfo
и все на .SetInfo вылетает ошибка "Automation Error"
Права администраторские, соответственно могу делать все,
причем при обновлении свойств старого пользователя все нормально работает
