I need to get the members of a local group on a Windows 2000 server.  I was
reading the docs for Win32::NetAdmin
(http://perlhelp.web.cern.ch/PerlHelp/site/lib/Win32/NetAdmin.html) which
looks like the  place to start, but it is giving me weird results (including
beeps).  Any suggestions?  SIDs I could understand, but a repeated binary
value is a little weird.

C:\temp>type try.ipl
use strict;

use Data::Dumper;

use Win32::NetAdmin;

my @{users} = ();

if ( ! Dumper( Win32::NetAdmin::LocalGroupGetMembers( '', 'administrators',
[EMAIL PROTECTED] )))
{
        print 'LocalGroupGetMembers call failed.' . ${/};
}

print Dumper( @{users} );

C:\temp>iwperl try.ipl
$VAR1 = '?好w?4';
$VAR2 = '?好w?4';
$VAR3 = '?好w?4';
$VAR4 = '?好w?4';
$VAR5 = '?好w?4';
$VAR6 = '?好w?4';
$VAR7 = '?好w?4';
$VAR8 = '?好w?4';
$VAR9 = '?好w?4';
$VAR10 = '?好w?4';
$VAR11 = '?好w?4';
$VAR12 = '?好w?4';
$VAR13 = '?好w?4';
$VAR14 = '?好w?4';
$VAR15 = '?好w?4';
$VAR16 = '?好w?4';
$VAR17 = '?好w?4';
$VAR18 = '?好w?4';
$VAR19 = '?好w?4';
$VAR20 = '?好w?4';
$VAR21 = '?好w?4';
C:\temp>iwperl -v

This is perl, version 5.005_03 built for MSWin32-x86

Copyright 1987-1999, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5.0 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to