perlquestion
jesuashok
monks,
<p>
Executed the below code.
<code>
use strict;
use Data::Dumper;
use Win32::NetResource qw(:DEFAULT GetSharedResources GetError);
if (GetSharedResources(my $resources, RESOURCETYPE_DISK,
{ RemoteName => "192.168.10.67"}))
{
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";
}
</code>
Output :-
<code>
C:\Perl>perl resource.pl
GetSharedResources Success
$VAR1 = [
undef
];
</code>
any clue ?
<br>
<b>Update:</b> Executed the above code as normal user in windows.
</p>
<div class="pmsig"><div class="pmsig-395537">
"Keep pouring your ideas"
</div></div>