[Опиум]

у меня под WinPE так,

Код:

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20


strComputer ="localhost"

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each objItem In colItems
sOut = objItem.Name & " " & objItem.Size
mbSize =  int (objItem.Size /  1024 /1024)
sOut = sOut & " " &  "(" & mbSize & " MB) "
sOut = sOut & " " &  "Free: " & objItem.FreeSpace
sOut = sOut & " " &  objItem.Description
sOut = sOut & " " &  "Type: " & objItem.DriveType
sOut = sOut & " " &  "FS:" & objItem.FileSystem
sOut = sOut & " " &  "MediaType: " & objItem.MediaType
      WScript.Echo sOut
	'end if
   Next

СD и прочий хлам может отфильтровать по MediaType