Discussion :

[patmarti31]

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

[ponpon17430]

Il faut d'abord que tu crées le compte avec le setinfo

Et ensuite il faut le réactiver et donner le pass que tu veux car tu ne peux créer un compte et donner le mot de passe en une seule fois.

Voici un code pour créer un compte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
'Création de compte utilisateur
 
Dim logFile
Dim objfso
Dim LastName
Dim FirstName
Dim Displayname
Dim sAMAccountName
Dim UserPrincipalName
Dim objUser
 
Set objfso = CreateObject("Scripting.FileSystemObject" )
 
If objfso.FileExists("C:\ZZZZZZZZ" ) Then	'Chemin pour la création d'un fichier de log
Set logFile = objfso.GetFile("C:\ZZZZZZZ.txt")	'Chemin pour la création d'un fichier de log
logFile.delete
End if
 
LastName = "PRENOM" 'A remplacer
FirstName = "NOM"	'A remplacer
Displayname = FirstName & " " & LastName
 
sAMAccountName = "LOGIN" 'A remplacer
UserPrincipalName = sAMAccountName &"@DOMAIN.local"
 
'===================================
'création du compte sur l'AD
'===================================
 
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://OU=TTTTT") 'Indiquer l'OU ou le compte doit être créé
Set objUser = objContainer.Create("user", "cn=" & Displayname)
 
objUser.Put "sAMAccountName", sAMAccountName
objUser.put "UserPrincipalName", UserPrincipalName
objUser.Displayname = Displayname
objUser.givenname = FirstName
objUser.sn = LastName
on error resume next
objUser.SetInfo
 
'Création d'un fichier de log si le login existe déjà.
If err.number <> 0 then
	Set logFile = objfso.OpenTextFile("C:\ZZZZZZZ", 8,true) 'Chemin pour la création d'un fichier de log
	logFile.write sAMAccountName & vbCrLf
	logFile.close
End if
 
objUser.SetPassword "MotDePasse" 'Password lors de la première connexion.
objUser.AccountDisabled = false
objUser.SetInfo
 
'===================================

Après il faut juste que tu trouves la fonction pour que le passe n'expire pas etc.