Script vbs suppression users AD a partir d un fichier

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:

---

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.

peux etre que ceci pourrais t'aider:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

const lect=1 const ecriture=2 const ajout=8 Const ADS_PROPERTY_APPEND = 3   set objFSO = createObject("scripting.fileSystemobject") Set objListe = objFSO.Opentextfile("G:\liste.csv") 'chemin vers ton fichier contenant ta liste   Do until ObjListe.AtEndOfStream Ligne = ObjListe.ReadLine champs = split(ligne,";") Nom=champs(0) samaccountname=champs(1) UO=champs(2)   set objOU = GetObject("LDAP://ou=" & UO &",dc=gtek,dc=local") objOU.Delete "user", "cn= " & samaccountname   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

---

mais attention je n'est pas integrer de demande de verification ....

Merci beaucoups pour ton aide.
grâce a ton script j ai pu voir mes erreurs et j ai donc modifié mon script et maintenant il fonctionne mais j aimerai l amélioré.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

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

---

j ai testé ton script car la suppression du profils + partage est intéressant mais ne fonctionne pas sur mon DC qui me sert de test.
faut il renseigner l'adresse du serveur ou se trouve le partage dans le script ?

Code:

---

1 2 3 4 5

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

---

autre question j ai plusieurs OU dans lesquelles se trouvent les utilisateurs.
Comment faire pour que le script s exécute sur l ensemble des OU ou du domaine ?

merci d'avance pour votre aide

En fait si tu regarde bien dans le script:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

const lect=1 const ecriture=2 const ajout=8 Const ADS_PROPERTY_APPEND = 3   set objFSO = createObject("scripting.fileSystemobject") Set objListe = objFSO.Opentextfile("G:\liste.csv") 'chemin vers ton fichier contenant ta liste   Do until ObjListe.AtEndOfStream Ligne = ObjListe.ReadLine champs = split(ligne,";") Nom=champs(0) samaccountname=champs(1) UO=champs(2)

---

que je t'est écris que j'ai rajouter un champs uo dans mes splits. Donc tu dois rajouter comme information dans ton fichier texte de sorte a se qu'il ressemble a:

gerard;gdupond;administration
albert;adaya;comptabiliter

donc le script va venir lire champs le nom, le samaccountname et l'uo de la personne
puis pour chaque personne il va se connecter a l'uo et le supprimer (le user).
Par contre si tu veux aussi supprimer les uo il faudra rajouter des lignes de codes suivante en dehors de ta premiere boucle:

Code:

---

1 2 3 4 5 6 7 8 9

set objOU = GetObject("LDAP://ou=" & UO &",dc=gtek,dc=local") objOU.Delete "user", "cn= " & samaccountname Do until ObjListe.AtEndOfStream Ligne = ObjListe.ReadLine UO=champs(2) Set MonDC = GetObject("LDAP://dc=xxx,dc=lan") MonDC.Delete "ou", "ou=" & UO loop

---

Pour se qui est de la suppression des données :

Code:

---

1 2 3 4 5

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

---

tu remplace "chemin vers le dossier data\" par le chemin par exemple si ton serveur s'apppelle SERVER (originale hein :lol: ) et que le dossier ou se trouve les donnée des user s'appelle DATA sa te donnera un chemin \\SERVER\DATA

Merci pour ton aide mais j aimerai en faite si cela est possible que le script va lire les information sur le compte de l user dans AD et en regardant les champs ci dessous

Code:

---

1 2 3 4 5

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

---

il supprime automatiquement les donnés sur le partage sans que j ai besoin de les rajouter sur le script.
Cette semaine j ai supprimé les 500 comptes avec le 1er script mais j ai du supprimer manuellement en me connectant sur les différents serveurs (environ 60) leurs donnés.

En fait si je comprend bien se que tu veux c'est que le script aille chercher dans l'ad la localisation des données de tel utilisateur et que grace à sa apres sa aille supprimer les dossiers :question: