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

wuliws

　　公司组织架构调整比较频繁，AD里组织架构经常变动，要维护1400多个动态通讯组，经常是花时间建这些东西。这两天做了个半自动的脚本，基本算是解决了这个问题。
　　大体思路是：
　　1，批处理里面，使用csvde 导出OU列表
　　2，使用perl处理OU列表
　　3，人工地从OU列表里选择需要添加的项，并手工地填写别名（这个别名本来是想做个字典或者使用模块，将汉字转化成拼音，但Perl的拼音这个模块实在是难用，只好作罢。）
　　4，使用Perl处理选择的项，生成新建动态通讯组的命令
　　5，将命令运行到Exchange管理控制台下，即可
　　bat代码：


View Code


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代码：


View Code


#!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代码：


View Code


#!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";
}
}
　　遗憾是，还有许多没有完全地实现自动化，但是作为节省我们宝贵的时间已经足够了。毕竟懒惰是程序员的美德之一。