求助：Intune创建Office桌面图标脚本报错及合并方法

一、Word快捷方式创建失败的可能原因 #

• Office安装路径不匹配：若设备安装的是32位Office，程序路径应为C:\Program Files (x86)\Microsoft Office\root\Office16\WINWORD.exe，脚本中使用的64位路径会导致找不到目标文件报错。
• 脚本执行上下文问题：Intune默认以系统上下文执行脚本时，[Environment]::GetFolderPath("Desktop")获取的是系统桌面目录（而非当前用户桌面），写入该目录可能因权限不足失败，或创建的快捷方式普通用户无法看到。
• 目标文件权限锁定：若用户桌面已存在Word.lnk且被系统锁定，脚本无权限覆盖会触发报错。
• Office版本差异：部分设备若安装的是Office 2013及更早版本，路径中的Office16需改为对应版本号（如Office15对应2013）。

二、合并后的批量创建快捷方式脚本 #

将所有Office程序信息整理为数组，通过循环批量创建快捷方式，同时兼容32/64位Office路径，适配系统/用户执行上下文：

# 定义Office程序列表：名称、可执行文件名
$officeApps = @(
    @{Name = "Excel"; ExeName = "EXCEL.exe"},
    @{Name = "Word"; ExeName = "WINWORD.exe"},
    @{Name = "PowerPoint"; ExeName = "POWERPNT.exe"},
    @{Name = "Outlook"; ExeName = "OUTLOOK.exe"},
    @{Name = "OneNote"; ExeName = "ONENOTE.exe"}
)

# 根据执行上下文获取目标桌面路径
if ([Security.Principal.WindowsIdentity]::GetCurrent().IsSystem) {
    # 系统上下文：遍历所有普通用户的桌面目录
    $userProfiles = Get-ChildItem "C:\Users" | Where-Object {
        $_.PSIsContainer -and $_.Name -notin @("Public", "Default", "Default User")
    }
    foreach ($profile in $userProfiles) {
        $desktopPath = Join-Path $profile.FullName "Desktop"
        Create-Shortcuts -DesktopPath $desktopPath -OfficeApps $officeApps
    }
} else {
    # 用户上下文：直接获取当前用户桌面
    $desktopPath = [Environment]::GetFolderPath("Desktop")
    Create-Shortcuts -DesktopPath $desktopPath -OfficeApps $officeApps
}

# 定义快捷方式创建函数
function Create-Shortcuts {
    param(
        [string]$DesktopPath,
        [array]$OfficeApps
    )

    # 确保桌面目录存在
    if (-not (Test-Path $DesktopPath)) {
        New-Item -Path $DesktopPath -ItemType Directory | Out-Null
    }

    $wscriptShell = New-Object -ComObject WScript.Shell

    foreach ($app in $OfficeApps) {
        # 优先检查64位路径，再尝试32位路径
        $targetFile = Join-Path "C:\Program Files\Microsoft Office\root\Office16" $app.ExeName
        if (-not (Test-Path $targetFile)) {
            $targetFile = Join-Path "C:\Program Files (x86)\Microsoft Office\root\Office16" $app.ExeName
        }

        # 找到目标文件则创建快捷方式
        if (Test-Path $targetFile) {
            $shortcutFile = Join-Path $DesktopPath "$($app.Name).lnk"
            $shortcut = $wscriptShell.CreateShortcut($shortcutFile)
            $shortcut.TargetPath = $targetFile
            $shortcut.Save()
        } else {
            Write-Warning "未找到$($app.Name)的可执行文件：$targetFile"
        }
    }

    # 释放COM对象，避免内存泄漏
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($wscriptShell) | Out-Null
    [System.GC]::Collect()
    [System.GC]::WaitForPendingFinalizers()
}

三、脚本优化说明 #

• 路径兼容：自动检测64位/32位Office安装路径，解决因Office位数导致的文件找不到问题。
• 上下文适配：系统上下文时为所有普通用户桌面创建快捷方式，用户上下文仅针对当前用户，覆盖Intune两种执行场景。
• 资源管理：手动释放WScript.Shell COM对象，避免长期运行导致的内存泄漏。
• 错误排查：找不到目标文件时输出警告信息，便于定位问题。

内容的提问来源于stack exchange，提问作者Ronald Lam