<% 'Drive information script by Garet Jax Response.Write "" Response.Write "Server Software: "& Request.ServerVariables("SERVER_SOFTWARE") &"
Drive Information for: "& Request.ServerVariables("SERVER_NAME") &"
" Response.Write "" Response.Write "" Set fs = CreateObject("Scripting.FileSystemObject") Set drv = fs.Drives For each d in drv If d.Driveletter <> "A" Then If d.IsReady = True Then freespace = (d.AvailableSpace / 1024) free = (freespace / 1024) totalspace = (d.TotalSize / 1024) total = (totalspace / 1024) Response.Write "" 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 "" Else Response.Write "" End If End If Next Response.Write "
DriveletterDrive TypeVolume NameTotal SpaceAvailable SpaceFile SystemSerial #
"& d.DriveLetter &""& dtype &""& dname &""& Round(total,1) &" Megabytes"& Round(free,1) &" Megabytes"& d.FileSystem &""& d.SerialNumber &"
"& d.DriveLetter &"Drive not ready
" Response.Write "" %>