Bonjour,

J'ai un script de suppression de compte AD, en réalité je ne fait que déplacer le compte dans une autre OU, en meme temps, j'aimerais supprimer tous les groupes dont l'utilisateur fait partie (memberOf).

voici à quoi ressemble 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
 
 Const ADS_PROPERTY_DELETE = 4
 Const E_ADS_PROPERTY_NOT_FOUND  = &h8000500D
 
 Set objUser = GetObject ("LDAP://CN=" & strCN & "," & strOUsociete & "," & DomainPath) 
 arrMemberOf = objUser.GetEx("memberOf")
 
 If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
 	WScript.Echo "This account is not a member of any security groups."
 	WScript.Quit
 End If
 
 For Each Group in arrMemberOf
 	Set objGroup = GetObject("LDAP://" & Group) 
 	objGroup.PutEx ADS_PROPERTY_DELETE, _
 		"member", Array("CN=" & strCN)
 	objGroup.SetInfo
 Next
ceci est le bout de code qui permet normalement la suppression des groupe, mais j'ai une erreur vbs : "Le serveur ne souhaite pas traiter la requête"

C'est assez urgent, merci de votre aide !

Merci bcp !