<%
 '首先建立 FileSystemObject 物件
 Dim fso
 Set fso = Server.CreateObject("Scripting.FileSystemObject")

 '使用 Drives 集合, 將所有裝置狀態取出
 Dim drives
 Set drives = fso.Drives
 Dim isReady '用以檢查裝置狀況判別用
 For Each drive in drives
  isReady = drive.IsReady
  If isReady Then
   Response.Write "代號名稱: " & drive.DriveLetter & "<br>"
   Response.Write "實體路徑: " & drive.Path & "<br>"
   Response.Write "檔案系統: " & drive.FileSystem & "<br>"
   Response.Write "磁碟容量: " & drive.TotalSize & "<br>"
   Response.Write "剩餘空間: " & drive.FreeSpace & "<br>"
  Else
   Response.Write "代號名稱: " & drive.DriveLetter & "<br>"
   Response.Write drive.Path & "<br>"
   Response.Write "沒有任何訊息資料"
  End If
 Next

 Set drives = Nothing
 Set fso = Nothing
%>