Возникла необходимость разделять доступ пользователей сквид по группам AD.
Утилита wbinfo_group.pl, идущая со сквидом при большом числе запросов валила сквид
и были проблемы с кешированием данных. Возникла идея написать скрипт,
который через rpc запрос забирал членов необходимых доменных групп и скидывал их в текстовые файлы
на сервере, одновременно определяя изменения в них и при необходимости перегружая squid.

#!/usr/bin/perl -w

use Text::Diff;

$login="testlogin";
$password="secret_password";
$domain="MYDOMAIN";
$dc="dc.domain.ru";
$path="/usr/local/etc/squid/acl";
$reload_squid_cmd="/usr/local/sbin/squid -k reconfigure";
@ADgroups = ("inet_users","inet_vip","inet_sluz","inet_block");

foreach $group (@ADgroups)
    {
    @group_check= sort `/usr/local/bin/net rpc group MEMBERS $group -U $login%$password -S $dc`;
    @group_check = grep {/^$domain\\/} @group_check;
    $col=@group_check;  
    my $diff = diff \@group_check,  "$path/$group.acl";
        if ($diff and $col) {
            open (GROUPFILE, ">$path/$group.acl") or die "Can't create $group.acl: $!";
            print GROUPFILE @group_check;
            $reconfigure++;
        }
    close GROUPFILE;
}
system("$reload_squid_cmd") if ($reconfigure);

Данный скрипт вешается в cron и запускается раз в 5 минут

Доработанная версия, изменения:

-поддержка пользователей и групп из доверенных доменов
-поддержка вложенных груп(т.е групп, содержащих в себе другие группы)
-возможность указания более одного контроллера домена
-отправка уведомлений по почте администратору о изменениях в группах

#!/usr/bin/perl -w

use Text::Diff;

$login="mylogin";
$password="cool_password";
$samba_prefix="/usr/local";
$winbind_separator="\\";
@group_domain = ("DOMAIN1\\inet_users","DOMAIN1\\inet_vip","DOMAIN2\\inet_sluz");
%domain_dc = (
            'DOMAIN1' => [ 'dc.domain1.ru','bdc.domain1.ru' ],
            'DOMAIN2'  => [ 'ad1.domain2.ru','ad2.domain2.ru' ]
             );
$acl_path="/usr/local/etc/squid/acl";
$reload_squid_cmd="/usr/local/sbin/squid -k reconfigure";

sub IsGroup
{
    my $item = shift;
    foreach $dc_group (@dc_groups) {
        return 1 if ($item =~ /^\Q$dc_group\E$/i);
    }
#    print "$item\n";
    return 0;
}

sub extractusers
{
    my $group = shift;
    my @group_sostav;
    (my $domain, $group) = split(/\Q$winbind_separator\E/, uc($group), 2);
#    print "$domain $group\n";
    foreach $dc (@{ $domain_dc{$domain} }) {
#       print "$dc\n";
        @group_sostav = `$samba_prefix/bin/net rpc group MEMBERS "$group" -U $login%$password -S $dc`;
        chomp(@group_sostav);
        @group_sostav = grep { /^\w+\\.+/i } @group_sostav;
        @group_sostav = grep { !/.+\$$/i } @group_sostav;
#       print "@group_sostav\n";
        last if @group_sostav;
    }
    foreach my $login (@group_sostav)   {
        $login =~ s/(\w+)\\(.+)/\L$1$winbind_separator$2\E/o;
        my $isgroup = IsGroup($login);
        extractusers($login) if $isgroup;
        push (@users,"$login\n") if !$isgroup;
    }
}

@dc_groups = `$samba_prefix/bin/wbinfo -g`;
chomp(@dc_groups);

foreach $group (@group_domain)
{
    local @users;
    extractusers($group);
    my %Users = ();
    my @unique = sort {uc($a) cmp uc($b)} grep{!$Users{$_}++}@users;
    my $count = @unique;
    my $diff = diff "$acl_path/$group.acl", \@unique;
    if ($diff and $count) {
        print "Internet acl group <$group> change:\n";
        print "$diff\n" if $diff;;
        open (GROUPFILE, ">$acl_path/$group.acl") or die "Can't create $group.acl: $!";
        print GROUPFILE @unique;
        close GROUPFILE;
        $reconfigure++;
    }
}

system("$reload_squid_cmd") if ($reconfigure);

URL:
Обсуждается: http://www.opennet.me/tips/info/1007.shtml

• Авторизация в squid по группам AD,quadrik, 15:44 , 01-Дек-06
• Авторизация в squid по группам AD,vvlad, 19:55 , 02-Ноя-09

у меня в сети второй скрипт заставить работать так и не смог.
Я не силен в перое, но тем не менее, переделал ваш первый скрипт и сделал нечто среднее между первыйм и вторым =) вот что у меня получилось:
#!/usr/bin/perl -w

use Text::Diff;

# логин для общения с контроллером домена у всех одинаков
$login="null";
$password="c00l_password";

# главный домен
$domain0="DOMAIN";
$dc0="192.168.200.3";
# дочерний домен
$domain4="OF4";
$dc4="192.168.200.204";
# тут параметры для других дочерних доменов
# .....
$path="/etc/squid/acl";
$reload_squid_cmd="/etc/init.d/squid reload";
$InetGroup="inet-full_access";

$i=0;

# 0-е отделение
# Нужно убрать префикс "DOMAIN\" впереди т.к. клиенты головного его не используют
@group_check= sort `/usr/bin/net rpc group MEMBERS $InetGroup -U $login%$password -S $dc0`;
@group_check = grep {/^$domain0\\/} @group_check;
foreach $gc (@group_check)
{
    $gc =~ s/DOMAIN\\//;
        $new_group_check[$i] = $gc;
#    print "$new_group_check[$i]";
#    print "  - $i\n";
        $i++;
}
# 4-е отделение - дочерний домен OF4.DOMAIN.RU
# Заменять \ на +. с \ слишком много мароки
@group_check= sort `/usr/bin/net rpc group MEMBERS $InetGroup -U $login%$password -S $dc4`;
@group_check = grep {/^$domain4\\/} @group_check;
foreach $gc (@group_check)
{
    $gc =~ tr/\\/+/s;
        $new_group_check[$i] = $gc;
#    print "$new_group_check[$i]";
#    print "  - $i\n";
        $i++;
}
# тут секции для других дочерних доменов. я не стал делать лишних циклов
# .....

# Проверка на изменение и запись в файл
$col=@new_group_check;
#print "$col\n";
my $diff = diff \@new_group_check,  "$path/$InetGroup.acl";
        if ($diff and $col) {
            open (GROUPFILE, ">$path/$InetGroup.acl") or die "Can't create $InetGroup.acl: $!";
            print GROUPFILE @new_group_check;
            $reconfigure++;
        }
    close GROUPFILE;

system("$reload_squid_cmd") if ($reconfigure);

Первый скрипт не учитывает вариант с пустой группой...