<%
Option Explicit
Dim objFileSys
Dim MyDrives
Dim TheDrive
Dim TheRootFolder
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set MyDrives = objFileSys.Drives
set TheDrive = MyDrives.Item("E")
Response.Write "Dostpna przestrze:" & FormatNumber(TheDrive.AvailableSpace, 0) & "<P>"
Response.Write "Litera napdu: " & TheDrive.DriveLetter & "<P>"
Response.Write "Typ napdu: " & TheDrive.DriveType & "<P>"
Response.Write "System plikw: " & TheDrive.FileSystem & "<P>"
Response.Write "Wolna przestrze: " & FormatNumber(TheDrive.FreeSpace, 0) & "<P>"
Response.Write "Gotowo: " & TheDrive.IsReady & "<P>"
Response.Write "cieka: " & TheDrive.Path & "<P>"
set TheRootFolder = TheDrive.RootFolder
Response.Write "Numer seryjny: " & TheDrive.SerialNumber & "<P>"
Response.Write "Nazwa sieciowa: " & TheDrive.ShareName & "<P>"
Response.Write "Cakowity rozmiar: " & FormatNumber(TheDrive.TotalSize, 0) & "<P>"
Response.Write "Nazwa woluminu: " & TheDrive.VolumeName & "<P>"
%>
