<%

Set fs=CreateObject("Scripting.FileSystemObject")

For Each Drive In fs.Drives

Response.Write "盘符：" & Drive.DriveLetter & "
"

Response.Write "驱动器类型：" & Tran(Drive.DriveType) & "
"

Next

Set fs=Nothing

Function Tran(drvtype)

Select Case drvtype

Case 0:Tran="设备无法识别"

Case 1:Tran="软盘驱动器"

Case 2:Tran="硬盘驱动器"

Case 3:Tran="网络硬盘驱动器"

Case 4:Tran="光盘驱动器"

Case 5:Tran="RAM虚拟磁盘"

End Select

End Function

%>