Discussion :

[djthoz91]

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.

[urcus]

peux etre que ceci pourrais t'aider:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ....

[djthoz91]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[urcus]

En fait si tu regarde bien dans le script:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ) et que le dossier ou se trouve les donnée des user s'appelle DATA sa te donnera un chemin \\SERVER\DATA

[djthoz91]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[urcus]

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