I just tried this on my Win2000 client machine and it gave the following: $VAR1 = 'Administrator'; $VAR2 = 'Mike Flannigan';
So it appeared to work to me. It made no sounds. Mike > Subject: Win32::NetAdmin::LocalGroupGetMembers > Date: Fri, 25 Jun 2004 17:40:05 -0400 > From: "perl.org" <[EMAIL PROTECTED]> > To: [EMAIL PROTECTED] > > 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 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
