Discussion :

[Archangelo]

Quelqu'un connait il un script pour obtenir l'espace disque libre ?

[lexav]

regarde les méthodes et propriétés du FileSystme Object, mais je ne crois pas

[Archangelo]

C'était un bonne piste, merci.

Voilà une solution, elle vaut ce qu'elle vaut.

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
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set drives = fso.Drives
 
Dim TotalFree,TotalSize
 
For Each driveObject In drives
Wscript.Echo driveObject.DriveLetter
  If driveObject.DriveLetter <> "A" and driveObject.DriveLetter <> "B" Then
    TotalSize = TotalSize + (driveObject.TotalSize / 1048576)
    TotalFree = TotalFree + (driveObject.FreeSpace / 1048576)
  End If
Next
 
Wscript.Echo "TotalSize: " & TotalSize & " Mbytes"
Wscript.Echo "TotalFreeSpace: " & TotalFree & " Mbytes"