Get-ChildItem -Path (New-Object -ComObject Shell.Application).NameSpace(8).Self.Path |
  Get-Shortcut |
  Where-Object { !(Test-Path $_.TargetPath)} |
  ForEach-Object {Remove-Item $_.FullName}