Hi, I looked in my Roths Win32 Perl Scripting book and found several references to backing up and restoring machine and user accounts (pg 129). Also chapter 2 talks about Account Maintenance. I could only find a small reference on pg 200 that talks about group membership. I'll type it up if you like.

Most of the scripts relating to user and group stuff is Lanman though, maybe worth a look..? (Btw I think Jenda is responsible for this..)

This may also be worth a look..

I then looked at my Roths Win32 Perl Programming bookand think I found what you are looking for. On page 126 there is a section about Group Account Management which talks about Adding groups and adding users to groups. So here is a quick snippet. it uses win32::netadmin.

#! /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, \@u
+sers);
if ($result) {
    print "Successfully added users to $group\n";
}
else {
    print "Failed to add users to $group\n";
}
[download]

Update: cpan:Win32::NetAdmin does have the following which may help

GroupGetMembers(server, groupName, userArrayRef)

Fills userArrayRef with the members of groupName.
[download]

LocalGroupGetMembers(server, groupName, userArrayRef)

Fills userArrayRef with the members of groupName.
[download]

GroupAddUsers(server, groupName, users)

Adds a user to a group.
[download]

LocalGroupAddUsers(server, groupName, users)

Adds a user to a group.
[download]