<%
drivePath = "/"
drivePath = Server.MapPath(drivePath)
drivePath = left(drivePath,Instr(drivePath,":"))
'Response.Write(drivePath)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'判断驱动器是否存在
If fso.DriveExists(drivePath) Then
	Set drive = fso.GetDrive(drivePath) '取得drive对象
		'判断是否准备就绪
		If drive.IsReady Then
			Response.Write "空间：" & drive.AvailableSpace & "字节<br>"
			Response.Write "驱动器字符：" & drive.DriveLetter & "<br>"
			Response.Write "驱动器类型：" & GetDriveTypeName(drive.DriveType) & "<br>"
			Response.Write "文件系统：" & drive.FileSystem & "<br>"
			Response.Write "剩余空间：" & drive.FreeSpace & "字节<br>"
			Response.Write "路径：" & drive.Path & "<br>"
			Response.Write "根目录：" & drive.RootFolder & "<br>"
			Response.Write "序列号：" & drive.SerialNumber & "<br>"
			Response.Write "共享名：" & drive.ShareName & "<br>"
			Response.Write "空间大小：" & drive.TotalSize & "字节<br>"
			Response.Write "卷标：" & drive.VolumeName & "<br>"
		Else
			Response.Write "驱动器没有准备好。"
		End If
	Else
		Response.Write "驱动器不存在。"
	End If
	Set fso = Nothing
	
Function GetDriveTypeName(driveTypeNumber)
	Dim name
	Select Case driveTypeNumber
		Case 1
			name = "可移动磁盘"
		Case 2
			name = "硬盘"
		Case 3
			name = "网络共享"
		Case 4
			name = "光驱"
		Case 5
			name = "RAM磁盘"
		Case Else
			name = "未知类型"
	End Select
	GetDriveTypeName = name
End Function
%>