david/KACE
1
0
Fork 0
Code Releases Activity

Auto-commit: 2025-10-31 08:55:48

Browse Source
This commit is contained in:
David Wuibaille
2025-10-31 08:55:48 +01:00
parent a90c28cde9
commit e2aa08738d
28 changed files with 735 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
SMA/GetSizeProfil/Getsize.vbs Normal file
View File

@@ -0,0 +1,60 @@
Set Fso = CreateObject( "Scripting.FileSystemObject" )
Set shell = CreateObject("WScript.Shell")
Set InfW = Fso.CreateTextFile("c:\Windows\temp\TailleProfils.log", True)
CodeRetour = InfW.writeLine("### Taille Profil ###")
strComputer = "."
On Error Resume Next
If Fso.FolderExists("c:\Documents and settings") Then
Set objFolder = Fso.GetFolder("c:\Documents and settings")
If err.number <> 0 then CodeRetour = InfW.writeLine("Error Get c:\Documents and settings : " & err.description)
Set objSubFolders = objFolder.SubFolders
For Each objSubFolder in objSubFolders
Set queriesFolder = Fso.GetFolder("c:\Documents and settings\" & objSubFolder.name)
If err.number <> 0 then CodeRetour = InfW.writeLine("Error Get c:\Documents and settings\" & objSubFolder.name & " : " & err.description)
CodeRetour = InfW.writeLine("c:\Documents and settings\" & objSubFolder.name & " = " & Round(queriesFolder.Size/1024/1024) & " Mo")
Next
End If
If Fso.FolderExists("c:\Users") Then
On Error Resume Next
Set objFolder = Fso.GetFolder("c:\Users")
If err.number <> 0 then CodeRetour = InfW.writeLine("Error Get c:\Users : " & err.description)
Set objSubFolders = objFolder.SubFolders
For Each objSubFolder in objSubFolders
CodeRetour = Shell.run("cmd /c " & chr(34) & Getpath & "du.exe" & chr(34) & " /acceptEula -q -c " & "c:\Users\" & objSubFolder.name & ">c:\windows\temp\du.txt",0,True)
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists("c:\windows\temp\du.txt") Then
set inf= Fso.OpenTextFile("c:\windows\temp\du.txt")
While inf.AtEndOfStream <> True
Ligne = Inf.Readline
If Instr(Ligne,"Path") = 0 Then
Temp = Split(Ligne,",")
CodeRetour = InfW.writeLine(Temp(0) & " : " & Cint(Temp(Ubound(Temp)) / 1024) & " Mo")
End If
Wend
inf.close
End If
CodeRetour = InfW.writeLine("c:\Users\" & objSubFolder.name & " = " & Round(queriesFolder.Size/1024/1024) & " Mo")
Next
End If
infW.close
Function GetPath()
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, "\"))
End Function