WSH: как получить размер кластера?

m=GetObject('winmgmts:').instancesOf('CIM_StorageExtent');
for(n=new Enumerator(m);!n.atEnd();n.moveNext()){
  if(n.item().systemCreationClassName==null){
    WScript.Echo(
     'VolumeName:\t'+n.item().name+
     '\nClusterSize:\t'+n.item().blockSize+
     '\nFreeSpace:\t'+n.item().freeSpace
    );
  }
}

var
 f=new ActiveXObject('Scripting.fileSystemObject'),
 m='DeviceID;Name;BlockSize;CreationClassName;SystemCreationClassName;Path_',
 n=new Enumerator(GetObject('winmgmts:').instancesOf('CIM_StorageExtent'));

for(var n;!n.atEnd();n.moveNext()){
  m+='\n'+n.item().deviceID+';'+n.item().name+';'+n.item().blockSize+';'+
   n.item().creationClassName+';'+n.item().systemCreationClassName+';'+
   n.item().path_;
   
}
with(f.openTextFile('test.csv',2,true)){
  write(m);
  close();
}

DeviceID;Name;BlockSize;CreationClassName;SystemCreationClassName
Memory Device 0;Устройство памяти;null;Win32_MemoryDevice;Win32_ComputerSystem
Memory Device 1;Устройство памяти;null;Win32_MemoryDevice;Win32_ComputerSystem
Memory Device 2;Устройство памяти;null;Win32_MemoryDevice;Win32_ComputerSystem
Memory Device 3;Устройство памяти;null;Win32_MemoryDevice;Win32_ComputerSystem
Memory Array 0;Массив памяти;null;Win32_MemoryArray;Win32_ComputerSystem
Cache Memory 0;Кэш-память;1024;Win32_CacheMemory;Win32_ComputerSystem
Cache Memory 1;Кэш-память;1024;Win32_CacheMemory;Win32_ComputerSystem
Cache Memory 2;Кэш-память;1024;Win32_CacheMemory;Win32_ComputerSystem
Disk #1, Partition #0;Диск #1, раздел #0;512;Win32_DiskPartition;Win32_ComputerSystem
Disk #0, Partition #0;Диск #0, раздел #0;512;Win32_DiskPartition;Win32_ComputerSystem
Disk #0, Partition #1;Диск #0, раздел #1;512;Win32_DiskPartition;Win32_ComputerSystem
Disk #0, Partition #2;Диск #0, раздел #2;512;Win32_DiskPartition;Win32_ComputerSystem
Disk #2, Partition #0;Диск #2, раздел #0;512;Win32_DiskPartition;Win32_ComputerSystem
A:;A:;null;Win32_LogicalDisk;Win32_ComputerSystem
C:;C:;null;Win32_LogicalDisk;Win32_ComputerSystem
D:;D:;null;Win32_LogicalDisk;Win32_ComputerSystem
E:;E:;null;Win32_LogicalDisk;Win32_ComputerSystem
F:;F:;null;Win32_LogicalDisk;Win32_ComputerSystem
G:;G:;null;Win32_LogicalDisk;Win32_ComputerSystem
H:;H:;null;Win32_LogicalDisk;Win32_ComputerSystem
I:;I:;null;Win32_LogicalDisk;Win32_ComputerSystem
J:;J:;null;Win32_LogicalDisk;Win32_ComputerSystem
K:;K:;null;Win32_LogicalDisk;Win32_ComputerSystem
L:;L:;null;Win32_LogicalDisk;Win32_ComputerSystem

Option Explicit

Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemObjectEx_Win32_Volume
Dim objSWbemObjectEx_Win32_DefragAnalysis

Dim boolDefragRecommended


strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

For Each objSWbemObjectEx_Win32_Volume In objSWbemServicesEx.InstancesOf("Win32_Volume")
    With objSWbemObjectEx_Win32_Volume
        WScript.Echo "-----------------------------------"
        WScript.Echo "Drive:", .DriveLetter, "(" & .Label & ") [" & .DeviceID & "]"
        WScript.Echo "-----------------------------------"
        WScript.Echo "Serial number:               ", Left(Hex(.SerialNumber), 4) & "-" & Right(Hex(.SerialNumber), 4)
        WScript.Echo "Volume automount/boot/system:", Array("Yes", "No")(Abs(Not .Automount)) & "/" & Array("Yes", "No")(Abs(Not .BootVolume)) & "/" & Array("Yes", "No")(Abs(Not .SystemVolume))
        WScript.Echo "Size total/free (% usage):   ", FormatNumber(.Capacity / (2 ^ 30), 1) & " Gb/" & FormatNumber(.FreeSpace / (2 ^ 30), 1) & " Gb (" & FormatPercent((.Capacity - .FreeSpace) / .Capacity, 1) & ")"
        WScript.Echo "Drive type (File system):    ", Array("Unknown", "No Root Directory", "Removable Disk", "Local Disk", "Network Drive", "Compact Disk", "RAM Disk")(.DriveType) & " (" & .FileSystem & ")"
        
        If .DefragAnalysis(boolDefragRecommended, objSWbemObjectEx_Win32_DefragAnalysis) = 0 Then
            WScript.Echo "Block size/Cluster size:     ", .BlockSize & " b/" & objSWbemObjectEx_Win32_DefragAnalysis.ClusterSize & " b"
        End If
        
        Set objSWbemObjectEx_Win32_DefragAnalysis = Nothing
        
        WScript.Echo "-----------------------------------"
        WScript.Echo
    End With
Next

Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0