Hello,
I've managed to reduce some code I have been using to an acceptable minimum that will allow duplication of the problem I'm seeing.
The code is only 40 lines. The code below has an array initialized with some windows machine names. The code attempts to attach to the registry of each machine. These machines are all active on the network. I have remote registry access to the first two machines in the array but not the rest. I'm hoping it should be fairly easy for someone to duplicate this situation.
Anyway, the actual problem I'm experiencing is that if I do not have permission to connect to a remote registry the code should - after about 35 seconds - print "unable to connect to registry!" and then move on to the next machine. It does this fine.
However if I uncomment the line that reads:
$text_sid = SID_bin2text($sid);
the code is then stuck when attempting to connect to the registry of a machine I do not have rights to. It sits there forever and I don't get the "unable to connect to registry!" message.
There's some sort of conflict going on here but I don't quite know where.
How can I fix this problem?
Thanks,
PJ

code is below

use Win32::TieRegistry( Delimiter=>"#" );
use Win32;

$nodename = $ENV{COMPUTERNAME};
$domain = "dpcdom";
@node_list = ("adledsu11", "adldpca03","dpc011510141",  dpc011510143",
+ "dpc011510157");
foreach $node (@node_list) {
    print "\n$node\n";
    undef $hkey_connect;
    $Register = "SYSTEM#CurrentControlSet#Control#ProductOptions";
    if ($nodename eq $node) {
        $hkey_connect = $Registry->{"LMachine#"};
    } else {
        $hkey_connect = $Registry->Connect($node,
"LMachine#", {Access=>KEY_READ});
    }
    if ($hkey_connect) {
        print "successful connection to $node ...\n";
        $server_role =
$hkey_connect->{"$Register#ProductType"};
        print "    server_role is $server_role\n";
# # # Get Administrator account text SID
        if ($server_role eq "Primary Domain Controller" or
$server_role eq "Domain Controller") {
            Win32::LookupAccountName("\\\\$node", $domain,
$garbage, $sid, $sid_type);
        } else {
            Win32::LookupAccountName("\\\\$node", $node,
$garbage, $sid, $sid_type);
        }
        my $text_sid = "default";
#        $text_sid = SID_bin2text($sid);
        print "    text_sid is $text_sid\n";
    } else {
        print "unable to connect to registry!\n";
    }
}

sub SID_bin2text {
  my($bin) = @_;
  my ($Revision, $SubAuthorityCount,
@IdentifierAuthorities) = unpack("CCnnn", $bin);
  ($IdentifierAuthorities[0] ||
$IdentifierAuthorities[1]) and return;
  my($temp, $temp2, @SubAuthorities) =
unpack("VVV$SubAuthorityCount",$bin);
  return
"S-$Revision-$IdentifierAuthorities[2]-".join("-",@SubAuthorities);
}
[download]