Alerter les gros profils

Pourquoi ?

Comme déjà vu pour ce script , il s'agit de faire la chasse au gros profils.

Principe :

Obtenir la taille d'un dossier n'est pas compliqué en vbs mais cela ralenti le temps d'ouverture de session, surtout s'il y a beaucoup de fichiers à collecter pour obtenir la taille du dossier.

J'ai donc inséré les lignes ci-dessous dans un if.

Un drapeau me permet de valider ou non l'exécution de ce script.

Une boite de dialogue indique à la connexion de l'utilisateur que son bureau est surchargé et que ce n'est pas bien...

On peut varier les plaisirs en mettant un while (objFolderDesktop.Size > 10 000 000) à la place du if et un loop à la place du end if. La boite de dialogue reste affichée tant que l'utilisateur n'a pas fait le ménage. Si en plus on a limité l'accès au gestionnaire de taches, la seule sortie est de vider son bureau. Inutile de préciser que seul la deuxième version du script a eu un impact sur la taille des profils.

if flagAlert=1 Then
..
..
..
..
Const DESKTOP = &H10&
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(DESKTOP)
Set objFolderItem = objFolder.Self
Set objFolderDesktop = objFSO.GetFolder(objFolderItem.Path)
if objFolderDesktop.Size > 1000000 then
Variable = MsgBox("Les fichiers sur votre bureau occupent plus de 10 Mo !"&vbCRLF& _
" Cela signifie probablement que vous stockez vos fichiers de travail sur celui-ci."&vbCRLF& _
" Ce n'est pas une bonne pratique, le bureau doit contenir des essentiellement des raccourcis."&vbCRLF& _
"Vous allongez votre temps d'ouverture de session"&vbCRLF& _
"Vous alourdissez la charge du réseau"&vbCRLF& _
"Mais surtout ces documents ne sont pas sauvegardé"&vbCRLF& _
"Vous devriez enregistrer vos documents dans votre espace de travail !", 48, "Bureau encombré")
end if

Deuxième version

while objFolderDesktop.Size > 1000000 do
Variable = MsgBox("Les fichiers sur votre bureau occupent plus de 10 Mo !"&vbCRLF& _
" Cela signifie probablement que vous stockez vos fichiers de travail sur celui-ci."&vbCRLF& _
" Ce n'est pas une bonne pratique, le bureau doit contenir essentiellement des raccourcis."&vbCRLF& _
"Vous allongez votre temps d'ouverture de session"&vbCRLF& _
"Vous alourdissez la charge du réseau"&vbCRLF& _
"Mais surtout ces documents ne sont pas sauvegardés"&vbCRLF& _
"Vous devriez enregistrer vos documents dans votre espace de travail !", 48, "Bureau encombré")
loop