อัปเดต/เปลี่ยนเค้าโครงเมนูเริ่ม Windows 10 pro สำหรับผู้ใช้ปัจจุบัน

มีบทความมากมายเกี่ยวกับการเปลี่ยนเมนูเริ่มต้นของ Windows 10 สำหรับผู้ใช้ทุกคน ซึ่งทั้งหมดมีเหมือนกันว่าดูเหมือนว่าจะใช้งานได้เฉพาะกับผู้ใช้ใหม่ที่เข้าสู่ระบบเท่านั้น ฉันต้องการวิธีในการเปลี่ยนแปลงสำหรับผู้ใช้ที่มีโปรไฟล์อยู่แล้วและฉันไม่ต้องการ ไม่มี Windows 10 Enterprise

เมนูเริ่มของ Win 10 จะถูกจัดเก็บไว้ในไฟล์ฐานข้อมูล ดังนั้นคุณจึงไม่สามารถปรับเปลี่ยนเค้าโครงเมนูได้จริงๆ แต่มีวิธีที่จะแทนที่ได้ โปรดจำไว้ว่าคุณจะแทนที่เมนูเริ่มต้นทั้งหมดรวมถึงรายการที่เพิ่งเปิดใหม่ด้วย คำขอล่วงหน้าอีกประการหนึ่งคือผู้ใช้ควรออกจากระบบ และคุณจะต้องมีสิทธิ์ของผู้ดูแลระบบ (แต่นั่นไม่ควรเป็นปัญหา)

1. สร้างเค้าโครงเมนู Start ตรวจสอบให้แน่ใจว่าคุณไม่ได้ใช้แอปใด ๆ ในเค้าโครง จำเป็นต้องติดตั้งแอปภายใต้บัญชีผู้ใช้ ดังนั้นจึงใช้งานไม่ได้ เฉพาะแอปพลิเคชันปกติเช่น 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” หากพบจะลบออกและคัดลอกเค้าโครงใหม่ลงไป