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

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
merci pour votre aide.