Bonour,
J'ai une creation de compte dans AD a faire, rien de plus simple me direz vous:
Alors voila Je souhaite que ces comptes soit activer, le mot de passe n'expire pas, et le compte n'expire pas non plus.
Voici donc les paramétre que j'utilise
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Const ADS_UF_PASSWD_CANT_CHANGE = 64 Const ADS_UF_DONT_EXPIRE_PASSWD = 65536 Control = ADS_UF_DONT_EXPIRE_PASSWD + ADS_UF_PASSWD_CANT_CHANGE objUser.userAccountControl= Control objUser.AccountDisabled = False objUser.SetPassword password 'let user change it later objuser.description = description ' User must change password at next logon objUser.Put "pwdLastSet", 0 objUser.SetInfo
Si on fait cela le code fonctionne le compte est activer, le mot de passe est à changer et le compte expire a la date voulu.
objUser.AccountExpirationDate = estrExpirDate
objUser.AccountDisabled = False
objUser.SetPassword password 'let user change it later
objuser.description = description
' User must change password at next logon
objUser.Put "pwdLastSet", 0
objUser.SetInfo
Merci d'avance
Partager