Código PHP:
<%
Dim Fs
Set Fs=Server.CreateObject("Scripting.FileSystemObject")
'Se obtiene una coleccion de las Unidades de disco instalados.
set Unidad = Fs.Drives
'Obtengo la Unidad C.
set Un = Fs.getdrive("c")
Despliego algunas de sus propiedades.
response.write "Serial de la Unidad: " & Un.SerialNumber
response.write ", espacio disponible: " & Un.availableSpace
response.write ", espacio Total: " & Un.totalSize
set Unidad = nothing
set Fs = nothing
%>
