#
# This example displays all the share points exported by the local
# host.
#
use strict;
use Win32::NetResource qw(:DEFAULT GetSharedResources GetError);

if (GetSharedResources(my $resources, RESOURCETYPE_DISK,{ RemoteName => "\\\\" . Win32::NodeName() }))
    {
	foreach my $href (@$resources) {
        print "-----\n";
        foreach(keys %$href) { print "$_: $href->{$_}\n"; }
    }
}