http://www.perlmonks.org?node_id=117537

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

Alright when I run the following code:

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

I get the following error and I cannot figure why this is happening... I am guessing windows, but it doesn't seem to be the problem.

Can't load 'C:/Perl/site/lib/auto/Win32/NetResource/NetResource.dll' f +or module Win32::NetResource: load_file:A device attached to the system is not f +unctioning at C:/Perl/lib/DynaLoader.pm line 206. at search.pl line 6 Compilation failed in require at search.pl line 6. BEGIN failed--compilation aborted at search.pl line 6.

My goal is to write a program that scans an entire Windows Network Neighborhood for files and displays them. So, far I have had a rocky start. if anyone has anything to say about my project I welcome any thoughts.

Thanks in advance... jtarchie