Delete Dead Shortcuts Powershell

$Shortcuts = Get-ChildItem -Recurse "C:\" -Include *.lnk

$Shell = New-Object -ComObject WScript.Shell
foreach ($Shortcut in $Shortcuts)
{
    $Properties = @{
    ShortcutName = $Shortcut.Name
    Path = $Shortcut.FullName
    ShortcutDirectory = $Shortcut.DirectoryName
    Target = $Shell.CreateShortcut($Shortcut).targetpath
    }
    New-Object PSObject -Property $Properties

    if (-not (Test-Path $Properties.Target)) {Remove-Item $Properties.Path -Force -ErrorAction 0}
}