strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
resultat=""
Set Disques = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where DriveType = 3")
For Each objetDisque in Disques
        EspaceLibre = objetDisque.FreeSpace
        EspaceTotal = objetDisque.Size
        EspaceLibrePc = EspaceLibre / EspaceTotal
        resultat=resultat & "Laufwerk " & objetDisque.DeviceID & vbCR
        resultat=resultat & "Partitionsgrösse : " & round(EspaceTotal/1073741824,2) & " GB" & vbcr
        resultat=resultat & "Noch frei : " & round(EspaceLibre/1073741824,2) & " GB"  & " (" & FormatPercent(EspaceLibrePc) &")" & vbcr & vbcr
Next
msgbox resultat,vbInformation,"Computer-Club Surfeagle a.s.b.l."