#! /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";
}