Salut,
Oui il faut 3 arguments à ce script, en 1 le répertoire en 2 le seul de warning et en 3 le seuil critique, si tu as pas besoin des 2 derniers arguments tu changes comme ça:
Dim strfolder
Dim intwarning
Dim intcritic
Dim wsh
Dim intvelkost
Dim intjednotka
Dim Perf_Data
'##########################################################'
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set wsh = CreateObject("WScript.Shell" )
'##########################################################'
If Wscript.Arguments.Count = 1 Then
strfolder = Wscript.Arguments(0)
Set objFolder = objFSO.GetFolder(strfolder)
intjednotka = 1048576 '1MB->bytes'
intvelkost = objFolder.Size/intjednotka
Perf_Data = "|'FolderSize'=" & round (objFolder.Size / 1048576,1) & "MB;"
Wscript.Echo "OK:" & round (objFolder.Size /1048576,1) & " MB" & Perf_Data
Wscript.Quit(0)
end if
---------------