[VBS][RESOLU][SCRIPT]Script de suppression de fichiers temporaires

Marsh Posté le 17-06-2009 à 10:37:01

Bonjour,

J'ai créé un script pour dégager des fichiers temporaires du disque c:\ et ainsi gagner de la place de manière automatique.

MERCI à : magicbuzz

Le code fonctionne de la manière suivante :

Création d'un cmdline.bat à la racine de c:\
Si c:\temp existe, alors on rajoute au .bat une ligne de suppression pour le contenu du répertoire
si c:\tmp existe, alors on rajoute au .bat une ligne de suppression pour le contenu du répertoire
si c:\%windir%\temp existe, alors on rajoute au .bat une ligne de suppression pour le contenu du répertoire
Pour chaque répertoire de KBwindows ($xxxx$) contenu dans %windir%, si son ancienneté est de plus de 2 mois, alors on rajoute au .bat une ligne de suppression pour le répertoire et son contenu
Pour chaque repertoire de c:\documents and settings\, si le répertoire "c:\documents and settings\repertoire\local settings\temp" existe, alors on rajoute au .bat une ligne de suppression pour le contenu du répertoire
on ferme le cmdline.bat
on quitte le script en exécutant cmdline.bat

Voici le code :

Code :

'-------------------------------------------------------------------------
' SCRIPT DE SUPPRESSION DE FICHIERS TEMPORAIRES
' AUTEUR : nixnbk
'-------------------------------------------------------------------------
 
'-------------------------------------------------------------------------
' DECLARATION DES VARIABLES
'-------------------------------------------------------------------------
dim CmdLine, folder,fdocuments
dim WINDIR
 
Set WshShell = WScript.CreateObject("WScript.Shell" )
WINDIR = WshShell.ExpandEnvironmentStrings("%WinDir%" )
 
Set fso = CreateObject("Scripting.FileSystemObject" )
Set MyFile = fso.CreateTextFile("c:\CmdLine.bat" , True)
 
 
'-------------------------------------------------------------------------
' SUPPRESSION pour C:\TEMP
'-------------------------------------------------------------------------
folder = "c:\temp"
if fso.FolderExists(folder) then
    CmdLine = "del " & folder & "\*.* /Q /F /S"
    MyFile.WriteLine(CmdLine)
end if
 
'-------------------------------------------------------------------------
' SUPPRESSION pour C:\TMP
'-------------------------------------------------------------------------
folder = "c:\tmp"
 
if fso.FolderExists(folder) then
    CmdLine = "del " & folder & "\*.* /Q /F /S"
    MyFile.WriteLine(CmdLine)
end if
 
'-------------------------------------------------------------------------
' SUPPRESSION pour %WINDIR%\TEMP
'-------------------------------------------------------------------------
folder = WINDIR & "\temp"
 
if fso.FolderExists(folder) then
    CmdLine = "del " & folder & "\*.* /Q /F /S"
    MyFile.WriteLine(CmdLine)
end if
 
'----------------------------------------------------------------------------------
' SUPPRESSION pour %WINDIR%\$xxx$ (KB WINDOWS) si plus vieux que 2 mois (60 jours)
'----------------------------------------------------------------------------------
if fso.FolderExists(WINDIR) then
    For Each folder in fso.GetFolder(WINDIR).SubFolders
        If Len(folder.Name) > 2 and Right(folder.Name, 1) = "$" and Left(folder.Name, 1) = "$" and folder.DateLastModified < DateAdd("d", -60, Now()) Then
            CmdLine = "rmdir " & folder & " /S /Q"
            MyFile.WriteLine(CmdLine)
        End If
   Next
End if
 
'-------------------------------------------------------------------------
' SUPPRESSION pour C:\DOCUMENTS AND SETTINGS\%USER%\LOCAL SETTINGS\TEMP
'-------------------------------------------------------------------------
fdocuments = "c:\documents and settings\"
if fso.FolderExists(fdocuments) then
    For Each folder in fso.GetFolder(fdocuments).SubFolders
        folder = folder & "\Local Settings\temp"
        if fso.FolderExists(folder) then
            CmdLine = "del """ & folder & "\*.*"" /Q /F /S"
            MyFile.WriteLine(CmdLine)
        end if
    next
end if
 
 
'-------------------------------------------------------------------------
' FIN SCRIPT ET EXECUTION DU FICHIER BAT
'-------------------------------------------------------------------------
MyFile.Close
Set MyFile = Nothing
Set fso = Nothing
Return = WshShell.Run ("c:\CmdLine.bat",10,TRUE)

Je mets ici le message original :
-----------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------
Bonjour,

Je suis en train de tenter de réaliser un script VBS pour supprimer des répertoires selon une date d'ancienneté.

Globalement le script est OK, sauf qu'on ma demandé de supprimer des répertoires présents dans %windir% et donc ça devient vachement sensible.

En gros je voudrais tester et supprimer tous les répertoires %windir%\$*$
(exemple : $hfmig$ $ntuninstallKB123456$ etc.)
Je peux pas nommer les KB à la main, parce que y'en a trop et que c'est trop long.
Et apparemment le répertoire %windir%\$*$ ça fonctionne pas.
(je stocke dans un array le string : %windir%\$*$)

J'ai fait des tests sous le cmd, ça fonctionne avec la commande dir (dir %windir%\$*$)

Ma question est donc : comment je peux stocker dans un array chaque ligne de résultat de mon dir ?

Une idée ?

Je fais également mes recherches de mon coté.
Quand j'aurai résolu mon problème je ferai un tuto en premier post.

Bonne journée,

Nix.

Message édité par nixnbk le 18-06-2009 à 10:53:07

---------------
I'll feed your skin snacks to my cockatiel!

Reply

Marsh Posté le 17-06-2009 à 10:37:01

Reply

Marsh Posté le 17-06-2009 à 11:42:16

Bon comme j'arrive pas à récupérer directement depuis le shell, je me suis orienté sur quelque chose de plus simple :

en gros depuis mon vbs, j'éxécute la commande dir et la stocke dans un fichier de résultats :
dir %windir%\$*$ /A:h /B > d:\scripts\recupdir.txt

l'argument /A:h affiche les éléments cachés, et /B donne des résultats abrégés.

J'ai donc un fichier avec dedans ceci :

$hf_mig$
$NtServicePackUninstall$
$NtUninstallKB915800-v4$
$NtUninstallKB923561$
$NtUninstallKB940157$
$NtUninstallKB952004$
$NtUninstallKB963093$
$NtUninstallKB967715$
$NtUninstallKB968537$
$NtUninstallKB970238$

Comment je peux récupérer le fichier ligne par ligne dans mon array en vbs ?

---------------
I'll feed your skin snacks to my cockatiel!

Reply

Marsh Posté le 17-06-2009 à 11:50:47

Pourquoi tu utilises pas l'objet de FileSystemObject ?

Reply

Marsh Posté le 17-06-2009 à 11:59:45

J'ai oublié de préciser que je suis une bille en vbs, et que jusqu'ici je ne fais qu'adapter des scripts déja existant en modifiant quelques fonctions par ci par la.

Comment ça fonctionne l'objet fileSystemObject ?

EDIT : Je vient de trouver ce que c'est que le fso... et j'ai vu un opentextfile dedans.

Message édité par nixnbk le 17-06-2009 à 12:00:51

---------------
I'll feed your skin snacks to my cockatiel!

Reply

Marsh Posté le 17-06-2009 à 12:04:02

Par contre je vois pas comment après avoir ouvert mon fichier texte je peux récupérer chaque ligne.

Je vois bien une boucle basée sur un retour du nombre de ligne dans laquelle je rentre dans l'array chaque ligne....
Mais je vois pas quelle commande utiliser pour retourner le nombre de lignes dans le fichier ou récupérer la ligne 1,2,3 etc.

---------------
I'll feed your skin snacks to my cockatiel!

Reply

Marsh Posté le 17-06-2009 à 13:01:27

http://devguru.com/technologies/vbscript/14048.asp
http://devguru.com/technologies/vbscript/13990.asp
etc.

en jouant avec Folders, tu pourras sans problème parcourir la liste des $KBxxxxx$ de ton répertoire, et en faire ce que tu veux

Reply

Marsh Posté le 17-06-2009 à 15:23:28

En fait j'ai trouvé le moyen de récupérer les ligne d'un fichier texte sur le sujet suivant :
http://forum.hardware.fr/hfr/Progr [...] m#t1360217

Le problème c'est de boucler les lignes.

En gros l'algo que je veux appliquer :

chemin = c:\monfichier.txt
fichier = opentextfile(chemin,1)
pour chaque ligne de fichier.txt non vide
ligne= fichier.readline
Si %windir%\ligne.datelastmodified plus vieux que 2 mois Alors
actions à réaliser
endif
fin boucle

Une idée pour le bouclage ?

Message édité par nixnbk le 17-06-2009 à 15:23:45

---------------
I'll feed your skin snacks to my cockatiel!

Reply

Marsh Posté le 17-06-2009 à 15:47:59

Franchement, tu ferais une boucle sur les items de Folders, ça serait quand même plus propre...

Message cité 1 fois

Reply

Marsh Posté le 17-06-2009 à 16:24:55

MagicBuzz a écrit :

Franchement, tu ferais une boucle sur les items de Folders, ça serait quand même plus propre...

J'vois pas trop comment faire...

voici ou j'en suis dans mon script pour l'instant :

Code :

dim CmdLine,CmdDir
dim ligne
dim chemintxt = "c:\recupdir.txt"
Set WshShell = WScript.CreateObject("WScript.Shell" )
Set fso = CreateObject("Scripting.FileSystemObject" )
Set MyFile = fso.CreateTextFile("c:\CmdLine.bat" , True)
set folderpath = "c:\temp"
if fso.FolderExists(folderpath)
CmdLine = "del " & folderpath & "\*.* /Q /F /S"
MyFile.WriteLine(CmdLine)
end if
folderpath = "c:\tmp"
if fso.FolderExists(folderpath)
CmdLine = "del " & folderpath & "\*.* /Q /F /S"
MyFile.WriteLine(CmdLine)
end if
folderpath = "%windir%\tmp"
if fso.FolderExists(folderpath)
CmdLine = "del " & folderpath & "\*.* /Q /F /S"
MyFile.WriteLine(CmdLine)
end if
set DirFile = fso.createTextFile("c:\dirline.bat", True)
CmdDir = "dir %windir%\$*$ /A:h /B >" & chemintxt
DirFile.WriteLine(CmdDir)
DirFile.Close
set DirFile = CreateObject("WScript.Shell" )
DirFile.run("c:\dirline.bat",TRUE)
if fso.FileExists(chemintxt) then
set ouvrir=fso.opentextfile(chemintxt,1)
'boucle de 1 a nombre de lignes' dans recupdir.txt
ligne = ouvrir.readline
folderpath = "%windir%\" & ligne
if DateDiff("d",fso.GetFolder(folderpath).DateLastModified,date() ) > JOUR then
CmdLine = "rmdir " & folderpath & " /S /Q"
MyFile.WriteLine(CmdLine)
end if
'fin boucle
end if
MyFile.Close
Set MyFile = Nothing
Set fso = Nothing
Return = WshShell.Run (sourcepath & "\CmdLine.bat",10,TRUE)

Pour la boucle je cherche mais j'trouve toujours pas

---------------
I'll feed your skin snacks to my cockatiel!

Reply

Marsh Posté le 17-06-2009 à 16:45:03

Un truc du genre :

Code :

Option Explicit
 
Const WINDIR = "c:\windows"
Dim fso
Dim wsh
 
Dim fol
 
Set fso = CreateObject("Scripting.FileSystemObject" )
Set wsh = WScript.CreateObject("WScript.Shell" )
 
If fso.FolderExists(WINDIR) Then
    For Each fol in fso.GetFolder(WINDIR).SubFolders
        If Len(fol.Name) > 2 and Right(fol.Name, 1) = "$" and Left(fol.Name, 1) = "$" and fol.DateLastModified < DateAdd("d", -60, Now()) Then
            fso.DeleteFolder(fol)
        End If
    Next
    MsgBox("OK" )
Else
    MsgBox("On a un problème là..." )
End if

Reply

Marsh Posté le 17-06-2009 à 16:45:03

Reply

Marsh Posté le 17-06-2009 à 16:55:37

En gros ton script teste pour chaque sous répertoire du windir si il contient + que 2 caractères, si son premier et dernier caractère est "$" ...
C'est bien ça ?

vais tenter d'adapter ça...

Par contre il y a un problème avec ta variable windir : si on est sous 2000 alors le windir = c:\winnt.
Résultat on se prend le msgbox : "on a un problème la..."
Ya pas moyen de travailler avec %windir% plutôt que de la définir en dur ?

Merci en tout cas pour le temps passé.

Message édité par nixnbk le 17-06-2009 à 16:55:49

---------------
I'll feed your skin snacks to my cockatiel!

Reply

Marsh Posté le 17-06-2009 à 16:58:21

ben j'ai essayé, mais pas trouvé pour récupérer %windir%

cependant, fso a un GetSpecialFolder().
j'imagine qu'un truc genre fso.GetSpecialFolder("windir" ) devrait bien aider

Reply

Marsh Posté le 17-06-2009 à 16:59:57

trouvé pour le windir :
dim WINDIR
Set WshShell = WScript.CreateObject("WScript.Shell" )
WINDIR = WshShell.ExpandEnvironmentStrings("%WinDir%" )

---------------
I'll feed your skin snacks to my cockatiel!

Reply

Marsh Posté le 17-06-2009 à 17:18:39

bon grâce à ton bout de code j'ai pu finir mon script. Le voici :

Code :

dim CmdLine, folder
dim WINDIR
 
Set WshShell = WScript.CreateObject("WScript.Shell" )
WINDIR = WshShell.ExpandEnvironmentStrings("%WinDir%" )
 
Set fso = CreateObject("Scripting.FileSystemObject" )
Set MyFile = fso.CreateTextFile("c:\CmdLine.bat" , True)
folder = "c:\temp"
set DirFile = fso.createTextFile("c:\dirline.bat", True)
 
 
if fso.FolderExists(folder) then
    CmdLine = "REM del " & folder & "\*.* /Q /F /S"
    MyFile.WriteLine(CmdLine)
end if
 
folder = "c:\tmp"
 
if fso.FolderExists(folder) then
    CmdLine = "REM del " & folder & "\*.* /Q /F /S"
    MyFile.WriteLine(CmdLine)
end if
 
folder = WINDIR & "\temp"
 
if fso.FolderExists(folder) then
    CmdLine = "REM del " & folder & "\*.* /Q /F /S"
    MyFile.WriteLine(CmdLine)
end if
 
if fso.FolderExists(WINDIR) then
    For Each folder in fso.GetFolder(WINDIR).SubFolders
        If Len(folder.Name) > 2 and Right(folder.Name, 1) = "$" and Left(folder.Name, 1) = "$" and folder.DateLastModified < DateAdd("d", -60, Now()) Then
            CmdLine = "REM rmdir " & folder & " /S /Q"
            MyFile.WriteLine(CmdLine)
       End If
   Next
End if
CmdLine = "pause"
MyFile.WriteLine(CmdLine)
MyFile.Close
Set MyFile = Nothing
Set fso = Nothing
Return = WshShell.Run ("c:\CmdLine.bat",10,TRUE)

Et le .bat de résultat :

REM del c:\tmp\*.* /Q /F /S
REM del C:\WINDOWS\temp\*.* /Q /F /S
REM rmdir C:\WINDOWS\$NtServicePackUninstall$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB952069_WM9$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB954459$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB954600$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB955069$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB955839$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB956802$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB957097$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB958215$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB958687$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB958690$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB959772_WM11$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB960225$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB960714$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB960715$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB961118$ /S /Q
REM rmdir C:\WINDOWS\$NtUninstallKB967715$ /S /Q
pause

J'ai vérifié tout fonctionne. J'enlève les REM et je met le sujet en résolu.

Merci magicbuzz.

---------------
I'll feed your skin snacks to my cockatiel!

Reply

Marsh Posté le 17-06-2009 à 17:36:03

J'viens de me rendre compte qu'il manque encore toute une partie à mon script :
Faudrait aussi que je vide les repertoire temp de chaque user.
donc en gros : récupérer pour chaque sous répertoire de c:\documents and settings\ (variable windows ???) le répertoire \local settings\temp et le vider.

Je commence à chercher. Globalement niveau Algo ça devrait pas changer des masses de celui des Kb windows.

---------------
I'll feed your skin snacks to my cockatiel!

Reply

Marsh Posté le 18-06-2009 à 10:52:11

Problème résolu, modification du premier post et publication du code.

n'hésitez pas à me faire un retour si on peut améliorer le code.

Bonne journée,

nix.

---------------
I'll feed your skin snacks to my cockatiel!

Reply

[VBS][RESOLU][SCRIPT]Script de suppression de fichiers temporaires

Sujets relatifs:

Leave a Replay