suppression de compte AD

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:

---

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 !

Hmmm pourtant les scripts sur le sujet abondent sur internet.

Set objGroup = GetObject ( chemin LDAP du nom du groupe donc LDAP ... cn=nomde groupe, dc =.., dc=...)
objGroup.PutEx 4, "member", Array("cn=" & Login & ", reste du chemin qui conduit jusqu'à l'utilisateur donc les ou qui le contienne et le nom de domaine.)
objGroup.SetInfo