Enumerate all the remote drives

[Gary Chan]

I want to write a perl script that enumerates all the local drive names
that are connecting to remote drives in Windows. I think
Win32::NetResource is one of the possible module but I can't figure out
how to do this.

Can anyone help?

Gary

 

[Bob Walton]

I want to write a perl script that enumerates all the local drive names
that are connecting to remote drives in Windows. I think
Win32::NetResource is one of the possible module but I can't figure out
how to do this. ....
Gary

Win32::NetResource seems to have issues with removable-media drives with
no media loaded. You might try capturing and processing the output from
the DOS command "NET USE". Your mileage may vary depending upon your
version of Windoze. Something like:

for(`net use`){print "$1 $2\n" if /([A-Z]\s*(.*)/}

perhaps [tested on Windoze 98SE, AS Perl 806].

 

[Jay Tilton]

: I want to write a perl script that enumerates all the local drive names
: that are connecting to remote drives in Windows. I think
: Win32::NetResource is one of the possible module but I can't figure out
: how to do this.

#!perl
use warnings;
use strict;
use Win32::OLE 'in';

my $fso = Win32::OLE->new('Scripting.FileSystemObject');
for ( in $fso->Drives ) {
print "Drive $_->{DriveLetter} is a remote volume\n"
if $_->{DriveType} == 3;
}