######
## try WNetOpenEnum et.al. to find connections w/o letters.

my $WNetOpenEnum= new Win32::API ("mpr", "WNetOpenEnum", "IIIIP", "N") or die;
$handle= 'xxxx';  # allocate 4 bytes
use constant RESOURCE_CONNECTED => 0x00000001;
use constant RESOURCETYPE_DISK => 0x00000001;
$result= $WNetOpenEnum->Call (RESOURCE_CONNECTED, RESOURCETYPE_DISK, 0, 0, $handle);
print "result for WNetOpenEnum is $result\n";

my $WNetEnumResource= new Win32::API ("mpr", "WNetEnumResource", "PPPP", "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.
   }