获取驱动器信息

[wlcsdf]

现在获取的驱动器信息，连光驱和备用磁盘插口也显示出来了，能不能只显示硬盘分区出来的几个磁盘？

[rcsglydm]

<%

Set fs=CreateObject("Scripting.FileSystemObject")

For Each Drive In fs.Drives
    if Tran(Drive.DriveType)="硬盘驱动器" then
      Response.Write "盘符：" & Drive.DriveLetter & "<br>"
    end if
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

%>