Bonjour,
J'ai écris un script qui crée des comptes utilisatuers dans l'AD mais les comptes sont toujours désactivés. Quelqu'un pourra me dire ce que je dois faire pour que les comptes soient actifs. Et aussi, je voudrai y ajouter des lecteurs réseaux aux comptes créés comment dois-je faire. Merci de votre aide. Voici la fonction qui crée les comptes dans mon script.


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
Private Sub trtCre()
' fonction de creation d un user (hors MMACONSEIL, BSI ou inspecteur)
 
 	On Error Resume Next
	Set objet = domain.GetObject("organizationalUnit", RechDN)
	If Err.Number Then
		wscript.echo "!!! Pb trt creation : PB connexion  " & RechDN  & " (" & Err.Number & ")"
		Exit Sub
	Else
		Set ouUser = objet.Create("user", CN_User)
		If Err.Number Then
			wscript.echo "!!! Pb1 a la creation user " & Badge_Lu  & " (" & Err.Number & ")"
			Exit Sub
		Else
			ouUser.put "sAMAccountName" , Badge_Lu 
			If Err.Number Then
				wscript.echo "!!! Pb2 a la creation user " & Badge_Lu  & " (" & Err.Number & ") pb put sAMAccountName"
				Exit Sub
			Else
				ouUser.setinfo
				If Err.Number Then
					wscript.echo "!!! Pb3 a la creation user " & Badge_Lu  & " (" & Err.Number & ") pb put sAMAccountName"
					Exit Sub
				Else
					RechDN = ouUser.get("distinguishedName") 
					Pos_Fin_DN = Instr (RechDN, ",DC")
					RechDN = Left(RechDN, Pos_Fin_DN - 1)
					AttrTech()
				End If
			End If
		End If
	End If
End Sub
La fonction AttrTech est une fonction de mise à jour des attributs.

Merci de votre aide.