DWORD WNetEnumResource(
  HANDLE hEnum,
  LPDWORD lpcCount,
  LPVOID lpBuffer,
  LPDWORD lpBufferSize
);

##</code><code>##

my $WNetEnumResource= new Win32::API ("mpr", "WNetEnumResource", "VPPP", "I") or die;
my $count= pack ("V", -1);
my $bufsize= 5000;
$buffer= 'x' x (1+$bufsize);
for (;;) {
   $bufsize= pack ("V", 5000);
   $result= $WNetEnumResource->Call ($handle, $count, $buffer, $bufsize);
   print "result for WNetEnumResource is $result\n";
   last if $result != 0;
   print "count=$count, bufsize=$bufsize\n";
   print $buffer;  # just to see if it's not all x's.
   }