asp如何读取服务器上的驱动器？

asp使用fso读取驱动器信息：

<％
vv=drive()
response.write vv 
function drive() 
Dim fs, d, dc, s, n 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set dc = fs.Drives 
For Each d in dc 
If d.IsReady Then 
s = s & d.DriveLetter & " - " 
If d.DriveType = 3 Then n = d.ShareName Else n = d.VolumeName 
s = s & "当前驱动器:" & n 
s = s & "SN: " & d.SerialNumber 
s = s & "可用空间： " & FormatNumber(d.AvailableSpace/1024, 0) 
s = s & "KB" 
End If 
Next 
response.write s 
end function
％>