Recent versions of ActivePerl should include Win32API::File which knows how to find all mounted drives and can look up information about drives. It even comes with documentation.

If you have problems with it, let us know. I can probably even whip up a 10-line script to do that for you tomorrow when I'm not rushing to bed. (:

Well, my file copy is taking a while, so here goes:

#!/usr/bin/perl -w

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

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

Well, it isn't long on comments and I probably shouldn't recommend calling GetVolumeInformation() that way, but it mostly works for me.

        - tye (but my friends call me "Tye")