hugh s wrote:
> Does GetGroups work on an xp sp2 box?
>
> I've tried every permutation with this.
> Running a script with a call to GetGroups pegs the
> cpu for about a min, then the script just dies.
>
> use Win32::AdminMisc;
> print qq/Get groups now\n/;
> Win32::AdminMisc::GetGroups("machineName", GROUP_TYPE_GLOBAL,
> [EMAIL PROTECTED]);
>
> Also tried machineName with the \\.
> ran ppm and upgraded everything
> What am I doing wrong?
I get 'None' after about 3 seconds. _LOCAL gets better results.
# version = 20000708
use strict;
use Win32::AdminMisc;
print "Get groups now\n";
my @groups;
Win32::AdminMisc::GetGroups('', GROUP_TYPE_LOCAL, [EMAIL PROTECTED]);
print "groups='@groups'\n";
__END__
Get groups now
groups='Administrators Backup Operators Guests Network Configuration Operators Power
Users Remote Desktop Users Replicator Users Debugger Users HelpServicesGroup'
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
