Code:
 
dim $drives
$Dsks = GetObject("winmgmts://rlg012kd").ExecQuery("select * from Win32_DiskDrive")
for each $Item in $Dsks
   redim preserve $drives[ubound($drives)+1]
   $drives[ubound($drives)]= $Item.Size ;place the data to the last element
next 

for each $d in $drives
   $d  ?
next
_________________________
Eric