Perl+批处理实现半自动批量生成动态通讯组

公司组织架构调整比较频繁，AD里组织架构经常变动，要维护1400多个动态通讯组，经常是花时间建这些东西。这两天做了个半自动的脚本，基本算是解决了这个问题。

大体思路是：

1，批处理里面，使用csvde 导出OU列表

2，使用perl处理OU列表

3，人工地从OU列表里选择需要添加的项，并手工地填写别名（这个别名本来是想做个字典或者使用模块，将汉字转化成拼音，但Perl的拼音这个模块实在是难用，只好作罢。）

4，使用Perl处理选择的项，生成新建动态通讯组的命令

5，将命令运行到Exchange管理控制台下，即可

bat代码：

echo off
csvde -f ad.txt -l DN -r "(objectClass=organizationalUnit)"

perl ad.pl
echo 请选取ad_list.txt里面需要增加动态通讯组的部门所在的行；
echo 复制到ad_list_check.txt里面，并在每一行的最后加入一个Tab键；
echo 在每一行的最后输入通讯组的别名，规则如例子：
echo 天津公司/职能/培训中心                     tjgs-pxzx      
echo *******************************************************
echo 请在ad_list_check.txt编辑并保存完毕后，再按任意键！
pause
perl ad_to_exchange.pl
echo 运行完毕！
echo 若出错，请检查ad_list_check.txt的格式！
echo 按任意键退出
paus

ad.pl代码：

#!perl -w
use strict;
open INPUT,"<","ad.txt";
open OUTPUT,">","ad_list.txt";
my @zone_lists ;
my @ad_list;
#chomp ( my @lists = <INPUT> );
while ( <INPUT> ){
    my $item = $_;
        $item =~ s#OU=##g;
        $item =~ s#.*?失效.*?##g;
        if ( $item =~ m#^"([^,]*?[区|部|区域|办公室|中心]\,.*?)\,DC# ){
            my @temp_row = split /,/,$1;
            @temp_row = reverse @temp_row;
            my $zone_item = 'corp.company.com.cn';
            foreach my $temp ( @temp_row ){
                $zone_item .= '/';
                $zone_item .= $temp;
            }
            push @ad_list,$zone_item;
    }
}
foreach my $ad_item ( @ad_list ){
    print OUTPUT $ad_item,"\n";    
}

ad_to_exchange.pl代码：

#!perl -w
use strict;
open INPUT,'<','ad_list_check.txt';
open OUTPUT,'>','ad_result.txt';
my $pro = '';
my $pro_cmd = '';
my $pro_cmd1 = '';
while ( <INPUT> ){
    $pro = '';
    $pro_cmd = '';
    $_ =~ s#\n##;
    my @item_list = split /\t/,$_;
    $pro = $item_list[0];
    $pro =~ s#(corp\.homelink\.com\.cn/)##;
    $pro =~ s#(\/)#-#g;
    if ( $item_list[0] =~ m#职能# ){
        $pro =~ s#(-职能)##g;
        $pro_cmd = "new-DynamicDistributionGroup -Name \'". $pro ."\' -IncludedRecipients \'MailboxUsers\' -OrganizationalUnit \'".$item_list[0]."\' -Alias \'" . $item_list[1] . "\' -RecipientContainer \'" . $item_list[0] . "\'";
        print OUTPUT $pro_cmd,"\n";
    }elsif ( $item_list[0] =~ m#运营\/.+?\/.+?\/# ){
        $pro =~ s#(北京-运营-)##;
        $pro =~ s#(运营-.*?-)##;
        $pro_cmd = "new-DynamicDistributionGroup -Name \'". $pro ."\' -IncludedRecipients \'MailboxUsers\' -OrganizationalUnit \'".$item_list[0]."\' -Alias \'" . $item_list[1] . "\' -RecipientContainer \'" . $item_list[0] . "\'";
        $pro_cmd1 = "new-DynamicDistributionGroup -Name \'". $pro ."-店经理\' -IncludedRecipients \'MailboxUsers\' -OrganizationalUnit \'".$item_list[0]."\' -Alias \'" . $item_list[1] . "-djl\' -RecipientContainer \'" . $item_list[0] . "\' -ConditionalCustomAttribute1 \'店经理\'";
        print OUTPUT $pro_cmd,"\n"; 
        print OUTPUT $pro_cmd1,"\n";
    }elsif ( $item_list[0] =~ m#运营\/.+?\/# ){
        $pro =~ s#(北京-运营-)##;
        $pro =~ s#(运营-.*?-)##;
        $pro_cmd = "new-DynamicDistributionGroup -Name \'". $pro ."\' -IncludedRecipients \'MailboxUsers\' -OrganizationalUnit \'".$item_list[0]."\' -Alias \'" . $item_list[1] . "\' -RecipientContainer \'" . $item_list[0] . "\'";
        $pro_cmd1 = "new-DynamicDistributionGroup -Name \'". $pro ."-店经理\' -IncludedRecipients \'MailboxUsers\' -OrganizationalUnit \'".$item_list[0]."\' -Alias \'" . $item_list[1] . "-djl\' -RecipientContainer \'" . $item_list[0] . "\' -ConditionalCustomAttribute1 \'店经理\'";
        print OUTPUT $pro_cmd,"\n";
        print OUTPUT $pro_cmd1,"\n";
    }
}

遗憾是，还有许多没有完全地实现自动化，但是作为节省我们宝贵的时间已经足够了。毕竟懒惰是程序员的美德之一。