Add(MainForm,2953706,21,105){
 link(onCreate,9037888:doEnum,[])
}
Add(VBJScript,9037888,161,119)
{
 WorkPoints=#6:doEnum|
 EventPoints=#6:onEnum|
 Script=#23:Sub doWork(Data, Index)|18: Select Case Index|18:   Case "doEnum"  |3:   |61:Set objWMIService = GetObject("winmgmts:\\." & "\root\CIMV2")|6:      |80:     For Each obj in objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk") |31:            sys.onEnum obj.Name|18:        Next      |77:     For Each obj in objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive")|32:            sys.onEnum obj.Model|13:        Next |14:              |10:End Select|8:End Sub |
 UseName=0
 link(onEnum,15612168:doAdd,[])
}
Add(Memo,15612168,252,119)
{
 Left=250
 Top=115
 Align=5
}

foreach ($Drive in Get-WmiObject win32_diskDrive ){
    foreach ($Partition in gwmi -query ('associators of {win32_diskdrive.deviceid="'+$Drive.deviceid.replace('\','\\')+'"} where assocclass = win32_diskDriveToDiskPartition'))
    {
        foreach ($Disk in gwmi -query ('associators of {win32_diskpartition.deviceid="'+$Partition.deviceID+'"} where assocclass = win32_logicalDiskToPartition'))
        {
           write-host "$($Disk.DeviceID)*$($Disk.FileSystem)*$($Drive.caption)*$($Disk.Size)_$($Drive.Size)*$($Disk.VolumeName)*$($Partition.name)*$($Partition.BootPartition) "
        }
    }
}
powershell