将 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"

提前致谢， 丹尼尔

Answer 1

作为@Tim 答案的补充：

您甚至可以像这样将 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

Answer 2

你可以试试：

$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"

谢谢，蒂姆。