

<%
set FSO = server.createObject("Scripting.FileSystemObject")
set Unidades = FSO.Drives
for each unidad in unidades
response.write "Unidad " & unidad.driveLetter
if unidad.isReady then
response.write ", espacio disponible: " & unidad.availableSpace
response.write ", espacio Total: " & unidad.totalSize
else
response.write ", no disponible en este momento"
end if
response.write "<br>"
next
%>