Thanks. I hadn't thought to try this on my workstation but it works there, so my guess is it's the version of Perl on the server (I don't think the library is corrupt since I get the same results in dev and prod). Unfortunately this is from the vendor so I can't fix it.
This is perl, version 5.005_03 built for MSWin32-x86 Is there any way to get the users in a group in this version of Perl? On Mon, 28 Jun 2004 09:57:36 -0500, Mike Flannigan wrote > 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> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
