Abstract
Monitoring disk space utilization of server(s) is critical and important job for any administrator. Keeping things organized might improve application availability and server availability. Being a database administrator for 10 years, I have faced and handled/managed lot of issues with disk space. This article takes us through the in-detail steps to read each drive and report every drive details based on threshold values. The output is integrated with excel charts. The step by step process quickly take us through the disk space utilization details of server(s). You'll basically feed a list of servers to watch over, and it will report back on these for you, meaning you could also use it as a more general "daily server disk space report"

Please refer technet article for more detailed information

Input CSV file 

 

 

Code

 

PowerShell
Edit|Remove
#### Spreadsheet Location  
  
 $DirectoryToSaveTo = "c:\"  
 $date=Get-Date -format "yyyy-MM-d"  
 $Filename="DMZ_Server_Space_Utilication_$($date)"  
     
 
    
# before we do anything else, are we likely to be able to save the file?  
# if the directory doesn't exist, then create it  
if (!(Test-Path -path "$DirectoryToSaveTo")) #create it if not existing  
  {  
  New-Item "$DirectoryToSaveTo" -type directory | out-null  
  }  
      
    
#PowerShell is made available to use Excel componment by invoking excel.application COM object that will allow us to work with excel to add data and format that data.  
#Create a new Excel object using COM  
$Excel = New-Object -ComObject Excel.Application  
#you can see the Excel sheet and helpful in troubleshooting  
$Excel.visible = $True  
#After instantiating the excel objects, It's a time use its respective methods and properties  
$Excel = $Excel.Workbooks.Add()  
$Sheet = $Excel.Worksheets.Item(1)  
    
#Save the initial row so it can be used later to create a border  
#Counter variable for rows  
$intRow = $row  
    
#FileFormat numbers in Mac Excel  
    
#These are the main file formats in Windows Excel 2007-2016:  
    
#51 = xlOpenXMLWorkbook (without macro's in 2007-2013, xlsx)  
#52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2013, xlsm)  
#50 = xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)  
#56 = xlExcel8 (97-2003 format in Excel 2007-2013, xls)  
    
$xlOpenXMLWorkbook=[int]51  
    
#define the sheet name  
    
$sheet.Name = 'DiskSpace'  
    
$Sheet.Activate() | Out-Null  
    
#Create a Title for the first worksheet  
$row = 1  
$Column = 1  
$Sheet.Cells.Item($row,$column)= 'Disk Space Information'  
    
$range = $Sheet.Range("a1","h2")  
$range.Merge() | Out-Null  
    
# [Enum]::getvalues([Microsoft.Office.Interop.Excel.XLVAlign]) | select @{n="Name";e={"$_"}},value__  
#To fetch the list of alignment values using the above the enumerator.  
    
$range.VerticalAlignment = -4160  
    
#Give it a nice Style so it stands out  
$range.Style = 'Title'  
    
#Increment row for next set of data  
$row++;$row++  
    
#Save the initial row so it can be used later to create a border  
$initalRow = $row  
    
#Create a header for Disk Space Report; set each cell to Bold and add a background color  
$Sheet.Cells.Item($row,$column)= 'Computername'  
$Sheet.Cells.Item($row,$column).Interior.ColorIndex =48  
$Sheet.Cells.Item($row,$column).Font.Bold=$True  
$Column++  
$Sheet.Cells.Item($row,$column)= 'DeviceID'  
#Making the font Bold and adjusting the background color (using the Interior.ColorIndex property of each cell  
$Sheet.Cells.Item($row,$column).Interior.ColorIndex =48  
$Sheet.Cells.Item($row,$column).Font.Bold=$True  
$Column++  
$Sheet.Cells.Item($row,$column)= 'VolumeName'  
$Sheet.Cells.Item($row,$column).Interior.ColorIndex =48  
$Sheet.Cells.Item($row,$column).Font.Bold=$True  
$Column++  
$Sheet.Cells.Item($row,$column)= 'TotalSizeGB'  
$Sheet.Cells.Item($row,$column).Interior.ColorIndex =48  
$Sheet.Cells.Item($row,$column).Font.Bold=$True  
$Column++  
$Sheet.Cells.Item($row,$column)= 'UsedSpaceGB'  
$Sheet.Cells.Item($row,$column).Interior.ColorIndex =48  
$Sheet.Cells.Item($row,$column).Font.Bold=$True  
$Column++  
$Sheet.Cells.Item($row,$column)= 'FreeSpaceGB'  
$Sheet.Cells.Item($row,$column).Interior.ColorIndex =48  
$Sheet.Cells.Item($row,$column).Font.Bold=$True  
$Column++  
$Sheet.Cells.Item($row,$column)= '%Free'  
$Sheet.Cells.Item($row,$column).Interior.ColorIndex =48  
$Sheet.Cells.Item($row,$column).Font.Bold=$True  
$Column++  
$Sheet.Cells.Item($row,$column)= 'Status'  
$Sheet.Cells.Item($row,$column).Interior.ColorIndex =48  
$Sheet.Cells.Item($row,$column).Font.Bold=$True  
$Column++  
#Set up a header filter  
$headerRange = $Sheet.Range("a3","o3")  
$headerRange.AutoFilter() | Out-Null  
    
#Increment Row and reset Column back to first column  
$row++  
$Column = 1  
$critical=0  
$warning=0  
$low=0  
$good=0  
    
#Get the drives and filter out CD/DVD drives  
    
Import-Csv C:\server.csv|%{  
$cserver = $_.Server  
$cdrivelt = $_.Drive  
$clowth = $_.LowTh  
$cwarnth = $_.WarnTh  
$ccritth = $_.CritTh  
    
$diskinfoGet-WmiObject -Class Win32_LogicalDisk -ComputerName $cserver  -Filter "DeviceID='$cdrivelt'"  
ForEach ($disk in $diskinfo)  
{  
If ($diskinfo.Size -gt 0) {$percentFree = [Math]::round((($diskinfo.freespace/$diskinfo.size) * 100))}  
Else {$percentFree = 0}  
#Process each disk in the collection and write to spreadsheet  
    $Sheet.Cells.Item($row,1)= $disk.__Server  
    $Sheet.Cells.Item($row,2)= $disk.DeviceID  
    $Sheet.Cells.Item($row,3)= $disk.VolumeName  
    $Sheet.Cells.Item($row,4)= [math]::Round(($disk.Size /1GB),2)  
    $Sheet.Cells.Item($row,5)= [math]::Round((($disk.Size - $disk.FreeSpace)/1GB),2)  
    $Sheet.Cells.Item($row,6)= [math]::Round(($disk.FreeSpace / 1GB),2)  
    $Sheet.Cells.Item($row,7)= ("{0:P}" -f ($disk.FreeSpace / $disk.Size))  
        
    #Determine if disk needs to be flagged for warning or critical alert  
    If ($percentFree -le  $ccritth) {  
        $Sheet.Cells.Item($row,8) = "Critical"  
        $critical++  
        #Check to see if space is near empty and use appropriate background colors  
        $range = $Sheet.Range(("A{0}"  -$row),("H{0}"  -$row))  
        $range.Select() | Out-Null    
        #Critical threshold         
        $range.Interior.ColorIndex = 3  
    } ElseIf ($percentFree -gt $ccritth -AND $percentFree -le $cwarnth) {  
        $Sheet.Cells.Item($row,8) = "Warning"  
        $range = $Sheet.Range(("A{0}"  -$row),("H{0}"  -$row))  
        $range.Select() | Out-Null        
        $warning++  
        $range.Interior.ColorIndex = 6  
        }  
     ElseIf ($percentFree -ge $cwarnth -AND $percentFree -lt $clowth) {  
        $Sheet.Cells.Item($row,8) = "Low"  
        $range = $Sheet.Range(("A{0}"  -$row),("H{0}"  -$row))  
        $range.Select() | Out-Null        
        $low++  
        $range.Interior.ColorIndex = 12  
            
    } Else {  
        $Sheet.Cells.Item($row,8) = "Good"  
        $good++  
    }  
    
     $row++  
}  
}  
    
    
#Add a border for data cells have used with the VerticalAlignment property.  
#[Enum]::getvalues([Microsoft.Office.Interop.Excel.XlBordersIndex]) | select @{n="Name";e={"$_"}},value__  
$row--  
$dataRange = $Sheet.Range(("A{0}"  -$initalRow),("H{0}"  -$row))  
7..12 | ForEach {  
    $dataRange.Borders.Item($_).LineStyle = 1  
    $dataRange.Borders.Item($_).Weight = 2  
}  
    
#Auto fit everything so it looks better  
    
$usedRange = $Sheet.UsedRange                                                           
$usedRange.EntireColumn.AutoFit() | Out-Null  
    
    
$sheet = $excel.Worksheets.Item(1)  
     
$row++;$row++  
    
$beginChartRow = $Row  
    
$Sheet.Cells.Item($row,$Column) = 'Critical'  
$Column++  
$Sheet.Cells.Item($row,$Column) = 'Warning'  
$Column++  
$Sheet.Cells.Item($row,$Column) = 'Low'  
$Column++  
$Sheet.Cells.Item($row,$Column) = 'Good'  
$Column = 1  
$row++  
#Critical formula  
$Sheet.Cells.Item($row,$Column)=$critical  
$Column++  
#Warning formula  
$Sheet.Cells.Item($row,$Column)=$warning  
$Column++  
#low formula  
$Sheet.Cells.Item($row,$Column)=$low  
$Column++  
#Good formula  
$Sheet.Cells.Item($row,$Column)= $good  
    
$endChartRow = $row  
    
$chartRange = $Sheet.Range(("A{0}" -$beginChartRow),("d{0}" -$endChartRow))  
    
    
$chart = $sheet.Shapes.AddChart().Chart  
    
    
#Configure the chart  
##Use a 3D Pie Chart  
$chart.ChartType = 70  
$chart.Elevation = 40  
#Give it some color  
$sheet.Shapes.Item("Chart 1").Fill.ForeColor.TintAndShade = .34  
$sheet.Shapes.Item("Chart 1").Fill.ForeColor.ObjectThemeColor = 5  
$sheet.Shapes.Item("Chart 1").Fill.BackColor.TintAndShade = .765  
$sheet.Shapes.Item("Chart 1").Fill.ForeColor.ObjectThemeColor = 5  
    
$sheet.Shapes.Item("Chart 1").Fill.TwoColorGradient(1,1)  
    
#Set the location of the chart  
$sheet.Shapes.Item("Chart 1").Placement = 3  
$sheet.Shapes.Item("Chart 1").Top = 30  
$sheet.Shapes.Item("Chart 1").Left = 600  
    
$chart.SetSourceData($chartRange)  
$chart.HasTitle = $True  
    
$chart.ApplyLayout(6,69)  
$chart.ChartTitle.Text = "Disk Space Report"  
$chart.ChartStyle = 26  
$chart.PlotVisibleOnly = $False  
$chart.SeriesCollection(1).DataLabels().ShowValue = $True  
$chart.SeriesCollection(1).DataLabels().Separator = ("{0}" -f [char]10)  
    
$chart.SeriesCollection(1).DataLabels().Position = 2  
#Critical  
$chart.SeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = 255  
#Warning  
$chart.SeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = 65535  
#Low  
$chart.SeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = 265535  
#Good  
$chart.SeriesCollection(1).Points(3).Format.Fill.ForeColor.RGB = 5287936  
    
#Hide the data  
#$chartRange.EntireRow.Hidden = $True  
    
$sheet.Name = 'DiskInformation'  
    
$filename = "$DirectoryToSaveTo$filename.xlsx"  
if (test-path $filename ) { rm $filename } #delete the file if it already exists  
$Sheet.UsedRange.EntireColumn.AutoFit()  
$Excel.SaveAs($filename$xlOpenXMLWorkbook#save as an XML Workbook (xslx)  
$Excel.Saved = $True  
$Excel.Close() 
 

Output



Conclusion

 

  1. CSV input - Easy to maintain and manage 
  2. Cusotmization can be done at the each drive level as the threshold value may vary on every server and most of the drive depending the size of each drive
  3. Graphical representation of Disk Space Usage Utilization report
  4. Simplest way to keep a cap on every drive to set threshold value
  5. Proactive monitoring and alerting respective teams may avoid unforeseen disk space issues

Note:- I would prefer to read the blog references entered under reference section for more in depth information about charting with PoSH.