#!/usr/bin/perl -s
use strict;
open (FILEHANDLE, "<servers.txt");

while (<FILEHANDLE>)
{
my $ServerName = <FILEHANDLE>;
$ServerName = substr($ServerName, 0, -1);
print "\n";
print "Checking $ServerName..........\n";

my $ServerSpaceC = `cmd.exe /c dir "\\\\\"$ServerName"\\c\$" | find /i "bytes free"`;
my $ServerSpaceD = `cmd.exe /c dir "\\\\\"$ServerName"\\d\$" | find /i "bytes free"`;

print "*********** $ServerName : Space Available *************\n\n";

$ServerSpaceC = substr($ServerSpaceC, 25);
$ServerSpaceC = substr($ServerSpaceC, 0, - 11);
$ServerSpaceC =~ s/,//gi;

$ServerSpaceD = substr($ServerSpaceD, 25);
$ServerSpaceD = substr($ServerSpaceD, 0, - 11);
$ServerSpaceD =~ s/,//gi;

my $availServerSpaceC = $ServerSpaceC / 1024 / 1024 / 1024;
my $availServerSpaceD = $ServerSpaceD / 1024 / 1024 / 1024;

if ($ServerSpaceC <= 999999999)
{
$availServerSpaceC = $availServerSpaceC * 1024;
print "$ServerName C: Drive: $availServerSpaceC MB Free Space\n";
print " Please clean up D: Drive space on $ServerName\n\n";
}
else
{ 
print "$ServerName C: Drive: $availServerSpaceC GB Free Space\n";
}
if ($ServerSpaceD <= 999999999)
{
$availServerSpaceD = $availServerSpaceD * 1024;
print "$ServerName D: Drive: $availServerSpaceD MB Free Space\n";
print " Please clean up D: Drive space on $ServerName\n\n";
}
else
{ 
print "$ServerName D: Drive: $availServerSpaceD GB Free Space\n";
}
print "\n";
	
print "************ End $ServerName : Space Report *****************\n\n";
}
close(FILEHANDLE);


****Test File
server1234
server2345
server5566