use strict;
use Win32::DriveInfo;
use Win32::AdminMisc;
use Data::Dumper;

#################

my $target = '\\\\server\\c\\';

my @diskinfo = Win32::DriveInfo::DriveSpace($target);

print Dumper \@diskinfo;

#################

@diskinfo = Win32::AdminMisc::GetDriveGeometry($target);

print Dumper \@diskinfo;

exit 0;