Import-Module ActiveDirectory

# 定义要查询的组

$Groups = @("购物网", "财经网","远程软件")

# 定义输出文件路径

$OutputPath = "C:\Export\GroupUsers_$(Get-Date -Format 'yyyyMMdd_HHmmss').csv"

# 确保输出目录存在

$OutputDir = Split-Path $OutputPath -Parent

if (!(Test-Path $OutputDir)) {

New-Item -ItemType Directory -Path $OutputDir -Force

}

# 收集所有用户信息

$AllUsers = @()

$GroupStats = @()

foreach ($Group in $Groups) {

Write-Host "正在处理组: $Group" -ForegroundColor Green

$GroupUserCount = 0

try {

# 获取组内的所有用户

$GroupMembers = Get-ADGroupMember -Identity $Group -Recursive |

Where-Object { $_.objectClass -eq 'user' }

Write-Host "  组 $Group 中找到 $($GroupMembers.Count) 个用户" -ForegroundColor Yellow

foreach ($Member in $GroupMembers) {

try {

# 获取用户的详细信息

$User = Get-ADUser -Identity $Member.SamAccountName -Properties *

# 获取用户所属的所有组

$UserGroups = (Get-ADUser -Identity $User.SamAccountName -Properties MemberOf).MemberOf |

ForEach-Object { (Get-ADGroup $_).Name } |

Where-Object { $Groups -contains $_ }

$GroupMembership = $UserGroups -join ";"

# 获取OU路径

$OUPath = ($User.DistinguishedName -replace ',CN=.*?,(.*)', '$1' -replace 'CN=.*?,', '') -replace ',', '/'

# 创建用户信息对象

$UserInfo = [PSCustomObject]@{

Name = $User.Name

FirstName = $User.GivenName

LastName = $User.Surname

SamAccountName = $User.SamAccountName

DisplayName = $User.DisplayName

Description = $User.Description

Office = $User.Office

PhoneNumber = $User.telephoneNumber

Email = $User.EmailAddress

OUPath = $OUPath

MemberOfGroups = $GroupMembership

}

$AllUsers += $UserInfo

$GroupUserCount++

Write-Host "    已处理用户: $($User.SamAccountName)" -ForegroundColor Gray

}

catch {

Write-Warning "无法获取用户 $($Member.SamAccountName) 的详细信息: $($_.Exception.Message)"

}

}

# 记录组统计信息

$GroupStats += [PSCustomObject]@{

GroupName = $Group

UserCount = $GroupUserCount

}

Write-Host "  组 $Group 处理完成，共导出 $GroupUserCount 个账号" -ForegroundColor Green

}

catch {

Write-Warning "无法处理组 $Group : $($_.Exception.Message)"

# 记录错误组的统计信息

$GroupStats += [PSCustomObject]@{

GroupName = $Group

UserCount = 0

Status = "Error: $($_.Exception.Message)"

}

}

Write-Host ""

}

# 去重（用户可能同时在两个组中）

$UniqueUserCount = ($AllUsers | Sort-Object SamAccountName -Unique).Count

$AllUsers = $AllUsers | Sort-Object SamAccountName -Unique

# 导出到CSV文件

$AllUsers | Export-Csv -Path $OutputPath -NoTypeInformation -Encoding UTF8

# 显示统计信息

Write-Host "=" * 60 -ForegroundColor Cyan

Write-Host "导出统计信息:" -ForegroundColor Cyan

Write-Host "=" * 60 -ForegroundColor Cyan

foreach ($Stat in $GroupStats) {

if ($Stat.Status) {

Write-Host "组: $($Stat.GroupName) - 导出账号: $($Stat.UserCount) [错误: $($Stat.Status)]" -ForegroundColor Red

} else {

Write-Host "组: $($Stat.GroupName) - 导出账号: $($Stat.UserCount)" -ForegroundColor White

}

}

Write-Host "-" * 60 -ForegroundColor Cyan

Write-Host "去重后总用户数: $UniqueUserCount" -ForegroundColor Yellow

Write-Host "导出完成！文件保存在: $OutputPath" -ForegroundColor Green

# 显示前5行作为预览

Write-Host "`n前5行数据预览:" -ForegroundColor Magenta

$AllUsers | Select-Object -First 5 | Format-Table -AutoSize

# 显示重复用户信息（如果有）

$DuplicateUsers = $AllUsers | Group-Object SamAccountName | Where-Object { $_.Count -gt 1 }

if ($DuplicateUsers.Count -gt 0) {

Write-Host "`n注意: 发现以下用户在多个组中存在（已自动去重）:" -ForegroundColor Yellow

$DuplicateUsers | ForEach-Object {

$UserGroups = ($_.Group.MemberOfGroups | Select-Object -Unique) -join ", "

Write-Host "  $($_.Name) - 所属组: $UserGroups" -ForegroundColor Yellow

}

}