<%
set fs=createobject("scripting.filesystemobject")
for each drive in fs.drives
    response.write "盘符:" & drive.driveletter & "<br>"
    response.write "驱动器类型:" & tran(drive.drivetype) & "<br>"
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
%>