Another PowerShell script that generates a system report, including a pie chart of memory usage from a list of specified computers.
# PowerShell Systems Report
# Example usage: .\SystemsReport.ps1 .\list.txt
# Remember that list.txt is the file containing a list of Server names to run this against
#region Variables and Arguments
$users = "mmessano@primealliancesolutions.com" # List of users to email your report to (separate by comma)
$fromemail = "DataManagement@primealliancesolutions.com"
$server = "outbound.smtp.dexma.com" #enter your own SMTP server DNS name / IP address here
#$list = $args[0] #This accepts the argument you add to your scheduled task for the list of servers. i.e. list.txt
$list = "C:\tmp\servers.txt"
$computers = get-content $list #grab the names of the servers/computers to check from the list.txt file.
# Set free disk space threshold below in percent (default at 10%)
$thresholdspace = 65
[int]$EventNum = 3
[int]$ProccessNumToFetch = 10
$ListOfAttachments = @()
$Report = @()
$CurrentTime = Get-Date
#endregion
Function Create-PieChart() {
param([string]$FileName)
[void][Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
[void][Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms.DataVisualization")
#Create our chart object
$Chart = New-object System.Windows.Forms.DataVisualization.Charting.Chart
$Chart.Width = 300
$Chart.Height = 290
$Chart.Left = 10
$Chart.Top = 10
#Create a chartarea to draw on and add this to the chart
$ChartArea = New-Object System.Windows.Forms.DataVisualization.Charting.ChartArea
$Chart.ChartAreas.Add($ChartArea)
[void]$Chart.Series.Add("Data")
#Add a datapoint for each value specified in the arguments (args)
foreach ($value in $args[0]) {
Write-Host "Now processing chart value: " + $value
$datapoint = new-object System.Windows.Forms.DataVisualization.Charting.DataPoint(0, $value)
$datapoint.AxisLabel = "Value" + "(" + $value + " GB)"
$Chart.Series["Data"].Points.Add($datapoint)
}
$Chart.Series["Data"].ChartType = [System.Windows.Forms.DataVisualization.Charting.SeriesChartType]::Pie
$Chart.Series["Data"]["PieLabelStyle"] = "Outside"
$Chart.Series["Data"]["PieLineColor"] = "Black"
$Chart.Series["Data"]["PieDrawingStyle"] = "Concave"
($Chart.Series["Data"].Points.FindMaxByValue())["Exploded"] = $true
#Set the title of the Chart to the current date and time
$Title = new-object System.Windows.Forms.DataVisualization.Charting.Title
$Chart.Titles.Add($Title)
$Chart.Titles[0].Text = "RAM Usage Chart (Used/Free)"
#Save the chart to a file
$Chart.SaveImage($FileName + ".png","png")
}
Function Get-HostUptime {
param ([string]$ComputerName)
$Uptime = Get-WmiObject -Class Win32_OperatingSystem -ComputerName $ComputerName
$LastBootUpTime = $Uptime.ConvertToDateTime($Uptime.LastBootUpTime)
$Time = (Get-Date) - $LastBootUpTime
Return '{0:00} Days, {1:00} Hours, {2:00} Minutes, {3:00} Seconds' -f $Time.Days, $Time.Hours, $Time.Minutes, $Time.Seconds
}
# Assemble the HTML Header and CSS for our Report
$HTMLHeader = @"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">
<html><head><title>My Systems Report</title>
<style type="text/css">
<!--
body {
font-family: Verdana, Geneva, Arial, Helvetica, sans-serif;
}
#report { width: 835px; }
table{
border-collapse: collapse;
border: none;
font: 10pt Verdana, Geneva, Arial, Helvetica, sans-serif;
color: black;
margin-bottom: 10px;
}
table td{
font-size: 12px;
padding-left: 0px;
padding-right: 20px;
text-align: left;
}
table th {
font-size: 12px;
font-weight: bold;
padding-left: 0px;
padding-right: 20px;
text-align: left;
}
h2{ clear: both; font-size: 130%; }
h3{
clear: both;
font-size: 115%;
margin-left: 20px;
margin-top: 30px;
}
p{ margin-left: 20px; font-size: 12px; }
table.list{ float: left; }
table.list td:nth-child(1){
font-weight: bold;
border-right: 1px grey solid;
text-align: right;
}
table.list td:nth-child(2){ padding-left: 7px; }
table tr:nth-child(even) td:nth-child(even){ background: #CCCCCC; }
table tr:nth-child(odd) td:nth-child(odd){ background: #F2F2F2; }
table tr:nth-child(even) td:nth-child(odd){ background: #DDDDDD; }
table tr:nth-child(odd) td:nth-child(even){ background: #E5E5E5; }
div.column { width: 320px; float: left; }
div.first{ padding-right: 20px; border-right: 1px grey solid; }
div.second{ margin-left: 30px; }
table{ margin-left: 20px; }
-->
</style>
</head>
<body>
"@
foreach ($computer in $computers) {
$DiskInfo= Get-WMIObject -ComputerName $computer Win32_LogicalDisk | Where-Object{$_.DriveType -eq 3} | Where-Object{ ($_.freespace/$_.Size)*100 -lt $thresholdspace} `
| Select-Object SystemName, DriveType, VolumeName, Name, @{n='Size (GB)';e={"{0:n2}" -f ($_.size/1gb)}}, @{n='FreeSpace (GB)';e={"{0:n2}" -f ($_.freespace/1gb)}}, @{n='PercentFree';e={"{0:n2}" -f ($_.freespace/$_.size*100)}} | ConvertTo-HTML -fragment
#region System Info
$OS = (Get-WmiObject Win32_OperatingSystem -computername $computer).caption
$SystemInfo = Get-WmiObject -Class Win32_OperatingSystem -computername $computer | Select-Object Name, TotalVisibleMemorySize, FreePhysicalMemory
$TotalRAM = $SystemInfo.TotalVisibleMemorySize/1MB
$FreeRAM = $SystemInfo.FreePhysicalMemory/1MB
$UsedRAM = $TotalRAM - $FreeRAM
$RAMPercentFree = ($FreeRAM / $TotalRAM) * 100
$TotalRAM = [Math]::Round($TotalRAM, 2)
$FreeRAM = [Math]::Round($FreeRAM, 2)
$UsedRAM = [Math]::Round($UsedRAM, 2)
$RAMPercentFree = [Math]::Round($RAMPercentFree, 2)
#endregion
$TopProcesses = Get-Process -ComputerName $computer | Sort WS -Descending | Select ProcessName, Id, WS -First $ProccessNumToFetch | ConvertTo-Html -Fragment
#region Services Report
$ServicesReport = @()
$Services = Get-WmiObject -Class Win32_Service -ComputerName $computer | Where {($_.StartMode -eq "Auto") -and ($_.State -eq "Stopped")}
foreach ($Service in $Services) {
$row = New-Object -Type PSObject -Property @{
Name = $Service.Name
Status = $Service.State
StartMode = $Service.StartMode
}
$ServicesReport += $row
}
$ServicesReport = $ServicesReport | ConvertTo-Html -Fragment
#endregion
#region Event Logs Report
$SystemEventsReport = @()
$SystemEvents = Get-EventLog -ComputerName $computer -LogName System -EntryType Error,Warning -Newest $EventNum
foreach ($event in $SystemEvents) {
$row = New-Object -Type PSObject -Property @{
TimeGenerated = $event.TimeGenerated
EntryType = $event.EntryType
Source = $event.Source
Message = $event.Message
}
$SystemEventsReport += $row
}
$SystemEventsReport = $SystemEventsReport | ConvertTo-Html -Fragment
$ApplicationEventsReport = @()
$ApplicationEvents = Get-EventLog -ComputerName $computer -LogName Application -EntryType Error,Warning -Newest $EventNum
foreach ($event in $ApplicationEvents) {
$row = New-Object -Type PSObject -Property @{
TimeGenerated = $event.TimeGenerated
EntryType = $event.EntryType
Source = $event.Source
Message = $event.Message
}
$ApplicationEventsReport += $row
}
$ApplicationEventsReport = $ApplicationEventsReport | ConvertTo-Html -Fragment
#endregion
# Create the chart using our Chart Function
Create-PieChart -FileName ((Get-Location).Path + "\chart-$computer") $FreeRAM, $UsedRAM
$ListOfAttachments += "chart-$computer.png"
#region Uptime
# Fetch the Uptime of the current system using our Get-HostUptime Function.
$SystemUptime = Get-HostUptime -ComputerName $computer
#endregion
# Create HTML Report for the current System being looped through
$CurrentSystemHTML = @"
<hr noshade size=3 width="100%">
<div id="report">
<p><h2>$computer Report</p></h2>
<h3>System Info</h3>
<table class="list">
<tr>
<td>System Uptime</td>
<td>$SystemUptime</td>
</tr>
<tr>
<td>OS</td>
<td>$OS</td>
</tr>
<tr>
<td>Total RAM (GB)</td>
<td>$TotalRAM</td>
</tr>
<tr>
<td>Free RAM (GB)</td>
<td>$FreeRAM</td>
</tr>
<tr>
<td>Percent free RAM</td>
<td>$RAMPercentFree</td>
</tr>
</table>
<IMG SRC="chart-$computer.png" ALT="$computer Chart">
<h3>Disk Info</h3>
<p>Drive(s) listed below have less than $thresholdspace % free space. Drives above this threshold will not be listed.</p>
<table class="normal">$DiskInfo</table>
<br></br>
<div class="first column">
<h3>System Processes - Top $ProccessNumToFetch Highest Memory Usage</h3>
<p>The following $ProccessNumToFetch processes are those consuming the highest amount of Working Set (WS) Memory (bytes) on $computer</p>
<table class="normal">$TopProcesses</table>
</div>
<div class="second column">
<h3>System Services - Automatic Startup but not Running</h3>
<p>The following services are those which are set to Automatic startup type, yet are currently not running on $computer</p>
<table class="normal">
$ServicesReport
</table>
</div>
<h3>Events Report - The last $EventNum System/Application Log Events that were Warnings or Errors</h3>
<p>The following is a list of the last $EventNum <b>System log</b> events that had an Event Type of either Warning or Error on $computer</p>
<table class="normal">$SystemEventsReport</table>
<p>The following is a list of the last $EventNum <b>Application log</b> events that had an Event Type of either Warning or Error on $computer</p>
<table class="normal">$ApplicationEventsReport</table>
"@
# Add the current System HTML Report into the final HTML Report body
$HTMLMiddle += $CurrentSystemHTML
}
# Assemble the closing HTML for our report.
$HTMLEnd = @"
</div>
</body>
</html>
"@
# Assemble the final report from all our HTML sections
$HTMLmessage = $HTMLHeader + $HTMLMiddle + $HTMLEnd
# Save the report out to a file in the current path
$HTMLmessage | Out-File ((Get-Location).Path + "\report.html")
# Email our report out
send-mailmessage -from $fromemail -to $users -subject "Systems Report" -Attachments $ListOfAttachments -BodyAsHTML -body $HTMLmessage -priority Normal -smtpServer $server