This is Bavaria, Germany!
#!/usr/bin/perl
use strict;
use warnings;
use Win32::AdminMisc;
use Win32::NetAdmin;
# which drives are available, possible parameters are:
# DRIVE_REMOTE
# DRIVE_FIXED
# DRIVE_CDROM
# DRIVE_REMOVABLE
my @drives = Win32::AdminMisc::GetDrives(DRIVE_FIXED);
print "These fixed drives are available:\n";
foreach $drive (@drives) {
print "\tDrive $drive\n";
}
@drives = Win32::AdminMisc::GetDrives();
print "These are ALL drives here:\n";
foreach $drive (@drives) {
print "\tDrive $drive\n";
}