use Win32::DriveInfo;
use Win32::NetAdmin qw(GetServerDisks);

$|=1;

my @ServerList = qw(server0001 server0002 server0003 server0004);

foreach $server ( @ServerList ) {

		 GetServerDisks("\\\\$server", \@disks);

		 print "Server: $server\n";

		 foreach $disk ( @disks ) {

		 		 chop $disk;

		 		 next if ($disk =~ /A|B/);

		 		 @DriveInfo =
Win32::DriveInfo::DriveSpace("\\\\$server\\$disk\$");

		 		 $total = int $DriveInfo[5] / (1024 * 1024);
		 		 $free = int $DriveInfo[6] / (1024 * 1024);

		 		 print "Disk $disk\n";
		 		 print "Total space: $total MBytes\n";
		 		 print "Free space:  $free MBytes\n";
		 }

		 print "\n";

}