use Win32::Lanman;
use Win32::Adminmisc;
use Date::Manip;

@server=qw(serveur1 serveur2 serveur3);
$limite=10000000;
$share="";

for $server (@server)
{
	@disks=qw();
	if(!Win32::Lanman::NetServerDiskEnum("\\\\$server", \@disks)) 
	{ # print "error on $server, something went wrong; error: ";
 	# get the error code 
 	# print Win32::Lanman::GetLastError();
 	# exit 1; 
 	}
	foreach $disk (@disks) { 
		$share=$disk;
		$share=~s/:/\$/;
		($nowsec,$nowmin,$nowhour,$nowmday,$nowmon,$nowyear,$nowwday,$nowyday,$nowisdst) = localtime(time());
  		($Total, $Free) = Win32::AdminMisc::GetDriveSpace("\\\\$server\\$share\\");
  		$pourcent=($Free/$Total) * 100  if ($Total ne "" );
        	print "$server,$disk,$nowyear$nowmon$nowmday,$nowhour:$nowmin,$pourcent,$Total,$Free\n" if ($Total ne "" );
	}
}