Welcome to the monastery!,

For whatever reason GetDrive is failing on your Y: drive. This means $d is left uninitialized and causes errors when you try to dereference it in the following lines. Change that GetDrive line to this:

my $d = $fs->GetDrive('Y:') or die "GetDrive failed $!";
[download]

I get a similiar error when checking my CD drive when there's no CD in it, perhaps you should check the drive's isReady property.

The below code works (for me) for fixed drives, available network shares, "ready" removable drives and gives "uninitialized" errors on "not-ready" removables - except for the DriveLetter, DriveType and isReady properties.

(BTW if called from the command line (I use DWIM perl), I get a "drive not ready" dialogue in the latter case. When called from Padre, the "uninitialized" comes directly)

use warnings;
use strict;
use Win32::OLE 'in';

my $fs = Win32::OLE->CreateObject('Scripting.FileSystemObject');
for ( in $fs->Drives ) { 
    print "$_->{DriveLetter}:\n";
    my $d = $fs->GetDrive( $_->DriveLetter );
    for (
        qw(DriveLetter DriveType IsReady FileSystem TotalSize FreeSpac
+e AvailableSpace)
      )
    {
        print "$_: $d->{$_}\n";
    }
}
[download]

If you want to avoid that dialog, use SetErrorMode.

Ah, that's probably what Padre does, then. Thanks ;)

Here is the result after adding or die "GetDrive failed $!"; in the script

Global symbol "$fs" requires explicit package name at E:\APPL\OEM\NetworkDriveCheck.pl line 9. Execution of E:\APPL\OEM\NetworkDriveCheck.pl aborted due to compilation errors.

You have a syntax error in your edit. Likely a missing semicolon at the end of a line.

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;
[download]

I have been looking and I do not see any syntax errors. any suggestions?

Hi Guys

I tested the or die "GetDrive failed $! options and it looped with not results.

As for the Y drive is mapped network drive coming from another computer. What can I do to get this working ?

What do you mean that it loops with no results? It should have died and given you an error message instead of the errors that you reported in your initial post. What was the error message that it gave you once you added the or die ... statement?

For whatever it's worth, it works here on a network mapped drive. It may well be a permission problem you're having. The script context may not have enough privilege to access the network drive... just a guess.