Win32::NetAdmin::LocalGroupGetMembers

From: Perl.Org (perl.org_at_jpw3.com)
Date: 06/25/04

  • Next message: Beau E. Cox: "Re: Elegant quoted word parsing" 
    To: beginners@perl.org
Date: Fri, 25 Jun 2004 17:40:05 -0400

    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',
    \@{users} )))
    {
            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.

  • Next message: Beau E. Cox: "Re: Elegant quoted word parsing"