Actualizar/cambiar el diseño del menú de inicio de Windows 10 pro para usuarios existentes

Hay muchos artículos sobre cómo cambiar el menú de inicio de Windows 10 para todos los usuarios, todos tienen en común que solo parecen funcionar para los nuevos usuarios que inician sesión.

Necesitaba una forma de cambiarlo para los usuarios que ya tienen un perfil y no No tengo Windows 10 Enterprise.

El menú de inicio de Win 10 se almacena en un archivo de base de datos, por lo que realmente no puede manipular el diseño del menú.

Pero hay una manera de reemplazarlo, solo tenga en cuenta que reemplazará todo el menú de inicio, incluidos los elementos abiertos recientemente.

Otra solicitud previa es que los usuarios deben cerrar sesión y deberá tener permisos de administrador (pero eso no debería ser un problema).

  1. Cree el diseño del menú Inicio, asegúrese de no usar ninguna aplicación en el diseño. Las aplicaciones deben instalarse con la cuenta de usuario, por lo que no funcionarán. Solo funcionarán las aplicaciones normales como Adobe Reader y la aplicación del sistema como Calculadora.
  2. Inicie sesión como usuario e inicie sesión como administrador.
  3. Copie los datos de %systemdrive%\users\\appdata\local\TileDataLayer a un recurso compartido de red.
  4. Ejecute el siguiente script en la máquina cliente:
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

El script pasará por todas las carpetas de los usuarios buscando la carpeta «TileDataLayer». Si lo encuentra, lo eliminará y copiará el nuevo diseño en él.

Otros artículos relacionados

Mejor administrador de conexión de escritorio remoto

Mejor administrador de conexión de escritorio remoto

Si necesita administrar una gran cantidad de servidores y/o dispositivos de red, un buen administrador de conexión de escritorio remoto ...
Leer Más
Habilitación del archivo local para todos los usuarios con PowerShell

Habilitación del archivo local para todos los usuarios con PowerShell

El archivo local que obtiene con Exchange Online proporciona a sus usuarios espacio de almacenamiento adicional. Con PowerShell podemos habilitar ...
Leer Más
Vista previa de PDF en Outlook 2016 con PDF xChange 7.0.323 no funciona

Vista previa de PDF en Outlook 2016 con PDF xChange 7.0.323 no funciona

La vista previa de PDF en Outlook 2016 ya no funciona con la versión 7.0.323 del editor PDF xChange. Debería ...
Leer Más
Arreglar VCRunTime140 DLL no encontrado en 5 min

Arreglar VCRunTime140 DLL no encontrado en 5 min

Está intentando iniciar una aplicación pero, en su lugar, obtiene un error del sistema, no se encontró vcruntime140 dll. O ...
Leer Más
Instalación de Grafana, InfluxDB y Telegraf usando Docker

Instalación de Grafana, InfluxDB y Telegraf usando Docker

He estado usando PRTG para monitorear nuestra red durante más de 5 años, pero nunca me gustó la apariencia de ...
Leer Más
Implementar conexión ODBC

Implementar conexión ODBC

Puede implementar una conexión ODBC de 2 formas, con un GPO o con un archivo de registro que también se ...
Leer Más

Deja un comentario