Feeds:
Articles
Commentaires

Bonjour,

En tant qu »admin système j’ai souvent le besoin de faire un peu de ménage automatiquement. Alors j’ia cherché un script pour me faire ça et voici le résultat.

'----------------------------------------+----------------------------------------
' RemoveOldFiles.vbs - Purge older files on folder
'----------------------------------------+----------------------------------------

Option Explicit
Dim fso, dTwoWeeksAgo
'----------------------------------------+----------------------------------------
' Age of file to purge
'----------------------------------------+----------------------------------------
dTwoWeeksAgo = Date() - X
wscript.echo dTwoWeeksAgo
Set fso = CreateObject("Scripting.FileSystemObject")

'----------------------------------------+----------------------------------------
' Directories to purge
'----------------------------------------+----------------------------------------
DirWalk("C:\repertoire1")
DirWalk("C:\repertoire2")  

Sub DirWalk(parmPath)
	Dim oSubDir, oSubFolder, oFile, n

	   On Error Resume Next
	   Set oSubFolder = fso.getfolder(parmPath)
'----------------------------------------+----------------------------------------
' Deletion of old file
'----------------------------------------+----------------------------------------
	   For Each oFile In oSubFolder.Files
		  If Err.Number <> 0 Then
			 Err.Clear
		  ElseIf oFile.DateLastModified < dTwoWeeksAgo Then
			 Wscript.Echo "about to delete " & oFile.Path
		    	fso.DeleteFile oFile.Path, True
		  End If
	   Next

	   For Each oSubDir In oSubFolder.Subfolders
		  DirWalk oSubDir.Path
	   Next

'----------------------------------------+----------------------------------------
' Deletion of empty directories
'----------------------------------------+----------------------------------------
	   For Each oSubDir In oSubFolder.SubFolders
		  If (oSubDir.Files.Count = 0) Then
			Call oSubDir.Delete()
		  End If
		Next

	   On Error Goto 0  

End Sub

Bon c’est un peu brute de décoffrage mais c’est utilisable avec un tache planifiée.
Il faut d’abord modifier les éléments que j’ai mis en rouge gras (le nombre de jour et les répertoires). En suite pour un windows 2008  : on va dans « Start », « administrative tools », « Task scheduler » (démarrer, outils d’administration, planificateur de tâche).

On se met à la racine et on ajoute une tache basique (en haut à droite), on lui met un petit nom : « Nettoyage j-7 », on définit la période, quand est-ce que ça doit se faire (éviter de tout mettre à 0:00), ensuite on veut lancer un programme, on sélectionne le script. Avant de cliquer sur terminer, il faut cocher la case ouvrir le fenêtre de propriété.

Dans la fenêtre de propriété : cliquer sur démarrer avec les droits administrateur en bas à gacuhe sinon vous ne pourrez pas tout effacer.

Et voilà ! Si seulement c’était aussi simple pour mon appart !

Lorf

Comme toujours un ptit lien :

http://blog.juliencyr.fr/?p=90

Publicités

Encore une news de korben …

http://korben.info/boot-to-gecko.html

Bonjour,

Si en tant que bon admin système vous avez l’habitude de créer un profil par défaut sur vos postes clients sous windows xp, vous allez être un peu perdu sous windows 7. En effet, dans le gestionnaire de profils, la case « copier dans » est grisée sauf pour la version ultimate.

L’astuce consiste, comme avant, à faire une config idéal sur un utilisateur bidon.

Puis on va à la main depuis l’administrateur dans c:\users (c:\utilisateurs), on renomme le répertoire Default en Default.old puis on renomme son utilisateur bidon en Default. Et voilà, le tour est joué !

En cas de problème, il faut vérifier les droits sur le nouveau répertoire Default : Tout le monde et Utilisateurs en Lecture et Exécution, Affichage du contenu du dossier, Lecture et les groupes Système et Administrateurs en Contrôle total.

C’est pas très compliqué mais tellement pratique. Bon, je sais on peut presque tout configurer par défaut dans profile avec une gpo maintenant … mais on a droit d’aimer l’esprit old school !

Lorf

un ptit lien ;

http://www.jcquirin.com/component/content/article/34-cat-systeme/63-windows-7-copier-un-profil-creer-un-profil-par-defaut

un autre :

http://offroad.gonzofamily.com/2010/02/12/copier-un-profil-utilisateur-sous-windows-7/

http://www.bestofmicro.com/actualite/test/1045-1-conseil-smartphone-guide.html

un article de tom’s guide

Routeur poney [Korben]

tjs un article de l’incroyable Korben :

http://korben.info/routeur-poney.html

Encore un bon article de korben :
http://korben.info/une-faille-dans-les-macbook-air.html

Quand une solution propriétaire décide d’aider un projet open-source voilà ce que ça donne :

http://www.clamav.net/lang/en/about/win32/