为现有用户更新/更改 Windows 10 专业版开始菜单布局

有很多关于为所有用户更改 Windows 10 开始菜单的文章，所有文章的共同点是它们似乎只适用于登录的新用户。我需要一种方法来为已经拥有配置文件的用户更改它，但我没有没有 Windows 10 企业版。

Win 10开始菜单存储在数据库文件中，因此您无法真正操作菜单布局。但有一种方法可以替换它，只需记住，您将替换整个开始菜单，包括最近打开的项目。另一个预先要求是用户应该注销，并且您需要具有管理员权限（但这不应该是问题）。

1. 创建开始菜单布局，确保布局中没有使用任何应用程序。应用程序需要安装在用户帐户下，因此它们无法运行。只有普通应用程序（如 Adobe Reader）和系统应用程序（如计算器）才能工作。

2. 登录用户并以管理员身份登录。

3. 将数据从 %systemdrive%\users\ ppdata\local\TileDataLayer 复制到网络共享。

4. 在客户端计算机上运行以下脚本：

Dim FSfolder
Dim subfolder
Dim i

startFolder = "c:\users"
localAppdata = "\Appdata\Local\"
layoutFolder= "TileDataLayer"

'Network share where the new layout is stored
newLayoutFolder = "\filesrv\netlogon\_INSTALL\Win10\TileDataLayer"

set objShell = CreateObject("Wscript.shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Profile = strSysDrive & startFolder
Set FSfolder = objFSO.GetFolder(Profile) 'getting the user profile folders

For Each subfolder In FSfolder.SubFolders

If (subfolder.Name <> "All Users" And subfolder.Name <> "Default"_
and subfolder.Name <> "LocalService" and subfolder.Name <> "Public") Then

deleteFolder = Profile & "\" & subfolder.Name & localAppdata & layoutFolder
targetFolder = Profile & "\" & subfolder.Name & localAppdata

DeleteThisFolder(deleteFolder)
CopyNewLayout(targetFolder)

end if

Next

'*******************************************************************************************************

Function DeleteThisFolder(FolderName)

If objFSO.FolderExists(FolderName) Then
objShell.Run "CMD.EXE /C RD /S /Q """ & FolderName & """",0,True
End If

End Function

'*******************************************************************************************************

Function CopyNewLayout(FolderName)

If objFSO.FolderExists(FolderName) Then
objFSO.CopyFolder newLayoutFolder, FolderName, True
End If

End Function

该脚本将遍历所有用户的文件夹，查找文件夹“TileDataLayer”。如果找到，它将删除它并将新布局复制到其中。