Discussion :

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

[hackoofr]

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 :

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

[Jaydes]

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

++
Jaydes