一个ASP获取服务器驱动器类型的例子—[摘自ASP实务经典]

<%
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
%>