Can also work off the list of available drives: (tye)Re: List of Mounted Drives on Win32

use strict;
use Win32API::File qw(getLogicalDrives GetVolumeInformation );

my @drives = getLogicalDrives();
for my $d (@drives) {
    my @x = (undef)x7;
    GetVolumeInformation( $d, @x );
    print "$d $x[0] ($x[5])\n";
}
[download]

- Miller