检查电子邮件是否在从 ADGroup 提取的电子邮件的可变列表中

Question

我正在尝试检查从 excel 中的列中提取的数组中的电子邮件是否在 AD 组的电子邮件列表中，如果是，则输出带有 Write-Host 的电子邮件以进行通知。

Clear-Host

$objExcel = New-Object -ComObject Excel.Application
$WorkBook = $objExcel.Workbooks.Open("C:\Users\Status.xlsx")
$WorkSheet = $WorkBook.Sheets.Item("PS1")
$members = Get-ADGroupMember -Identity VIP | 
Get-ADUser -Properties emailaddress | Select emailaddress

$startRow = 2
$ColValues = @()
$count = $Worksheet.Cells.Item(65536, 7).End(-4162)
for ($startRow; $startRow -le $count.row; $startRow++) {
    $ColValues += $Worksheet.Cells.Item($startRow, 6).Value()
}

foreach ($email in $ColValues) {
    if ($members -contains $email) {
        Write-Host "$email is a VIP!" -ForegroundColor Red
    } else {}
}

Write-Host " "
Write-Host "Complete!" -ForegroundColor Green

如果我运行上面的代码，它会直接转到Complete! - 但所有内容都正确列出了$email、$ColValues 和$members？

Answer 1

我通过消除对数组的需要并稍微简化脚本找到了解决方案。所以基本上我只是将操作移到 for 语句中，以便在获得每个值时对其执行。

Clear-Host

$objExcel = New-Object -ComObject Excel.Application
$WorkBook = $objExcel.Workbooks.Open("C:\Users\Status.xlsx")
$WorkSheet = $WorkBook.Sheets.Item("PS1")
$members = Get-ADGroupMember -Identity VIP | Get-ADUser -Properties emailaddress | Select emailaddress

$startRow = 2
$count = $Worksheet.Cells.Item(65536, 7).End(-4162)
for ($startRow; $startRow -le $count.row; $startRow++) {
{

    $emails = ($Worksheet.Cells.Item($startRow, 4).Value())
    $computerName = ($Worksheet.Cells.Item($startRow, 1).Value())

    if (($members -match $emails) -and ($emails -like "*")) {

        Write-Host "$emails is a VIP! " -ForegroundColor Green -NoNewline
        Write-Host " Computer Name: $computerName"

    } else {}   

}

Write-Host " "
Write-Host "Complete!" -ForegroundColor Green

唯一的缺点是我无法轻松删除重复的内容并将其格式化为表格。但考虑到它只输出了 30 个左右的值，它完美地满足了我的需要。

Answer 2

Get-ADGroupMember 函数可以返回组、计算机和用户。我认为你应该过滤掉任何不是用户的东西。

此外，通过使用Select emailaddress，您将获得一组用户对象，正如 Kirill Pashkov 已经指出的那样。你真的只想拥有一个 strings 数组。

试试这个$members = 部分：

$members   = Get-ADGroupMember -Identity VIP -Filter {objectClass -eq "user"} |
             Get-ADUser -Properties Emailaddress | 
             Select-Object -ExpandProperty Emailaddress | 
             Sort-Object -Unique

Sort-Object -Unique 在这里不应该是必需的，只是为了确保那里没有重复。

我无法检查您的代码是否真的以正确的方式从 Excel 中获取了 $ColValues。那就是：如果这导致一个包含电子邮件地址的 字符串 数组，但如果是这样，那么也将该数组唯一化：

$ColValues = $ColValues | Sort-Object -Unique

最后一句话：

从 Excel 中收集值后，您似乎没有关闭它。
最好养成在使用如下代码时关闭和释放 ComObjects 的习惯：

$objExcel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($WorkBook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($objExcel) | Out-Null
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()

Answer 3

您似乎试图比较 $members 这是一个 对象数组（具有属性和值的对象）和来自 $ColValues 的项目，这是一个 值数组强>。

您可能希望通过以这种方式更改 $members 变量来解决此问题：

$members = Get-ADGroupMember -Identity VIP | 
Get-ADUser -Properties emailaddress | Select -ExpandProperty emailaddress

或者这样改变if的条件：

If ($members.emailaddress.Contains($email))