Files
claudetools/clients/cascades-tucson/scripts/fix-shortcuts-check-office.ps1
Howard Enos 8d2ca14cac sync: auto-sync from HOWARD-HOME at 2026-07-17 14:14:41
Author: Howard Enos
Machine: HOWARD-HOME
Timestamp: 2026-07-17 14:14:41
2026-07-17 14:15:20 -07:00

23 lines
1.6 KiB
PowerShell

# 1. Show all shortcuts on public + pilot.test desktop
Write-Output "=== Public Desktop ==="
Get-ChildItem "C:\Users\Public\Desktop\*.url","C:\Users\Public\Desktop\*.lnk" -ErrorAction SilentlyContinue | ForEach-Object { Write-Output " $($_.Name)" }
Write-Output "=== pilot.test Desktop ==="
Get-ChildItem "C:\Users\pilot.test\Desktop\*.url","C:\Users\pilot.test\Desktop\*.lnk" -ErrorAction SilentlyContinue | ForEach-Object { Write-Output " $($_.Name)" }
# 2. Check if M365 Apps / Office is installed
Write-Output ""
Write-Output "=== Installed Office ==="
$office = Get-ItemProperty "HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\*","HKLM:\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\*" -ErrorAction SilentlyContinue | Where-Object { $_.DisplayName -match 'Microsoft 365|Microsoft Office|Teams' } | Select-Object DisplayName, DisplayVersion
if ($office) { $office | ForEach-Object { Write-Output " $($_.DisplayName) v$($_.DisplayVersion)" } } else { Write-Output " None found" }
# 3. Check for Teams specifically
Write-Output ""
Write-Output "=== Teams ==="
$teamsNew = Get-AppxPackage -AllUsers -Name '*MSTeams*' -ErrorAction SilentlyContinue
$teamsClassic = Get-Process Teams -ErrorAction SilentlyContinue
if ($teamsNew) { Write-Output " New Teams (MSIX): $($teamsNew.Version)" } else { Write-Output " New Teams: not installed" }
$teamsExe = Test-Path "C:\Program Files\WindowsApps\MSTeams_*"
$teamsExe2 = Test-Path "C:\Program Files (x86)\Teams Installer\Teams.exe"
Write-Output " WindowsApps MSTeams: $teamsExe"
Write-Output " Classic installer: $teamsExe2"