快捷方式设置过的快捷键扫描

powershell

$paths = @(
    "$env:USERPROFILE\Desktop",
    "$env:PUBLIC\Desktop",
    "$env:APPDATA\Microsoft\Windows\Start Menu\Programs",
    "$env:ProgramData\Microsoft\Windows\Start Menu\Programs"
)
$gsh = New-Object -ComObject WScript.Shell
foreach ($path in $paths) {
    if (Test-Path $path) {
        Get-ChildItem -Path $path -Filter *.lnk -Recurse -ErrorAction SilentlyContinue | ForEach-Object {
            $lnk = $gsh.CreateShortcut($_.FullName)
            if ($lnk.Hotkey) {
                Write-Host "发现热键快捷方式: " -NoNewline
                Write-Host "$($lnk.Hotkey)" -ForegroundColor Cyan -NoNewline
                Write-Host " -> 文件路径: $($_.FullName)" -ForegroundColor Green
            }
        }
    }
}