如何获取 Exchange 2007 中所有通讯组列表及其成员的列表?

如何获取 Exchange 2007 中所有通讯组列表及其成员的列表?

我想获取 Exchange 中所有通讯组列表及其成员的列表?使用任何内置 Exchange 工具可以实现吗?Powershell?第三方工具?

答案1

通讯组存储在 Active Directory 中。此 Powershell 脚本将列出 AD 域中的所有通讯组及其成员。如果您实际上将它们存储为安全组,请删除“(|(groupType=2)(groupType=4)(groupType=8))”。

$strFilter = "(&(objectCategory=Group)(|(groupType=2)(groupType=4)(groupType=8)))"
$objDomain = New-Object System.DirectoryServices.DirectoryEntry
$objSearcher = New-Object System.DirectoryServices.DirectorySearcher
$objSearcher.SearchRoot = $objDomain
$objSearcher.PageSize = 1000
$objSearcher.Filter = $strFilter
$objSearcher.SearchScope = "Subtree"
$objSearcher.PropertiesToLoad.Add("cn") | Out-Null
$objSearcher.PropertiesToLoad.Add("member") | Out-Null

$colResults = $objSearcher.FindAll()
foreach ($objResult in $colResults){
    $objItem = $objResult.Properties;
    Write-Output $objItem.cn
    foreach ($objMember in $objItem.member) {
        Write-Output "   $objMember"
    }
}

答案2

或者,如果您更愿意使用 Exchange 附带的 Powershell,这里有一个备用脚本。它将

 # dump all DLs to a variable, whether DistributionList or mail-enabled Sec-group
 $DLList = get-distributiongroup
 # Iterate over each DL to get member-list
 foreach ($DL in $DLList) {
     # Get the member list
     $Dmember=get-distributiongroupmember $DL
     # Get DL name
     $Dname=$DL.name
     # Start outputting
     write-output "`q$Dname`q" -nonewline
     # Iterate over member list, outputting
     foreach ($Member in $Dmember) {
         $MName=$Member.DisplayName
         write-output ",`q$MName`q" -nonewline
     }
     # Add terminal line-feed
     write-output "`n"
 }

这应该产生如下输出:

 "Accounting","Mary Joe","Fred Smith"
 "Receiving Office"
 "Office, home","John Birtram"

按照您需要的方式进行调整。

该脚本基本都是我临时起意写的,可能存在一些错误。

答案3

我接受了 Torai 的答案,因为这是我使用的答案,但是我对 foreach 外观做了一些小改动,让它在与用户数据相同的行上输出分发列表:

foreach ($objResult in $colResults){
    $objItem = $objResult.Properties;
    foreach ($objMember in $objItem.member) {
        Write-Output "$($objItem.cn),$($objMember)"
    }
}

相关内容