use Win32::OLE;

use strict;
use warnings;

my $locator = Win32::OLE->new("WbemScripting.SWbemLocator");

my $wmi = $locator->ConnectServer(".");
my @shares = $wmi->ExecuteQuery("Select * from Win32_Share");

foreach my $share ( @shares )
{
	print $share->{Name},"   ", $share->{Path},"\n";
}