如何解决使用@Splat发送电子邮件附件结果,然后在成功执行后删除
我希望将以下脚本修改为:
下面的脚本基本上从所有域控制器中获取了过去1小时内的所有事件ID 4625。
$DCServers = Get-ADDomainController -filter * | select -ExpandProperty hostname
$events = @()
$totalCt = 0
$servers = @()
$hashlogonType = @{
2 = "Interactive"
3 = "Network"
4 = "Batch (eg. Scheduled Task)"
5 = "Service"
7 = "Unlock (eg. Workstation Screen saver)"
8 = "NetworkCleartext (eg. IIS Basic Auth.)"
9 = "NewCredentials"
10 = "Remote Desktop"
11 = "logon With Cached Credentials"
}
Foreach ($Server in $DCServers)
{
Write-Host "Calling Get-WinEvent for $Server"
$serverEvents = Get-WinEvent -ComputerName $Server -FilterHashtable @{ logname = 'Security'; id = 4625; StartTime = (Get-Date).AddHours(-1) } -EA 0
if (!$?)
{
Write-Host "Get-WinEVent failure for $Server"
continue
}
if ($null -ne $serverEvents)
{
$totalCt += $serverEvents.Count
$servers += [PsCustomObject] @{ $server = $serverEvents.Count }
Write-Host $server $serverEvents.Count
}
$serverEvents | ForEach-Object {
$events += [PsCustomObject] @{
Date = $_.TimeCreated
"Event Id" = $_.Id
"User Name" = $_.Properties[6].Value + "\" + $_.Properties[5].Value ## fixed
"WorkstationName" = $_.Properties.Value[13]
"IPAddress" = $_.Properties.Value[19]
"FailureReason" = (($_.message -split "\n") | Select-String -Pattern "Failure Reason:\s+(.+)").matches[0].groups[1].value
"Status Code" = $_.message -split '\s{4}' | Select-String -Pattern "Status"
"logon Type" = $hashlogonType.$([int]$_.Properties[10].Value)
}
}
}
$HTML = @"
<style>
body {
font-family: Arial;
}
table {
width: 100%;
border-collapse: collapse;
border: 1px solid;
}
th {
background-color: green;
border: 1px solid;
padding: 1px;
}
td {
border: 1px solid;
padding: 1px;
}
</style>
"@
$GetDate = Get-Date -Format 'F'
$Report = "[Environment]::GetFolderPath("Desktop")\temp-4625.html"
Invoke-Item $Report
#convert the array of events to HTML
$Events | Select-Object Date,"User Name","WorkstationName","IPAddress","logon Type" |
Convertto-html -head $HTML -PreContent "<H2>Accounts that Failed to Log On</H2>","<H2>$GetDate </H2>","<br> FailureReason = $((($_.message -split "\n") | Select-String -Pattern "Failure Reason:\s+(.+)").matches[0].groups[1].value)<br>","<br> Status Code = $($_.message -split '\s{4}' | Select-String -Pattern "Status")<br>"
-PostContent "<p></p>Total Event ID 4625 records: <b><u>$totalCt</u></b> <p></p>" | Out-File $Report -append
Write-Host "Total Event ID 4625 records: $totalCt"
Write-Host "Event ID 4625 records per server:"
$servers | Format-Table -autosize
Write-Host "4625 records grouped by user"
$events | group-object "User Name" | sort-object Count | Out-GridView -Title "4625 records grouped by user"
Write-Host "4625 records grouped by IP Address"
$events | group-object "IPAddress" | sort-object Count | Out-GridView -Title "4625 records grouped by IP Address"
Write-Host "4625 records grouped by WorkstationName"
$events | group-object "WorkstationName" | sort-object Count | Out-GridView -Title "4625 records grouped by WorkstationName"
$sendMailArgs = @{
From = "$env:COmpuTERNAME@$env:userdnsdomain"
To = 'IT@corp.com'
Subject = "Event ID 4625 Result as at $(Get-Date -Format 'F')"
SmtpServer = 'smtp.domain.com'
BodyAsHtml = $true
}
$sendMailArgs['Body'] = "<H3>Total Event ID 4625 records: $($totalCt)</H3>"
Send-MailMessage @sendMailArgs -Priority High -Verbose -Attachments $Report
但是,错误如下:
Send-MailMessage : Cannot find a provider with the name '[Environment]'.
At line:103 char:1
+ Send-MailMessage @sendMailArgs -Priority High -Verbose -Attachments $ ...
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : ObjectNotFound: ([Environment]:String) [Send-MailMessage],ProviderNotFoundException
+ FullyQualifiedErrorId : ProviderNotFound,Microsoft.PowerShell.Commands.SendMailMessage
,并且没有发送电子邮件。我该如何调试?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。