Pues, si. Con FSO se puede:
<%
Dim filesys, drv, drvcoll, drvlist, vol
Set filesys = CreateObject("Scripting.FileSystemObject")
Set drvcoll = filesys.Drives
For Each drv in drvcoll
drvlist = drvlist & drv.DriveLetter
If drv.IsReady Then
vol = drv.VolumeName
End If
drvlist = drvlist & vol & ", "
Next
Response.Write "Drives available on this system are " & drvlist
%>
Fuente 