Problema de menu.

Eso dependera de la aplicacion que instales, es ella quien decide donde
instalarse y que usuarios accederan, solo algunas te permiten cambiar la
ruta.

Alejandro Curquejo
Microsoft MVP
Windows Shell/User
Andalucia (Spain)


-The computer is your friend; trust the computer
-Inspired community; inspiring people

*Este mensaje se proporciona "tal cual" sin garantia de ninguna clase y no
otorga ningun derecho de reclamo*

-Tips y Articulos XP- http://www.multingles.net/tutdescargas.htm#ALE
-DTS-L.Org- http://www.dts-l.org/

Que es el Programa MVP (Most Valuable Professional)
http://mvp.support.microsoft.com/de...pr=mvpfaqs



"EMP" escribió en el mensaje
news:eyQPqp%

Hola,
En todas las sesiones que tengo, me pasa que veo en el menú, solamente el
contenido de los programas que están en "Documents and Settingsombre
usuario\Menú inicio\programas"
Y no veo los que están en "Documents and Settings\all user\Menú
inicio\programas"
El problema es que casi todos los programas están en "all user" entonces
el
menú me queda casi vació.
¿Como hago para que el menú me tome los programas de los dos lugares, que
creo es como corresponde.?
Muchas gracias

Lo que me pasa es un error, ya que me sucedió después que tuve que reparar
el Wx con la consola de recuperación. Antes funcionaba bien y estaban todos
los programas. Ahora son muy pocos los programas que hay y los demás no los
veo desde ningún perfil. Es como que el menú no tiene para nada en cuenta lo
que hay en all user.
gracias.

"Alezito [MS MVP]" escribió en el mensaje
news:#2sCIz#

Eso dependera de la aplicacion que instales, es ella quien decide donde
instalarse y que usuarios accederan, solo algunas te permiten cambiar la
ruta.

Alejandro Curquejo
Microsoft MVP
Windows Shell/User
Andalucia (Spain)


-The computer is your friend; trust the computer
-Inspired community; inspiring people

*Este mensaje se proporciona "tal cual" sin garantia de ninguna clase y no
otorga ningun derecho de reclamo*

-Tips y Articulos XP- http://www.multingles.net/tutdescargas.htm#ALE
-DTS-L.Org- http://www.dts-l.org/

Que es el Programa MVP (Most Valuable Professional)
http://mvp.support.microsoft.com/de...pr=mvpfaqs



"EMP" escribió en el mensaje
news:eyQPqp%
> Hola,
> En todas las sesiones que tengo, me pasa que veo en el menú, solamente

el

> contenido de los programas que están en "Documents and Settingsombre
> usuario\Menú inicio\programas"
> Y no veo los que están en "Documents and Settings\all user\Menú
> inicio\programas"
> El problema es que casi todos los programas están en "all user" entonces
> el
> menú me queda casi vació.
> ¿Como hago para que el menú me tome los programas de los dos lugares,

que

> creo es como corresponde.?
> Muchas gracias
>
>
>

Hash: SHA1

Fe de erratas en el script.

La línea:
BaseKey = "HKLM\Saftware\Microsoft\Windows\CurrentVersion\Explorer\"

Debe ser:
BaseKey = "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\"

Había modificado la clave por precaución para probar el script sin
fastidiarme nada.

Ojo, las modificaciones en esas claves pueden requerir privilegios de
administrador, o al menos de usuario avanzado.

Lo publico de nuevo corregido:
== Esta línea NO forma parte del script =
On Error Resume Next

Titulo = "Restablecer carpetas del menú Inicio común a todos los usuarios"

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment

If WshEnv("OS") <> "Windows_NT" Then
MsgBox "Este script no está diseñado para entornos Windows 9x.", _
vbCritical Or vbOKOnly, Titulo
WScript.Quit
End If

Resultado = MsgBox("Este script reparará las entradas del registro que " & _
"apuntan" & vbCrLf & "a las carpetas del menú " & _
"Inicio común a todos los usuarios." & vbCrLf & _
vbCrLf & "¿Desea continuar?", vbQuestion Or vbYesNo, _
Titulo)

If Resultado = vbNo Then
WScript.Quit
End If

BaseKey = "HKLM\Saftware\Microsoft\Windows\CurrentVersion\Explorer\"
ShlFldr = BaseKey & "Shell Folders\"
UShlFldr = BaseKey & "User Shell Folders\"
CmnStartMenu = "Common Start Menu"
CmnPrograms = "Common Programs"
CmnStartup = "Common Startup"
EnvVar = "ALLUSERSPROFILE"
UsersProf = WshEnv(EnvVar)
VUsersProf = "%" & EnvVar & "%"
StartMnu = "\Menú Inicio"
Progrms = StartMnu & "\Programas"
Strtup = Progrms & "\Inicio"

WshShell.RegWrite ShlFldr & CmnStartMenu, UsersProf & StartMnu, "REG_SZ"
WshShell.RegWrite ShlFldr & CmnPrograms, UsersProf & Progrms, "REG_SZ"
WshShell.RegWrite ShlFldr & CmnStartup, UsersProf & Strtup, "REG_SZ"

WshShell.RegWrite UShlFldr & CmnStartMenu, VUsersProf & StartMnu, _
"REG_EXPAND_SZ"
WshShell.RegWrite UShlFldr & CmnPrograms, VUsersProf & Progrms, _
"REG_EXPAND_SZ"
WshShell.RegWrite UShlFldr & CmnStartup, VUsersProf & Strtup, _
"REG_EXPAND_SZ"

MsgBox "Operación finalizada", vbInformation Or vbOKOnly, Titulo

== Esta línea NO forma parte del script =
Ramón Sola @ Málaga (España) / MVP Windows - Shell/User
(quitar "IFeelGreat")

Después de reflexionar profundamente, Ramón Sola [MVP Windows Client]
usó su teclado para escribir...

Hash: SHA1

Parece que, en estas claves del registro, son incorrectos los valores
relativos al menú Inicio común a todos los usuarios:

HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders

Los valores son Common Start Menu (Menú Inicio), Common Programs (Menú
Inicio => Todos los programas) y Common Startup (Menú Inicio => Todos los
programas => Inicio).

[...]

Hola Ramón, muchas gracias, pero haber si entendí bien.
Ejecuto el archivo que envías, y se supone que con esto se arregla el
problema.
¿Pero con el script que hago? Supongo que si funciona lo del archivo, nada?
Por la tarde en mi casa, pruebo el ejecutable y te cuento que paso.
Muchas gracias de nuevo y saludos.

EMP - Eduardo


"Ramón Sola [MVP Windows Client]" escribió
en el mensaje news:

Hash: SHA1

Fe de erratas en el script.

La línea:
BaseKey = "HKLM\Saftware\Microsoft\Windows\CurrentVersion\Explorer\"

Debe ser:
BaseKey = "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\"

Había modificado la clave por precaución para probar el script sin
fastidiarme nada.

Ojo, las modificaciones en esas claves pueden requerir privilegios de
administrador, o al menos de usuario avanzado.

Lo publico de nuevo corregido:
== Esta línea NO forma parte del script =>
On Error Resume Next

Titulo = "Restablecer carpetas del menú Inicio común a todos los usuarios"

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment

If WshEnv("OS") <> "Windows_NT" Then
MsgBox "Este script no está diseñado para entornos Windows 9x.", _
vbCritical Or vbOKOnly, Titulo
WScript.Quit
End If

Resultado = MsgBox("Este script reparará las entradas del registro que " &

_

"apuntan" & vbCrLf & "a las carpetas del menú " & _
"Inicio común a todos los usuarios." & vbCrLf & _
vbCrLf & "¿Desea continuar?", vbQuestion Or vbYesNo, _
Titulo)

If Resultado = vbNo Then
WScript.Quit
End If

BaseKey = "HKLM\Saftware\Microsoft\Windows\CurrentVersion\Explorer\"
ShlFldr = BaseKey & "Shell Folders\"
UShlFldr = BaseKey & "User Shell Folders\"
CmnStartMenu = "Common Start Menu"
CmnPrograms = "Common Programs"
CmnStartup = "Common Startup"
EnvVar = "ALLUSERSPROFILE"
UsersProf = WshEnv(EnvVar)
VUsersProf = "%" & EnvVar & "%"
StartMnu = "\Menú Inicio"
Progrms = StartMnu & "\Programas"
Strtup = Progrms & "\Inicio"

WshShell.RegWrite ShlFldr & CmnStartMenu, UsersProf & StartMnu, "REG_SZ"
WshShell.RegWrite ShlFldr & CmnPrograms, UsersProf & Progrms, "REG_SZ"
WshShell.RegWrite ShlFldr & CmnStartup, UsersProf & Strtup, "REG_SZ"

WshShell.RegWrite UShlFldr & CmnStartMenu, VUsersProf & StartMnu, _
"REG_EXPAND_SZ"
WshShell.RegWrite UShlFldr & CmnPrograms, VUsersProf & Progrms, _
"REG_EXPAND_SZ"
WshShell.RegWrite UShlFldr & CmnStartup, VUsersProf & Strtup, _
"REG_EXPAND_SZ"

MsgBox "Operación finalizada", vbInformation Or vbOKOnly, Titulo

== Esta línea NO forma parte del script =>
Ramón Sola @ Málaga (España) / MVP Windows - Shell/User
(quitar "IFeelGreat")

Después de reflexionar profundamente, Ramón Sola [MVP Windows Client]
usó su teclado para escribir...
> Hash: SHA1
>
> Parece que, en estas claves del registro, son incorrectos los valores
> relativos al menú Inicio común a todos los usuarios:
>
> HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
> HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell

Folders

>
> Los valores son Common Start Menu (Menú Inicio), Common Programs (Menú
> Inicio => Todos los programas) y Common Startup (Menú Inicio => Todos

los

> programas => Inicio).
[...]

Hash: SHA1

El script es una alternativa para los que no puedan acceder al archivo
.reg adjunto a mi mensaje.
Si pongo el contenido del archivo .reg directamente en el mensaje las
líneas largas se cortarían, y podría no ser trivial para un usuario normal
reconstruirlas debidamente. Además, prefiero no activar el llamado
"entrecomillado imprimible" en las opciones de envío de Outlook Express,
que evitaría que las líneas apareciesen cortadas.
Ramón Sola @ Málaga (España) / MVP Windows - Shell/User
(quitar "IFeelGreat")

EMP - Eduardo () animó a la concurrencia con esto:

Hola Ramón, muchas gracias, pero haber si entendí bien.
Ejecuto el archivo que envías, y se supone que con esto se arregla el
problema.
¿Pero con el script que hago? Supongo que si funciona lo del archivo,
nada? Por la tarde en mi casa, pruebo el ejecutable y te cuento que
paso.
Muchas gracias de nuevo y saludos.

EMP - Eduardo

[...]