桌面壁纸部署VBS脚本无法对所有用户生效的问题排查

问题描述 #

部署VBS脚本为企业所有用户更改桌面壁纸，脚本可正常运行，但仅对单个用户账户生效。在四个不同用户配置文件测试时，仅第一个登录的用户壁纸更新，其他用户无变化。

重要说明 #

• 选择脚本而非强制桌面壁纸GPO，目的是保留用户手动更改壁纸的权限。
• 脚本内置版本控制（strCurrentVersion = "9"），方便后续更新壁纸。

使用的脚本 #

' SetWallpaper.vbs
Option Explicit

Dim objShell, strWallpaper, strRegPath, strVersionKey, strCurrentVersion, strSavedVersion, objFSO, objFile, strMarkerPath
Set objShell = CreateObject("WScript.Shell")

' === CONFIGURATION ===
strCurrentVersion = "9"
strWallpaper = "\\VM-AD1\Wallpaper$\wallpaper3.png"
strMarkerPath = objShell.ExpandEnvironmentStrings("%APPDATA%") & "\\WallpaperSet.txt"
strVersionKey = "HKCU\\Control Panel\\Desktop\\"
' ======================

' Check if marker exists and compare version
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strMarkerPath) Then
    Set objFile = objFSO.OpenTextFile(strMarkerPath, 1)
    strSavedVersion = objFile.ReadLine
    objFile.Close
    If strSavedVersion = strCurrentVersion Then
        WScript.Quit ' Already applied
    End If
End If

' Set registry keys for Fill mode
objShell.RegWrite strVersionKey & "Wallpaper", strWallpaper, "REG_SZ"
objShell.RegWrite strVersionKey & "WallpaperStyle", "10", "REG_SZ"
objShell.RegWrite strVersionKey & "TileWallpaper", "0", "REG_SZ"

' Apply wallpaper
objShell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

' Write marker version
Set objFile = objFSO.CreateTextFile(strMarkerPath, True)
objFile.WriteLine strCurrentVersion
objFile.Close

已执行的排查步骤 #

• 脚本和壁纸所在的共享文件夹对所有计算机开放访问权限。
• 在四台机器上用四个不同用户账户完成测试。
• 通过GPO部署计划任务，设置为用户登录时运行脚本。
• 四台机器的计划任务配置均无错误。

疑问 #

脚本是否存在问题导致无法对所有用户生效？

核心问题定位 #

脚本本身逻辑无错误，但计划任务的运行上下文配置错误，导致脚本未以每个登录用户的身份执行，而是固定以某个账户（如系统账户或第一个登录用户）运行，因此仅单个用户生效。

具体修复步骤 #

1. 调整计划任务的安全选项

   • 确保计划任务的「常规」选项卡中，安全选项设置为**「当用户登录时运行」，且该任务部署在用户配置GPO**而非计算机配置GPO中。
   • 若任务部署在计算机配置GPO，默认会以系统账户运行，此时HKCU指向系统账户的注册表 hive，而非当前登录用户的，导致脚本修改的是系统账户的壁纸设置，而非实际登录用户。

2. 验证脚本的用户上下文执行

   • 用第二个测试用户登录机器，检查%APPDATA%\WallpaperSet.txt是否存在：
     • 若不存在，说明脚本未运行，问题出在计划任务的触发条件或权限配置。
     • 若存在但版本不符，需检查脚本的版本判断逻辑（但根据描述第一个用户正常，此情况概率极低）。

3. 优化脚本的注册表路径

   • 脚本中strVersionKey = "HKCU\\Control Panel\\Desktop\\"的双反斜杠可简化为strVersionKey = "HKCU\Control Panel\Desktop\"，VBS中单个反斜杠即可表示路径分隔符，避免转义混淆。

4. 添加脚本错误日志

   • 增加错误捕获代码，记录执行异常以便排查：

     On Error Resume Next
     ' ... 原有脚本内容 ...
     If Err.Number <> 0 Then
         Dim objLogFile
         Set objLogFile = objFSO.CreateTextFile(objShell.ExpandEnvironmentStrings("%TEMP%") & "\\WallpaperScriptError.log", True)
         objLogFile.WriteLine "Error: " & Err.Description & " (Code: " & Err.Number & ")"
         objLogFile.Close
         Err.Clear
     End If
     On Error GoTo 0
     

5. 确认共享文件夹权限

   • 确保域用户组（如Domain Users）对\\VM-AD1\Wallpaper$拥有读取权限，避免部分用户无法访问壁纸文件。

总结 #

脚本本身是针对单个用户设计的（使用HKCU和%APPDATA%），问题根源在GPO计划任务的运行上下文配置。调整任务为「当用户登录时运行」并部署到用户配置GPO，即可解决仅单个用户生效的问题。

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