#! /usr/bin/perl


use Win32::NetAdmin;

my $machine	= "\\\\server1";
my $group		= "TestGroup";
my @users 	= qw(AcidHawk Fred Sally Bill);
my $server 	= "";


Win32::NetAdmin::GroupCreate( $machine, $group, "This is a test group") or die "Cannot create group\n";

my $result = Win32::NetAdmin::LocalGroupAddUsers( $server, $group, \@users);
if ($result) {
	print "Successfully added users to $group\n";
}
else {
	print "Failed to add users to $group\n";
}


##</code><code>##

GroupGetMembers(server, groupName, userArrayRef)

Fills userArrayRef with the members of groupName. 


##</code><code>##

LocalGroupGetMembers(server, groupName, userArrayRef)

Fills userArrayRef with the members of groupName. 

##</code><code>##

GroupAddUsers(server, groupName, users)

Adds a user to a group.

##</code><code>##

LocalGroupAddUsers(server, groupName, users)

Adds a user to a group.