用于从组中删除用户的 Perl 或 Python 脚本

Question

我正在将一个基于 Samba 的服务器作为主域控制器，但遇到了一个本来应该多次解决的可爱小问题。 但多方搜寻均未有结果。 我需要能够使用命令行脚本从现有组中删除现有用户。 看来 usermod 可以轻松地允许我使用以下命令将用户添加到补充组：

usermod -a -G supgroup1,supgroup2 username

如果没有“-a”选项，如果用户当前是未列出的组的成员，则该用户将从补充组中删除团体。 有没有人有允许删除用户和组规范的 perl（或 Python）脚本？ 我是否缺少明显的现有命令或众所周知的解决方案？ 提前致谢！

感谢 JJ 提供了指向 Unix::Group 模块的指针，该模块是 Unix-ConfigFile 的一部分。 看起来命令 deluser 可以执行我想要的操作，但不在我现有的任何存储库中。 我继续使用 Unix:Group 模块编写了 perl 脚本。 这是供您享受系统管理乐趣的脚本。

#!/usr/bin/perl
#
# Usage:   removegroup.pl login group
# Purpose: Removes a user from a group while retaining current primary and
#          supplementary groups.
# Notes:   There is a Debian specific utility that can do this called deluser,
#          but I did not want any cross-distribution dependencies
#
# Date:   25 September 2008

# Validate Arguments (correct number, format etc.)
if ( ($#ARGV < 1) || (2 < $#ARGV) ) {
  print "\nUsage: removegroup.pl login group\n\n";
  print "EXIT VALUES\n";
  print "     The removeuser.pl script exits with the following values:\n\n";
  print "     0 success\n\n";
  print "     1 Invalid number of arguments\n\n";
  print "     2 Login or Group name supplied greater than 16 characters\n\n";
  print "     3 Login and/or Group name contains invalid characters\n\n";
  exit 1;
}

# Check for well formed group and login names
if ((16 < length($ARGV[0])) ||(16 < length($ARGV[1])))
{
  print "Usage: removegroup.pl login group\n";
  print "ERROR: Login and Group names must be less than 16 Characters\n";
  exit 2;
}

if ( ( $ARGV[0] !~ m{^[a-z_]+[a-z0-9_-]*$}) || ( $ARGV[0] !~ m{^[a-z_]+[a-z0-9_-]*$} ) )
{
  print "Usage: removegroup.pl login group\n";
  print "ERROR: Login and/or Group name contains invalid characters\n";
  exit 3;
}

# Set some variables for readability
$login=$ARGV[0];
$group=$ARGV[1];

# Requires the GroupFile interface from perl-Unix-Configfile
use Unix::GroupFile;

$grp = new Unix::GroupFile "/etc/group";
$grp->remove_user("$group", "$login");
$grp->commit();
undef $grp;
exit 0;

Answer 1

Web 链接： http://www.ibm.com/developerworks/linux/ library/l-roadmap4/

要将成员添加到组中，请使用带有 -a 开关的 gpasswd 命令和您要添加的用户 ID：

gpasswd -a userid mygroup

使用相同的命令从组中删除用户，但 -d 开关而不是 -a：

gpasswd -d userid mygroup

“man gpasswd”以获取更多信息...

我寻找了很长时间才找到这个。 有时需要付出太多的努力才能不重新发明轮子......

Answer 2

我为你找到了这个。 它应该做你需要的事情。 据我所知，Perl 没有任何内置函数用于从组中删除用户。 它有几个用于查看用户或进程的组 ID。

Answer 3

看起来 deluser --group [groupname] 应该这样做。

如果没有，groups 命令会列出用户所属的组。 应该相当简单地使用一些 Perl 将该列表捕获到数组中（或将其映射到散列中），删除不需要的组，然后将其反馈给用户模式。

Answer 4

这是一个非常简单的小 Perl 脚本，它应该为您提供所需的组列表：

my $user = 'user';
my $groupNoMore = 'somegroup';
my $groups = join ',', grep { $_ ne $groupNoMore } split /\s/, `groups $user`;

获取和清理所需的参数留给读者作为练习。