[resolu] petit batch suppression contenu OU

petit batch suppression contenu OU [resolu] - Infrastructures serveurs - Systèmes & Réseaux Pro

Marsh Posté le 10-08-2011 à 11:28:52    

Bonjour à tous,
 
voilà je suis à la recherche d'un p'tit batch qui permettrai de supprimer tous les contacts présents dans l'OU "Contacts"
 
l'objectif étant de le planifier :)  
 
j'ai demandé mon pote google mais il ne me propose que de supprimer l'OU.
 
quelqu'un aurait ca dans un tiroir?
 
un grand merci d'avance :)
 
 
 
 
 
[EDIT: ortho :p ]


Message édité par amo31 le 12-08-2011 à 11:48:29
Reply

Marsh Posté le 10-08-2011 à 11:28:52   

Reply

Marsh Posté le 10-08-2011 à 12:04:56    

je precise que seuls les contacts doivent être supprimés. pas les autres objets présents (groupes de distrib.,...)

Reply

Marsh Posté le 10-08-2011 à 12:55:36    

code le et propose si tu as des problèmes pour qu'on t'aide mais le but du forum c'est pas de faire le boulot à ta place non plus

Reply

Marsh Posté le 10-08-2011 à 14:15:27    

Tranquille Je@nb  :)  
 
l'idée était juste que si qq'un l'avait dans un coin de son pc et qu'il voulait bien le partager...je demande pas une presta gratuite ;)


Message édité par amo31 le 10-08-2011 à 14:15:41
Reply

Marsh Posté le 10-08-2011 à 20:51:47    

Un petit indice quand meme : avec les commandes DSRM et DSQUERY...

Reply

Marsh Posté le 11-08-2011 à 16:39:33    

merci de l'info.
 
pour ceux que ca pourrait interesser je suis finallement passé par du VB.
 

Code :
  1. Option Explicit
  2. Dim objOU, objUser, objRootDSE, strCN
  3. Dim strContainer, strDescription, strObject, strDNSDomain
  4. Set objRootDSE = GetObject("LDAP://RootDSE" )
  5. strDNSDomain = objRootDSE.Get("DefaultNamingContext" )
  6. strObject = "contact"
  7. strContainer = strContainer & strDNSDomain
  8. strContainer="OU=Contacts, "
  9. set objOU =GetObject("LDAP://" & strContainer)
  10. For each objUser in objOU
  11.    If objUser.class= strObject then
  12.        ' The heart of this script - delete contact
  13.        strCN = "CN=" & objUser.cn
  14.        objOU.delete strObject, strCN
  15.    WScript.Echo objUser.cn
  16.    End if
  17. next
  18. set objOU = Nothing
  19. ' End of VBScript


Message édité par amo31 le 11-08-2011 à 16:40:50
Reply

Marsh Posté le 12-08-2011 à 11:30:08    

Ouais faudra juste le modifier pour envoyer le résultat dans un fichier de log à la place du wscript.echo qui va faire poper des fenêtres ;)
Si t'en delete 1000 par 1000 tu vas morfler :D

Message cité 1 fois

---------------
The only thing necessary for the triumph of evil is for good people to do nothing.
Reply

Marsh Posté le 12-08-2011 à 11:38:17    

CK Ze CaRiBoO a écrit :

Ouais faudra juste le modifier pour envoyer le résultat dans un fichier de log à la place du wscript.echo qui va faire poper des fenêtres ;)
Si t'en delete 1000 par 1000 tu vas morfler :D


 
vi la premiere fois j'ai eu droit à 1300 popups :cry:  
maintenant je le lance avec cscript. heureusement :whistle:


Message édité par amo31 le 12-08-2011 à 11:39:13
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed