Script démarrage avec délai

Version imprimable

04/10/2012, 20h42
Invité

Script démarrage avec délai

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
05/10/2012, 14h24
omen999

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

Citation:

Envoyé par JFMichaud

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

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

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

05/10/2012, 21h33
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
05/10/2012, 21h59
hackoofr

Citation:

Envoyé par JFMichaud

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

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

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

Code:

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