Вывод сценария DHCP в тело письма

Question

Я задал вопрос, похожий на тот, который я собираюсь опубликовать. Я попытался использовать решение для создания своей собственной версии, но я не имел успеха. У меня есть следующий скрипт, который я нашел на другом веб-сайте, и он идеально подходит для того, что я ищу, но скорее вывод будет отправлен в виде тела электронной почты, а не выводится в файл. Как мне это сделать? Также, если у кого есть терпение, чтобы объяснить немного. Было бы очень благодарно :).

$a = (netsh dhcp server 172.20.102.1 scope 172.20.104.0 show clients 1) 

$lines = @() 

foreach ($i in $a){ 
    if ($i -match "\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}"){ 
     If ($i -match "[0-9a-f]{2}[:-][0-9a-f]{2}[:-][0-9a-f]{2}[:-][0-9a-f]{2}[:-][0-9a-f]{2}[:-][0-9a-f]{2}"){  
      $lines += $i.Trim() 
     } 
    } 
} 
$csvfile = @() 

foreach ($l in $lines){ 
    $Row = "" | select Hostname,IP 
    $l = $l -replace '[0-9a-f]{2}[:-][0-9a-f]{2}[:-][0-9a-f]{2}[:-][0-9a-f]{2}[:-][0-9a-f]{2}[:-][0-9a-f]{2}', '' 
    $l = $l -replace ' - ',',' 
    $l = $l -replace '\s{4,}','' 
    $l = $l -replace '--','-' 
    $l = $l -replace '-D-','-' 
    $l = $l -replace '[-]{1}\d{1,2}[/]\d{1,2}[/]\d{4}','' 
    $l = $l -replace '\d{1,2}[:]\d{2}[:]\d{2}','' 
    $l = $l -replace 'AM','' 
    $l = $l -replace 'PM','' 
    $l = $l -replace '\s{1}','' 
    $l = $l + "`n" 
    $l = $l -replace '[,][-]',',' 
    $Row.IP = ($l.Split(","))[0] 
    #Subnet mask not used, but maybe later 
    #$Row.SubNetMask = ($l.Split(","))[1] 
    $Row.Hostname = ($l.Split(","))[2] 
    $csvfile += $Row 
} 


$csvfile | sort-object Hostname | Export-Csv "Out_List.csv" 


$a = "<style>" 
$a = $a + "body {margin: 10px; width: 600px; font-family:arial; font-size: 12px;}" 
$a = $a + "TABLE{border-width: 1px;border-style: solid;border-color: black;border-collapse: collapse;}" 
$a = $a + "TH{border-width: 1px;padding: 2px;border-style: solid;border-color: black;background-color: rgb(179,179,179);align='left';}" 
$a = $a + "TD{border-width: 1px;padding: 2px;border-style: solid;border-color: black;background-color: white;}" 
$a = $a + "</style>" 


$html = $csvfile | sort-object Hostname | ConvertTo-HTML | out-string 
Send-MailMessage -SmtpServer "exchange" -Body $html -BodyAsHtml -From "DHCP@.com.au" -To "@.com.au" -Subject "DHCP Report" 

Заранее спасибо, Daniel

Answer 1

Не могли бы вы попробовать:

$html = $csvfile | sort-object Hostname | ConvertTo-HTML | out-string 
Send-MailMessage -SmtpServer "mail server" -Body $html -BodyAsHtml -From "noreply@mailserver.com.au" -To "me@mailserver.com" -Subject "DHCP Report" 

Спасибо, Тим.

Answer 2

В дополнение к @ ответ Тима:

вы даже можете добавить CSS в преобразованный HTML, как это:

$style = @" 
<style> 
table { 
    width: 50%; 
    margin: auto; 
    border-collapse: collapse; 

} 

th, td { 
    text-align: left; 
    padding: 8px; 
    border-bottom: 1px solid #fff; 
} 

tr:nth-child(even){background-color: #f2f2f2} 

th { 
    background-color: #4CAF50; 
    color: white; 
} 
</style> 
"@ 
$html =import-Csv "Out_List.csv" |ConvertTo-Html -head $style |out-string