Discussion :

[Invité]

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

[pitchalov]

Bonjour,

Voici peut-être une piste :

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
 
intSizeInGB = 20
intSizeInBytes  = (intSizeInGB * 1024 * 1024 * 1024)
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
		Set objNetwork = WScript.CreateObject("WScript.Network") 
		strUserName = objNetwork.UserName 
		strUserDisplayName = objUser.displayName
strFolderToMonitor = objUser.HomeDirectory
Set objFolder = objFSO.GetFolder(strFolderToMonitor) 
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

Bonne continuation.

[Invité]

Effectivement je travaille la dessus c'est une bonne option...je reviens avec le résultat sous peu...

Merci