VBScript : collection et suppression (niveau debutant)

Bonjour à tous,
Je voudrais vous exposer un souci que j'ai en VBS et qui, j'en suis sûr, fera sourire certain.

La demande que j'ai reçu est la suivante :
Je dois supprimer les "profils" inutiles qui prennent de la place sur une machine.

Ce que je voudrai faire :
Faire une listing des comptes dans C:\documents and settings
Mettre le tout dans une "Collection"

Inclure des répertoires à ne pas supprimer comme "All Users" ou "Default users.

Et supprimer tout le reste.

Par avance je vous remercie de votre aide et si vous avez besoin de plus de renseignement j'y répondrai sans souci.

Citation:

Envoyé par Jaydes

Bonjour à tous,
Je voudrais vous exposer un souci que j'ai en VBS et qui, j'en suis sûr, fera sourire certain.
La demande que j'ai reçu est la suivante :
Je dois supprimer les "profils" inutiles qui prennent de la place sur une machine.
Ce que je voudrai faire :
Faire une listing des comptes dans C:\documents and settings
Mettre le tout dans une "Collection"
Inclure des répertoires à ne pas supprimer comme "All Users" ou "Default users.
Et supprimer tout le reste.
Par avance je vous remercie de votre aide et si vous avez besoin de plus de renseignement j'y répondrai sans souci.

Salut voila un petit script pour débuter un peu.
"Supprimer les Dossiers et les Fichiers Vides" qui peut te donner une petite idée pour Continuer ton script
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 '------------Supprimer les Dossiers et les Fichiers Vides-------------- Dim fso, f, f1, fc, ss Set fso = CreateObject("Scripting.FileSystemObject") Set sho = CreateObject( "Wscript.Shell" ) 'basefolder=sho.ExpandEnvironmentStrings("%userprofile%") basefolder="C:\documents and settings" Set f = fso.GetFolder( basefolder ) Set fc = f.SubFolders NomFichierLog="Dossiers_Vides" temp = sho.ExpandEnvironmentStrings("%temp%") Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog & ".txt",1) Msgbox basefolder count=0 'initialisation du compteur des Dossiers vides NBfichier=0 'initialisation du compteur des fichiers vides 'Boucle pour la recherche des Dossiers vides For Each f1 in fc If f1.size = 0 Then count= count + 1 OutPut.WriteLine f1.Path ' Écrire le chemin des Dossiers vides dans Le LogFile f1.delete 'Suppression des dossiers End if Next 'Boucle pour la recherche des fichiers vides For Each Fichier in f.files if Fichier.size = 0 then NBfichier=NBfichier+1 OutPut.WriteLine Fichier.Path ' Écrire le chemin des Fichiers vides dans Le LogFile Fichier.delete 'Suppression des Fichiers end if next Msgbox count& " Dossiers Vides ont été supprimés",64,"Dossiers Vides" Msgbox NBfichier& " Fichiers Vides ont été supprimés",64,"Dossiers Vides" sho.run temp & "\" & NomFichierLog & ".txt" ' Afficher le LogFile et la Collection des Dossiers et Fichiers Vides

Je repasse pour te remercier de ton aide. Encore merci du temps que tu m'as accordé.

++
Jaydes