#Requires -Version 5
#Requires -RunAsAdministrator
#Requires -Module Hyper-V
<#
Written by David Ott
I stole some code from www.thesurlyadmin.com (set-alternatingrows function)
This script will compact FSLogix VHD/VHDX profiles in the profile share.  It would also work for
any directory containing VHD/VHDX files.
Test before using!!
Search for "#####" to find the sections you need to edit for your environment
#>
Function Set-AlternatingRows {
    [CmdletBinding()]
   	Param(
       	[Parameter(Mandatory,ValueFromPipeline)]
        [string]$Line,
       
   	    [Parameter(Mandatory)]
       	[string]$CSSEvenClass,
       
        [Parameter(Mandatory)]
   	    [string]$CSSOddClass
   	)
	Begin {
		$ClassName = $CSSEvenClass
	}
	Process {
		If ($Line.Contains("<tr><td>"))
		{	$Line = $Line.Replace("<tr>","<tr class=""$ClassName"">")
			If ($ClassName -eq $CSSEvenClass)
			{	$ClassName = $CSSOddClass
			}
			Else
			{	$ClassName = $CSSEvenClass
			}
		}
		Return $Line
	}
}
function checkFileStatus($filePath)
    {
            $fileInfo = New-Object System.IO.FileInfo $filePath

        try 
        {
            $fileStream = $fileInfo.Open( [System.IO.FileMode]::Open, [System.IO.FileAccess]::Read, [System.IO.FileShare]::Read )
            $filestream.Close()
            return $false
        }
        catch
        {
            
            return $true
        }
    }
function vhdmount($v) {
try {
Mount-VHD -Path $v -ReadOnly -ErrorAction Stop
return "0"
} catch {
return "1"
}
}
function vhdoptimize($v) {
$i = "0"
$o = [math]::Round((gi $v | select -expand length)/1mb,2)
try {
Optimize-VHD $v -Mode Full -ErrorAction stop
$r = 0
} catch {
$r = 1
}
$n = [math]::Round((gi $v | select -expand length)/1mb,2)
$dif = [math]::Round(($o-$n),2)
$i | select @{n='VHD';e={Split-Path $v -Leaf}},@{n='Before_MB';e={$o}},@{n='After_MB';e={$n}},@{n='Reduction_MB';e={$dif}},@{n='Success';e={if ($r -eq "0"){$true} else {$false}}},@{n='VHD_Fullname';e={$v}}
}
function vhddismount($v) {
try {
Dismount-VHD $v -ErrorAction stop
return "0"
} catch {
return "1"
}
}
$smtpserver = "smtpserver.fqdn" ##### SMTP Server
$to = "your email address" ##### email report to - "email1","email2" for multiple 
$from = "fslogixreport@yourcompany.com" ##### email from
$rootfolder = "\\server\profile_share" ##### root path to vhd(x) files
$vhds = (gci $rootfolder -recurse -Include *.vhd,*.vhdx).fullname 
[System.Collections.ArrayList]$info = @()
$t = 0
foreach ($vhd in $vhds) {
$locked = checkFileStatus -filePath $vhd
if ($locked -eq $true) {
"$vhd in use, skipping."
$info.add(($t | select @{n='VHD';e={Split-Path $vhd -Leaf}},@{n='Before_MB';e={0}},@{n='After_MB';e={0}},@{n='Reduction_MB';e={0}},@{n='Success';e={"Locked"}},@{n='VHD_Fullname';e={$vhd}})) | Out-Null
continue
}
$mount = vhdmount -v $vhd
if ($mount -eq "1") {
$e = "Mounting $vhd failed "+(get-date).ToString()
Send-MailMessage -SmtpServer $smtpserver -From $from -To $to -Subject "FSLogix VHD(X) ERROR" -Body "$e" -Priority High -BodyAsHtml
break
}
$info.add((vhdoptimize -v $vhd)) | Out-Null
$dismount = vhddismount -v $vhd
if ($dismount -eq "1") {
$e = "Failed to dismount $vhd "+(get-date).ToString()
Send-MailMessage -SmtpServer $smtpserver -From $from -To $to -Subject "FSLogix VHD(X) ERROR" -Body "$e" -Priority High -BodyAsHtml
break
}
}
$Header = @" 
<style>
TABLE {border-width: 1px;border-style: solid;border-color: black;border-collapse: collapse;width: 95%} 
TH {border-width: 1px;padding: 3px;border-style: solid;border-color: black;background-color: #6495ED;} 
TD {border-width: 1px;padding: 3px;border-style: solid;border-color: black;} 
.odd { background-color:#ffffff; } 
.even { background-color:#dddddd; } 
</style>
"@
$date = Get-Date
$timestamp = get-date $date -f MMddyyyyHHmmss
##### uncomment the next 2 lines if you would like to save a .htm report (also 2 more at the end)
#$out = Join-Path ([environment]::GetFolderPath("mydocuments")) ("FSLogix_Reports\VHD_Reduction_Report_$timestamp.htm")
#if (!(test-path (Split-Path $out -Parent))) {New-Item -Path (Split-Path $out -Parent) -ItemType Directory -Force | Out-Null}
$before = ($info.before_mb | measure -Sum).Sum
$after = ($info.after_mb | measure -Sum).Sum
$reductionmb = ($info.reduction_mb | measure -Sum).sum
$message = $info | sort After_MB -Descending | ConvertTo-Html -Head $header -Title "FSLogix VHD(X) Reduction Report" -PreContent "<center><h2>FSLogix VHD(X) Reduction Report</h2>" -PostContent "</center><br><h3>Pre-optimization Total MB: $before<br>Post-optimization Total MB: $after<br>Total Reduction MB: $reductionmb</h3>"| Set-AlternatingRows -CSSEvenClass even -CSSOddClass odd
##### comment the next line if you do not wish the report to be emailed
Send-MailMessage -SmtpServer $smtpserver -From $from -To $to -Subject ("FSLogix VHD(X) Reduction Report "+($date).ToString()) -Body "$message" -BodyAsHtml
##### uncomment the next 2 lines to save the report to your My Documents\FSLogix_Reports directory, and open it in your default browser
#$message | Out-File $out
#Invoke-Item $out