Dim warning
Sub Main
Dim report
 warning= 0 
 report =ShowDrive("C:") & vbCrLf
 report =report & ShowDrive("D:") & vbCrLf
 report =report & ShowDrive("e:") & vbCrLf
 report =report & ShowDrive("f:") & vbCrLf
 report =report & ShowDrive("g:") & vbCrLf
 report =report & ShowDrive("H:")
 If warning <> 0  Then report = "Warning!" & report
 Clipboard( report)
End Sub

Function ShowDrive(drvP)
   Dim fso, drv, s,tmp
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set drv = fso.GetDrive(fso.GetDriveName(drvP))
   s = "Drive " & UCase(drvP) & " - "
   s = s & drv.VolumeName & vbCrLf
   s = s & "Total Space: " & drv.TotalSize /  1024 
   s = s & " Kb" & vbCrLf
   s = s & "Free Space: " & drv.FreeSpace /  1024 
   s = s & " Kb" & vbCrLf
 s = s & "Usage: " & Left$(((drv.TotalSize-drv.FreeSpace)/drv.TotalSize)* 100 , 5 ) 
& " %" & vbCrLf
 ShowDrive=s

 If drv.FreeSpace< Clipboard * 1024  Then warning =  1 
End Function