#
# This example displays all the share points in the entire
# visible part of the network.
#

use strict;
use Win32::NetResource qw(:DEFAULT GetSharedResources GetError);
my $resources = [];
unless(GetSharedResources($resources, RESOURCETYPE_ANY)) {
    my $err = undef;
    GetError($err);
    warn Win32::FormatMessage($err);
}

foreach my $href (@$resources) {
    next if ($$href{DisplayType} != RESOURCEDISPLAYTYPE_SHARE);
    print "-----\n";
    foreach( keys %$href){
        print "$_: $href->{$_}\n";
    }
}


##</code><code>##

Can't load 'C:/Perl/site/lib/auto/Win32/NetResource/NetResource.dll' for module Win32::NetResource: load_file:A device attached to the system is not functioning at C:/Perl/lib/DynaLoader.pm line 206.
   at netresource.pl line 7
Compilation failed in require at netresource.pl line 7.
BEGIN failed--compilation aborted at netresource.pl line 7.

##</code><code>##

# Many dynamic extension loading problems will appear to come from
# this section of code: XYZ failed at line 123 of DynaLoader.pm.
# Often these errors are actually occurring in the initialisation
# C code of the extension XS file. Perl reports the error as being
# in this perl code simply because this was the last perl code
# it executed.