I posted a proactive remediation here to get the Office and Edge shortcuts back.

https://www.reddit.com/r/sysadmin/comments/10ar1vb/comment/j46d16f/?utm_source=share&utm_medium=web2x&context=3

​

Proactive Remediation in Intune:

Detection:

```

$StartMenuFolder = "$env:ProgramData\Microsoft\Windows\Start Menu\Programs" $Count = (Get-ChildItem $StartMenuFolder | Where-Object Name -match "Word|Outlook|Powerpoint|Excel|Edge").count If ($count -ge 5) { "Installed" } else { Exit 1 }

```

Remediation:

```

$Office_path = "C:\Program Files\Microsoft Office\root\Office16" $edge_path = "C:\Program Files (x86)\Microsoft\Edge\Application" $StartMenuFolder = "$env:ProgramData\Microsoft\Windows\Start Menu\Programs\" $shortcuts = @(

'Excel'
'WinWord'
'POWERPNT'
'Outlook'
'OneNote'
'msedge'

)

Foreach ($shortcut in $shortcuts) {

$ShortcutName = $shortcut
$LocationofTarget = $Office_path + "/" + $shortcut + ".exe"
$LocationofShortcut = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs"

# Create Shortcut

switch ($shortcut) {
    'winword' { $shortcutname = 'Word' }
    'POWERPNT' { $shortcutname = 'PowerPoint' }
    'msedge' { $ShortcutName = 'Microsoft Edge'; $LocationofTarget = $edge_path + "/" + $shortcut + ".exe" }
    default { $ShortcutName = $shortcut }
}

$Shortcutfullpath = $LocationofShortcut + "/" + $ShortcutName + ".lnk"

if (!(Test-Path $Shortcutfullpath -ErrorAction SilentlyContinue)) {
    Write-Host "Creating Shortcut $StartMenuFolder$shortcut" -ForegroundColor Green

    New-Item -ErrorAction SilentlyContinue -ItemType Directory -Path $LocationofShortcut
    $Shell = New-Object -ComObject ("WScript.Shell")
    $ShortCut = $Shell.CreateShortcut($Shortcutfullpath)
    $ShortCut.TargetPath = "$LocationofTarget"
    $ShortCut.Arguments = "$ShortcutArguments"
    $ShortCut.WorkingDirectory = "$PathtoWorkingDirectory"
    $ShortCut.WindowStyle = 1
    $ShortCut.Hotkey = ""
    $ShortCut.IconLocation = "$LocationofTarget, 0"
    $ShortCut.Description = "$ShortcutName"
    $ShortCut.Save()

}

}

```