Help for this page
DWORD WNetEnumResource( HANDLE hEnum, ... LPVOID lpBuffer, LPDWORD lpBufferSize );
my $WNetEnumResource= new Win32::API ("mpr", "WNetEnumResource", "VPPP +", "I") or die; my $count= pack ("V", -1); ... print "count=$count, bufsize=$bufsize\n"; print $buffer; # just to see if it's not all x's. }