Info sur script vérification usage du disque
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:
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 |