Help Vbs script script to delete AD users, profils and home drives from a file

Hello everyone,
sorry ifmyEnglish is not perfect.

I seekthehelpofavbsscript.

 I would like to delete multipleusersinActive Directory froma TXT filetowhich I have addedthe account  login.

Set objFSO = CreateObject("Scripting.FileSystemObject")
set objListe = objFSO.OpenTextFile("utilisateurs.txt")
Do Until objListe.AtEndOfStream
NomUtilisateur = objListe.Readline
Set MonOU = GetObject("LDAP://ou=test,dc=xxx,dc=lan")
MonOU.Delete "user", "cn=" & NomUtilisateur
Loop

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("chemin vers le profil\"& samaccountname)
objFSO.DeleteFolder("chemin vers le profil TS\"& samaccountname)
objFSO.DeleteFolder("chemin vers le dossier data\"& samaccountname)
loop

thank you

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 d'ouverture de session.

j ai essayé de faire un script en me basant sur plusieurs script via "adsi scriptomatic" et en modifiant quelque variable cela marche mais j aimerai pouvoir l ameliorer.

ci dessous le script

Set objFSO = CreateObject("Scripting.FileSystemObject")

set objListe = objFSO.OpenTextFile("utilisateurs.txt")

DoUntil objListe.AtEndOfStream

NomUtilisateur = objListe.Readline

Set MonOU = GetObject("LDAP://ou=test,dc=xxx,dc=lan")

MonOU.Delete "user", "cn="& NomUtilisateur

Loop

 Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("chemin vers le profil\"& samaccountname)
objFSO.DeleteFolder("chemin vers le profil TS\"& samaccountname)
objFSO.DeleteFolder("chemin vers le dossier data\"& samaccountname)
loop