Discussion :

[Invité]

J'aimerais savoir s'il est possible de "monitorer" l'accès à un répertoire...

Dans le sens que si un utilisateur accède à son répertoire...d'une façon ou une autre, il y ait un message s'affichant sur l'ordi de l'utilisateur...

En fait le but étant de vérifier l'utilisation en GB du répertoire...lorsque l'utilisateur accéderait a son répertoire il y aurait un script qui déterminerait si son espace excède x GB

À la limite y a t-il un moyen de faire une pause sur un script sans que ce soit visible pour l'utilisateur (ie fenêtre de script dans la barre de tâche) et ainsi faire partir le script au login de l'utilisateur mais seulement au bout d'une minute de l'ouverture...


Merci pour les infos

[omen999]

bonjour,
un exemple ici
pas trouvé d'exemple en français

[hackoofr]

En fait le but étant de vérifier l'utilisation en GB du répertoire...lorsque l'utilisateur accéderait a son répertoire il y aurait un script qui déterminerait si son espace excède x GB
À la limite y a t-il un moyen de faire une pause sur un script sans que ce soit visible pour l'utilisateur (ie fenêtre de script dans la barre de tâche) et ainsi faire partir le script au login de l'utilisateur mais seulement au bout d'une minute de l'ouverture...

voici un script de test que vous pouvez le lancer avec une GPO ou bien vous le copier dans le dossier démarrage du l’utilisateur

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
'*********Programme Principal qui tourne en boucle***********
Do
Pause("1")'faire une pause de 1 minute par exemple avant l'exécution du script
'donc vous pouvez modifier le temps de pause
EspaceDossier("d:\testsub")
Loop
'**************************************************************
Function EspaceDossier(Schemin) 
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
TailleFixe="1024"'ici je l'ai fixé à 1024 juste pour le test et c'est à vous de modifier en Go
Set f = fso.GetFolder(Schemin)
SizeKo = Round(FormatNumber(f.Size)/(1024),2) & " Ko" 'Taille en Ko avec 2 chiffres après la Virgule
SizeMo = Round(FormatNumber(f.Size)/(1048576),2) & " Mo"'Taille en Mo avec 2 chiffres après la Virgule
SizeGo = Round(FormatNumber(f.Size)/(1073741824),2) & " Go" 'Taille en Go avec 2 chiffres après la Virgule
'Donc vous pouvez le modifier la contrainte de taille ici 
If f.size > 1024 Then 
MsgBox "La Taille du dossier "&Schemin&" est de "&SizeKo&vbcr&_
"Esapce insuffisant car il est  > "&TailleFixe&" Ko"  ,16,"Esapce insuffisant"
Else 'si la contrainte de taille est respectée alors on quitte le script
wscript.Quit
end if
End Function
 
Sub Pause(NbMin)
wscript.sleep 60000 * NbMin
end Sub

[Invité]

Merci infiniment pour vos réponses...

hackoofr m'a donné le nécessaire pour répondre a mon questionnement. J'ai modifié quelques éléments pour préciser en fonction de mon environnement.

Petite question y aurait-il moyen de retirer la boucle de façon à ce que ça s’exécute qu'une seule fois...x minutes après le login?

Edit En fait en retirant le Do .... Loop (ligne 2 et 6) ça devrait le faire je viens de tester


Merci encore

[hackoofr]

Petite question y aurait-il moyen de retirer la boucle de façon à ce que ça s’exécute qu'une seule fois...x minutes après le login?
Edit En fait en retirant le Do .... Loop (ligne 2 et 6) ça devrait le faire je viens de tester
Merci encore

vous pouvez aussi augmenter le temps de pause tout en éliminant le DO et LOOP
N'oubliez pas de nous partager votre script final car ça nous intéresse aussi

[Invité]

Voilà j'ai changé peu de chose puisqu'il répondais exactement à ce que j'ai besoin...

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
 
Pause("1")
EspaceDossier("\\UNC\Path\tofolder")
Function EspaceDossier(Schemin) 
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
TailleFixe="2"
Set f = fso.GetFolder(Schemin)
SizeKo = Round(FormatNumber(f.Size)/(1024),2) & " Ko"
SizeMo = Round(FormatNumber(f.Size)/(1048576),2) & " Mo"
SizeGo = Round(FormatNumber(f.Size)/(1073741824),2) & " Go"
If f.size > 3145728 Then 
MsgBox "La Taille du dossier "&Schemin&" est de "&SizeGo&vbcr&_
"Veuillez faire du ménage, car il excède le "&TailleFixe&" Go d'espace disque alloué."  ,16,"Quote espace disque atteint."
Else
wscript.Quit
end if
End Function
 
Sub Pause(NbMin)
wscript.sleep 60000 * NbMin
end Sub

Merci pour tout