bonjour a tous,
je cherche de l aide sur un script vbs.
j aimerai pouvoir faire une suppression en masse d utilisateurs dans l active directory a partir d un fichier TXT dans lequel j ai rajouté le login ouverture de session.
j ai essayé de faire un script en me basant sur plusieurs script via "adsi scriptomatic" et en modifiant quelque variable mais sa ne marche pas.
ci dessous le script
merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Set objFSO = CreateObject("Scripting.FileSystemObject") set objListe = objFSO.OpenTextFile("utilisateurs.txt") Set MonOU = GetObject("LDAP://ou=test,dc=xxxx,dc=xxx") Do Until objListe.AtEndOfStream NomUtilisateur = objListe.Readline set MonUtilisateur = MonOU.Delete("user" , "cn =" & NomUtilisateur) MonUtilisateur.put "sAMAccountName" , NomUtilisateur MonUtilisateur.SetInfo Loop
Partager