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


Executed the below code.

use strict; use Data::Dumper; use Win32::NetResource qw(:DEFAULT GetSharedResources GetError); if (GetSharedResources(my $resources, RESOURCETYPE_DISK, { RemoteName => ""})) { print "GetSharedResources Success\n"; print Dumper [ $resources ]; foreach my $href (@$resources) { print "-----\n"; foreach(keys %$href) { print "$_: $href->{$_}\n"; } } } else { print "problem in GetSharedResources\n"; }
Output :-
C:\Perl>perl GetSharedResources Success $VAR1 = [ undef ];
any clue ?
Update: Executed the above code as normal user in windows.

"Keep pouring your ideas"