<%
Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")
Set Drives = FileSystemObject.Drives
For Each DiskDrive in Drives
If DiskDrive.IsReady Then
totalspace = DiskDrive.TotalSize
freespace = DiskDrive.FreeSpace
usedspace = totalspace - freespace
freepercent = Int((freespace/totalspace)*100)
freemb = Int((freespace/1024)/1024)
usedmb = Int((usedspace/1024)/1024)
usedpercent = Int((usedspace/totalspace)*100)
If freespace =< 1048576 Then
freelabel = FormatNumber(freespace/1024, 1) & " Kb"
Elseif freespace =< 1073741824 then
freelabel = FormatNumber((freespace/1024)/1024, 1) & " Mb"
Else
freelabel = FormatNumber(((freespace/1024)/1024)/1024, 2) & " Gb"
End If
If usedspace =< 1048576 Then
usedlabel = FormatNumber(usedspace/1024, 1) & " Kb"
Elseif usedspace =< 1073741824 Then
usedlabel = FormatNumber((usedspace/1024)/1024, 1) & " Mb"
Else
usedlabel = FormatNumber(((usedspace/1024)/1024)/1024, 2) & " Gb"
End If
If Left(freelabel,3) = "0.0" Then freelabel = "0 bytes"
If Left(usedlabel,3) = "0.0" Then usedlabel = "0 bytes"
used_alt_tag = "<b>Drive " & DiskDrive.DriveLetter & ":</b> " & usedlabel & " in use"
free_alt_tag = "<b>Drive " & DiskDrive.DriveLetter & ": </b>" & freelabel & " free"
Response.Write "Drive " & DiskDrive.DriveLetter & ": "
If DiskDrive.VolumeName <> "" then
Response.Write " : "
End If
Response.Write  "Used=" &  usedpercent & "%  " &  used_alt_tag
Response.Write  " | Free=" & (100-usedpercent) & "% " &  free_alt_tag
Response.Write "<br>"
End If
Next
Set Drives = nothing
Set FileSystemObject = nothing
%>