If people are actually going to discuss perl, I throw one out.

I've got a vendor's version of perl (uhm, my company's so replacing it
isn't an option) that I believe was compiled with some odd way of
handling multibyte characters.  And the guy who built it isn't around
right now. Grr.

Getting garbage back from Win32::NetAdmin (I know, I know, again, not
an option).  Sample script:

use Win32::NetAdmin;

my @mbrs;
my $status = Win32::NetAdmin::LocalGroupGetMembers("","Guests",\@mbrs);

print "Status= $status\n";
print scalar(@mbrs)," members in group\n";

foreach my $result (@mbrs) {
  print "line=$result\n";
}

And the output:

C:\shared>/vendor/bin/perl blah.pl
Status= 1
5 members in group
line=xn?
line=xn?
line=xn?
line=xn?
line=xn?

ActiveState perl does this:
C:\shared>/perl/bin/perl blah.pl
Status= 1
5 members in group
line=Guest
line=IUSR_MACHINE-NT
line=IWAM_MACHINE-NT
line=TsInternetUser
line=ILS_ANONYMOUS_USER

Ideas?  Suggestions? WAGs?

-- 
mike


Reply via email to