Problems with Win32::NetResource Snippet

jlongino has asked for the wisdom of the Perl Monks concerning the following question:

I was researching a response to an recent node and found a snippet in the perldocs for Win32::NetResource. Out of curiosity I tried running the snippet but it doesn't compile and I'm not sure why or what (if anything) can be done to fix it. This was cut/pasted straight from the perldocs:

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

When I try to run it, I get the following error messages:

Can't load 'C:/Perl/site/lib/auto/Win32/NetResource/NetResource.dll' f
+or module Win32::NetResource: load_file:A device attached to the syst
+em 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.
[download]

Above the trouble spot in DynaLoader.pm, are the following comments:

# 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.
[download]

I have verified that 'C:/Perl/site/lib/auto/Win32/NetResource/NetResource.dll' exists. Any help/suggestions would be greatly appreciated.

--Jim

Comment on Problems with Win32::NetResource Snippet Select or Download Code

Replies are listed 'Best First'.
Re: Problems with Win32::NetResource Snippet by grep (Monsignor) on Dec 27, 2001 at 13:57 UTC
It seem only to run on NT. Here are the results I got on M$ 2000 Server. I did get the same error on 98. ----- LocalName: Comment: Usage: 1 DisplayType: 3 Provider: Microsoft Windows Network RemoteName: \\MUNGEDNAME\MUNGED Scope: 2 Type: 1 grep grep> cd pub grep> more beer	[reply]
Re: Problems with Win32::NetResource Snippet by jlongino (Parson) on Dec 28, 2001 at 22:31 UTC
Thanks to grep for determining the NT requirement and to crazyinsomniac for noting that the perldoc doesn't include that tidbit of info. As per the suggestion by crazyinsomniac, I emailed the current maintainer about the omission. --Jim	[reply]