use strict;
use Data::Dumper;
use Win32::NetResource qw(:DEFAULT GetSharedResources GetError);

#my $resources = \();
my @resources = ();

if (GetSharedResources(\@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";
}