MailGorupMemeber Export to excel
利用ems实现mailgroup member 导出到excel,并设置格式。
# This script should be run in Exchange powershell Environment.It will export
# members of mailgroup that start with manu、 pc、 qa、and pe into the excel.
################################
# open a excel file
################################
$exl = new-object -comobject excel.application
$exl.visible = $true
$wb = $exl.workbooks.add()
$ws = $wb.worksheets.Item(1)
################################################################
#get distributionggroups that start with
$mailgp = get-distributiongroup |select-string "^manu|^pc|^qa|^pe"
###############################################################
#get members of the distributiongroup
###############################################################
$y=1
foreach ($gp in $mailgp)
{
$title = get-distributiongroup -identity "$gp" |select name
$ws.cells.item(1,$y)= $title.name
$members = get-distributiongroupmember -identity "$gp" |select name
$x=2
foreach ($member in $members)
{
$ws.cells.item($x,$y) = $member.name
$x++
}
$y++
}
#####################################################################
#set the excel style
#####################################################################
$lineStyle = "microsoft.office.interop.excel.xlLineStyle" -as [type]
$colorIndex = "microsoft.office.interop.excel.xlColorIndex" -as [type]
$borderWeight = "microsoft.office.interop.excel.xlBorderWeight" -as [type]
$chartType = "microsoft.office.interop.excel.xlChartType" -as [type]
$colcon=$mailgp.count
for($b = 1 ; $b -le $colcon ; $b++)
{
$ws.cells.item(1,$b).columnWidth= 14
# $ws.item(1,$b).font.bold = $true
$ws.cells.item(1,$b).borders.LineStyle = $lineStyle::xlcontinuous
$ws.cells.item(1,$b).borders.ColorIndex = $colorIndex::xlColorIndexAutomatic
$ws.cells.item(1,$b).borders.weight = $borderWeight::xlMedium
}
转载于:https://blog.51cto.com/3379770/1604364