Discussion :

[stevenhab]

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 !

[xrorox]

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