<%
set fso = Server.CreateObject("Scripting.FileSystemObject")
set ds=fso.drives
For Each Drv in ds  
set MyDrive=fso.GetDrive(drv)
Response.Write("本机驱动器: " & MyDrive.DriveLetter & "&nbsp;&nbsp;") 
if mydrive.isready then
Response.Write("本机总存储空间: "& MyDrive.TotalSize&"&nbsp;&nbsp;") 
Response.Write("本机可用大小: "& MyDrive.AvailableSpace & "<br>") 
end if
Next
%>


