Set fso =CreateObject("Scripting.FileSystemObject")
Set unidad_disco = fso.Drives
ForEach unidad In unidad_disco
Response.Write unidad.driveletter&"<BR>"
Next
Set unidad_disco =Nothing
Set fso =Nothing
%>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Obtener las unidades de disco del servidor" href="http://www.tutores.org/codigo/1241/" target="_blank">Obtener las unidades de disco del servidor</a>
<!-- Final enlace Tutores.org -->