Greg Foster wrote:
> Any help or knowledge anyone can pass on is greatly appreciated.
>
> Perl code follows (server name has been changed to protect the
> innocent):
>
> use Win32::AdminMisc;
> @List=();
>
> if (Win32::AdminMisc::GetGroups('\\server',GROUP_TYPE_ALL,[EMAIL PROTECTED])) {
>
> foreach $group (@List) {
>
> print "$group\n";
>
> }
>
> }
>
> print "Test done\n";
I'm on XP Pro and the following code (AdminMisc version 20000708):
use Win32::AdminMisc;
my @List = ();
Win32::AdminMisc::GetGroups('', GROUP_TYPE_ALL, [EMAIL PROTECTED]) or die "getgroups:
$!";
foreach my $group (@List) { print "ALL: $group\n"; }
Win32::AdminMisc::GetGroups('', GROUP_TYPE_ALL, [EMAIL PROTECTED]) or die "getgroups:
$!";
foreach my $group (@List) { print "LOCAL: $group\n"; }
Win32::AdminMisc::GetGroups('', GROUP_TYPE_ALL, [EMAIL PROTECTED]) or die "getgroups:
$!";
foreach my $group (@List) { print "GLOBAL: $group\n"; }
__END__
prints :
ALL: Administrators
ALL: Backup Operators
ALL: Guests
ALL: Network Configuration Operators
ALL: Power Users
ALL: Remote Desktop Users
ALL: Replicator
ALL: Users
ALL: Debugger Users
ALL: HelpServicesGroup
ALL: None
LOCAL: Administrators
LOCAL: Backup Operators
LOCAL: Guests
LOCAL: Network Configuration Operators
LOCAL: Power Users
LOCAL: Remote Desktop Users
LOCAL: Replicator
LOCAL: Users
LOCAL: Debugger Users
LOCAL: HelpServicesGroup
LOCAL: None
GLOBAL: Administrators
GLOBAL: Backup Operators
GLOBAL: Guests
GLOBAL: Network Configuration Operators
GLOBAL: Power Users
GLOBAL: Remote Desktop Users
GLOBAL: Replicator
GLOBAL: Users
GLOBAL: Debugger Users
GLOBAL: HelpServicesGroup
GLOBAL: None
--
,-/- __ _ _ $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
