Set objFSO=CreateObject("Scripting.FileSystemObject")
Set colDrives=objFSO.Drives
For Each Drive In colDrives
    WScript.Echo "Path        : " & Drive.Path
    WScript.Echo "Type        : " & _
DecodeDriveType(Drive.DriveType) &" (" & Drive.DriveType & ")"
    If drive.IsReady Then
        WScript.Echo "File System : " & Drive.FileSystem
        WScript.Echo "Volume      : " & Drive.VolumeName
        WScript.Echo "Serial#     : " & Drive.SerialNumber
        WScript.Echo "Total Size  : " & Drive.TotalSize
     Else
        WScript.Echo "File System : N/A"
        WScript.Echo "Volume      : N/A"
        WScript.Echo "Serial#     : N/A"
        WScript.Echo "Total Size  : N/A"
     End If
     WScript.Echo String(20,"/")
Next


Function DecodeDriveType(iType)
'returns a string value that correpsonds To
'a DriveType property value from the FileSystemObject

Select Case iType
    Case 0 strType="Unknown"
    Case 1 strType="Removable"
    Case 2 strType="Fixed"
    Case 3 strType="Network"
    Case 4 strType="CDROM"
    Case 5 strType="Not Defined"
    Case Else strType="Not Defined"
End Select

DecodeDriveType=strtype

End Function