Hi,

I'm trying to get a list of network shares for a specific host using win32::api NetShareEnum.

Here's my code:
-----------------

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,$entries
+read,  $totalentries, $resume_handle);
[download]

------------

And this crashes Perl.exe

What am I doing wrong?