Hi,
Here is the script
#!perl
use warnings;
use strict;
use Win32::OLE;
my $d = $fs->GetDrive('Y:') or die ;
my $TotalSize = $d->{TotalSize};
my $FreeSpace = $d->{FreeSpace};
my $usedSpace = $d->{TotalSize} -= $d->{FreeSpace};
my $AvailableSpace = $d->{AvailableSpace} *=100;
my $AvailUsed = $AvailableSpace /= $d->{TotalSize};
my $SpaceLeft = $d->{AvailableSpace} /= $AvailUsed;
my $MappedDriveSpaceAvailable = $AvailUsed *= 100;
print $MappedDriveSpaceAvailable;
I have been looking and I do not see any syntax errors. any suggestions?