Win32::API::Struct->typedef( _SHARE_INFO_0 => qw {
		LPWSTR shi0_netname;
	});

$NetShareEnum = new Win32::API("Netapi32", "NetShareEnum", [P,N,P,N,N,N,N], N);

$Share_Info = Win32::API::Struct->new('_SHARE_INFO_0');
$Share_Info->{shi0_netname} = " " x 255;

	my $entriesread;
	my $totalentries;
	my $resume_handle;
	my $result;
	my $server_address = "10.1.10.12";

$result = $NetShareEnum->Call($server_address, 502,$bufptr,-1,$entriesread,  $totalentries, $resume_handle);