Gracias orharo2003 por tu codigo, la verdad a mi tampoco me funciono lo otra parte solo lo del numero de serie pero muchas gracias si me sirvio. Investigue un poco y encontre esto espero les sirva, lexus me parece que algo asi querias, a mi aun no me funciona jeje, es que no le he agarrado bien la onda a eso de llamar la Function, pero si a alguien si le funciona le agradeceria que me ponga su codigo completo para ver como se manda a llamar, gracias y SUERTE A TODOS.
<%
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
' GenerateDriveInformation
' Objetivo:
' Genera una cadena que describe el estado actual de las unidades
' disponibles.
' Demuestra lo siguiente
' - FileSystemObject.Drives
' - Iterating the Drives collection
' - Drives.Count
' - Drive.AvailableSpace
' - Drive.DriveLetter
' - Drive.DriveType
' - Drive.FileSystem
' - Drive.FreeSpace
' - Drive.IsReady
' - Drive.Path
' - Drive.SerialNumber
' - Drive.ShareName
' - Drive.TotalSize
' - Drive.VolumeName
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
Function GenerateDriveInformation(FSO)
Dim Drives
Dim Drive
Dim S
Set Drives = FSO.Drives
S = "Número de unidades:" & TabStop & Drives.Count & NewLine & NewLine
' Construir la primera línea del informe.
S = S & String(2, TabStop) & "Nombre"
S = S & String(3, TabStop) & "Sistema"
S = S & TabStop & "Espacio"
S = S & TabStop & "Espacio"
S = S & TabStop & "Espacio"
S = S & TabStop & "Número" & NewLine
' Construir la segunda línea del informe.
S = S & "Letra"
S = S & TabStop & "Ruta"
S = S & TabStop & "Tipo"
S = S & TabStop & "¿Listo?"
S = S & TabStop & "de unidad"
S = S & TabStop & "de archivos"
S = S & TabStop & "total"
S = S & TabStop & "libre"
S = S & TabStop & "disponible"
S = S & TabStop & "de serie" & NewLine
' Línea separadora.
S = S & String(105, "-") & NewLine
For Each Drive in Drives
S = S & Drive.DriveLetter
S = S & TabStop & Drive.Path
S = S & TabStop & ShowDriveType(Drive)
S = S & TabStop & Drive.IsReady
If Drive.IsReady Then
If DriveTypeNetwork = Drive.DriveType Then
S = S & TabStop & Drive.ShareName
Else
S = S & TabStop & Drive.VolumeName
End If
S = S & TabStop & Drive.FileSystem
S = S & TabStop & Drive.TotalSize
S = S & TabStop & Drive.FreeSpace
S = S & TabStop & Drive.AvailableSpace
S = S & TabStop & Hex(Drive.SerialNumber)
End If
S = S & NewLine
Next
GenerateDriveInformation = S
End Function
%>