Bonjour j'ai créé un petit script qui vérifie l'espace occupé sur le disque d'un répertoire X et selon l'occupation en GB informe l'utilisateur ou non de la nécessité de faire le ménage dans le répertoire en question
Tout est correct mais j'aimerais faire en sorte que le script puisse être exportable...dans le sens que je pourrais le placer à la suite du loginscript de windows et ainsi l'exécuter au démarrage de l'ordinateur...
Ce qui fait en sorte que le strFolderToMonitor doit pouvoir être variable et s'adapter en fonction de l'utilisateur qui se connecte au poste informatique
De ce que je vois il faudrait que je fasse intervenir objUser.homeDirectory
Un petit indice pour m'aider a compléter le tout
Merci
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 strFolderToMonitor = "\\srv\data\Usagers\rep1" intSizeInGB = 20 intSizeInBytes = (intSizeInGB * 1024 * 1024 * 1024) Set objSysInfo = CreateObject("ADSystemInfo") Set objUser = GetObject("LDAP://" & objSysInfo.UserName) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strFolderToMonitor) Set objUser = GetObject("LDAP://" & objSysInfo.UserName) Set objNetwork = WScript.CreateObject("WScript.Network") strUserName = objNetwork.UserName strUserDisplayName = objUser.displayName If objFolder.Size > intSizeInBytes Then Set WshShell = Wscript.CreateObject("Wscript.Shell") WshShell.Popup strUserDisplayName & VbCrLf & "Votre répertoire " & strFolderToMonitor & " dépasse " & intSizeInGB & "GB" & "Vous devez faire le ménage et supprimer ce qui es inutile.",30, "Note", 0 Else Set WshShell = Wscript.CreateObject("Wscript.Shell") WshShell.Popup "Bonjour" & strUserDisplayName,30, "Note", 0 End If
Partager