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