(tye)Re: List of Mounted Drives on Win32

#!/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";
}
__END__
C:\ Local Disk (NTFS)
D:\  (NTFS)
E:\  ()
[download]