% 'Drive information script by Garet Jax Response.Write "
Driveletter | Drive Type | Volume Name | Total Space | Available Space | File System | Serial # |
"& d.DriveLetter &" | " If d.DriveType = 3 Then dtype = "Network" If d.ShareName = "" Then dname = " " Else dname = d.ShareName End If ElseIf d.DriveType = 0 Then dtype = "Unknown" If d.VolumeName = "" Then dname = " " Else dname = d.VolumeName End If ElseIf d.DriveType = 1 Then dtype = "Removeable" If d.VolumeName = "" Then dname = " " Else dname = d.VolumeName End If ElseIf d.DriveType = 2 Then dtype = "Fixed" If d.VolumeName = "" Then dname = " " Else dname = d.VolumeName End If ElseIf d.DriveType = 4 Then dtype = "CD-Rom" If d.VolumeName = "" Then dname = " " Else dname = d.VolumeName End If ElseIf d.DriveType = 5 Then dtype = "RAM Disk" If d.VolumeName = "" Then dname = " " Else dname = d.VolumeName End If End If Response.Write ""& dtype &" | "& dname &" | "& Round(total,1) &" Megabytes | "& Round(free,1) &" Megabytes | "& d.FileSystem &" | "& d.SerialNumber &" | "& d.DriveLetter &" | Drive not ready | " End If End If Next Response.Write "