I believe you can use Win32::DriveInfo, I know it works for win98, never tried on winNT

#!/Perl/bin/perl -w
use strict;
use Win32::DriveInfo;

my @drives = Win32::DriveInfo::DrivesInUse();
[download]

should give you all the drives that are in use
hth