none
Restaurar Active Desktop con GPO Wallpaper

    Pregunta

  • Buenos dias compañeros.

    Estoy teniendo algunos problemillas con algunos equipos en los que al aplicar la directiva de fondo de pantalla me sale un error de restaurar active desktop y no hay forma de ponerlo bien a no ser que deje de aplicar dicha directiva. En todos los equipos va perfecto, pero hay un par de ellos que me estan dando este problema.

    ¿Sabeis a que puede ser debido?

    La directiva que aplico es la siguiente:

     GPO.  "Configuración de usuario\Plantillas administrativas\Escritorio\Active Desktop" y en "Configuración de usuario\Plantillas administrativas\Panel de control\Pantalla"  Especifico el papel tapiz que está accesible por los equipos, en \\servidor\carpeta\fichero.jpg.

    Saludos y Gracias de antemano.

    viernes, 20 de abril de 2007 6:31

Respuestas

  • Que tal, prueben este script que hace un switch en la clave y cierra la sesion del usuario.

     

    Cualquier cosa me avisan.

     

    Slds.

     

    '***************************************************************************
    ' WMI Script - ActiveDesktop.vbs
    '
    ' Corrige error en el active desktop
    '
    '***************************************************************************
    Rem Definiciones
    Dim objShell, RegLocate, RegLocate1
    Const EWX_LOGOFF   = 0
    Rem Librerias
    Set objShell = WScript.CreateObject("WScript.Shell")
    Set objShell = CreateObject("Wscript.Shell")
    On Error Resume Next
    Rem Cambia el valor del DWORD (Clave del registro)
    RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\SafeMode\Components\DeskHtmlVersion"
    objShell.RegWrite RegLocate,"0","REG_DWORD"
    Rem Advierte del deslogeo
    intReturn = objShell.Popup("Se va a cerrar la sesion para guardar los cambios, presione aceptar", _
        20, "Auto LogOff", wshYesNoDialog + wshQuestionMark)
    If intReturn = wshYes Then
    For Each objPC In GetObject("winmgmts:{(shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
        objPC.Win32Shutdown LOGOFF + FORCE
    Next
    ElseIf intReturn = wshNo Then
        wscript.Quit
    Else
    Rem Si no responde se forza el deslogeo   
    For Each objPC In GetObject("winmgmts:{(shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
        objPC.Win32Shutdown LOGOFF + FORCE
    Next
    End If
    WScript.Quit (0) ' Detiene el Script y sale.

    viernes, 02 de noviembre de 2007 14:34

Todas las respuestas

  • Yo tuve el mismo problema, en resumidas, tenía un problema en mi DC los errores eran 1034, 1058 y errores de SMB. Por otro lado, si usas active desktop este funciona con formatos BMP y no JPG. revisa ambas situaciones

    Saludos

    MV



    viernes, 20 de abril de 2007 13:22
  • Buenas tardes

    He revisado en el DC el visor de sucesos a ver si veia los errores mencionados, pero no los tengo.

    Por otra parte el resto de equipos unos 300... si funciona el active desktop con un fichero jpg, el problema solo me los estan dando un par de equipos puntualmente.

    Saludos

    lunes, 23 de abril de 2007 15:26
  • Yo tengo el mismo problema solo en algunos equipos, solo que para poder restaura le wall´paper ejecuto nuevament el script, o tengo que generar un nuevo perfil, alguien me puede echar lamano.

    Gracias.

    lunes, 23 de julio de 2007 22:56
  • Que tal, prueben este script que hace un switch en la clave y cierra la sesion del usuario.

     

    Cualquier cosa me avisan.

     

    Slds.

     

    '***************************************************************************
    ' WMI Script - ActiveDesktop.vbs
    '
    ' Corrige error en el active desktop
    '
    '***************************************************************************
    Rem Definiciones
    Dim objShell, RegLocate, RegLocate1
    Const EWX_LOGOFF   = 0
    Rem Librerias
    Set objShell = WScript.CreateObject("WScript.Shell")
    Set objShell = CreateObject("Wscript.Shell")
    On Error Resume Next
    Rem Cambia el valor del DWORD (Clave del registro)
    RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\SafeMode\Components\DeskHtmlVersion"
    objShell.RegWrite RegLocate,"0","REG_DWORD"
    Rem Advierte del deslogeo
    intReturn = objShell.Popup("Se va a cerrar la sesion para guardar los cambios, presione aceptar", _
        20, "Auto LogOff", wshYesNoDialog + wshQuestionMark)
    If intReturn = wshYes Then
    For Each objPC In GetObject("winmgmts:{(shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
        objPC.Win32Shutdown LOGOFF + FORCE
    Next
    ElseIf intReturn = wshNo Then
        wscript.Quit
    Else
    Rem Si no responde se forza el deslogeo   
    For Each objPC In GetObject("winmgmts:{(shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
        objPC.Win32Shutdown LOGOFF + FORCE
    Next
    End If
    WScript.Quit (0) ' Detiene el Script y sale.

    viernes, 02 de noviembre de 2007 14:34
  • Este VBScript ha solucionado mi problema.

    Muchas Gracias

     

    miércoles, 07 de noviembre de 2007 15:09
  •  

    he leido tu mensaje.

    pero me podrias decir como abrir la ventana para ver el script,o donde buscarlo para agregarla a ver si a mi me puede funcionar.

    te dejo mi corro pa que me lo mandes alli por favor.

    ar.riga@hotmail.com

    jueves, 10 de abril de 2008 15:14
  • Saludos

    Solamente tienes que copiar el código que está en el post de más arriba, luego abre el notepad y pega dicho código en el notepad. Por último guarda el notepad con la extesión vbs.

    Luego ejecuta el fichero NOMBRE.vbs en el equipo afectado u listo. A mi me funcionó perfectamente y lo uso a menudo aqui en la empresa.

    Suerte!! 

    jueves, 10 de abril de 2008 16:48
  • Buenas Tardes:

     

    Lo definido anteriormente funciona perfecto,  vas al equipo con el problema y corres NOMBRE.vbs y listo.  Ahora a cada rato se sigue presentando el mismo error en los mismos tres equipos y debes volver a corre el archivo.......  de que forma puedo colocar este scrip para que se ejecute cuando el usuario inicie la seccion?

     

    Mi SO es Win2003SVR

     

    Mil Gracias

     

    domingo, 13 de abril de 2008 18:53
  • Este codigo es bueno, soluciono el problema con la Restauración del Active Desktop

    Gracias.
    viernes, 18 de abril de 2008 17:02
  • Hola, tu script va perfecto, soluciono mi problema de Active Desktop.
    Solo que surgio un nuevo problema de uso de messenger, en mi caso bloqueo completamente su uso. Podrias indicarme si en este script lo estas programando porque no soy experto en programacion y no puedo identificar si por codigo lo estas restringiendo.
    Te agradecere si me ayudas con este tema pues en mi caso no se bloquea su uso.
    viernes, 20 de junio de 2008 22:33
  •  Victor-Hugo Escribió:
    Hola, tu script va perfecto, soluciono mi problema de Active Desktop.
    Solo que surgio un nuevo problema de uso de messenger, en mi caso bloqueo completamente su uso. Podrias indicarme si en este script lo estas programando porque no soy experto en programacion y no puedo identificar si por codigo lo estas restringiendo.
    Te agradecere si me ayudas con este tema pues en mi caso no se bloquea su uso.

     

    Hola que tal, realmente no hace referencia a bloqueo de messenger, simplemente hace las funciones del boton de restaurar active desktop pero de manera automatizada... Cuando te refieres a bloqueo de messenger, que hace: No abre, abre pero no conecta, da algun error?

     

    Saludos.

    sábado, 05 de julio de 2008 7:07
  • Que tal, gracias por responder, resulta que un compañero aplico una GPO al tiempo que yo empece a utilizar tu script. Una disculpa, pues con esa GPO bloquea a partir de ese momento el uso de messenger en la empresa. De antemano gracias por contestar y preocuparte, solo que fue un error de apreciasion.
    Muchas gracias, tu respuesta fue muy rapida.
    miércoles, 09 de julio de 2008 23:15
  • Ah ok, siempre pasa jeje. No hay problema, estamos para ayudarnos.

    Suerte y espero que te haya funcionado el script.

    Saludos.

    jueves, 10 de julio de 2008 4:28
  • Que tal, prueben este script que hace un switch en la clave y cierra la sesion del usuario.

     

    Cualquier cosa me avisan.

     

    Slds.

     

    '***************************************************************************
    ' WMI Script - ActiveDesktop.vbs
    '
    ' Corrige error en el active desktop
    '
    '***************************************************************************
    Rem Definiciones
    Dim objShell, RegLocate, RegLocate1
    Const EWX_LOGOFF   = 0
    Rem Librerias
    Set objShell = WScript.CreateObject("WScript.Shell")
    Set objShell = CreateObject("Wscript.Shell")
    On Error Resume Next
    Rem Cambia el valor del DWORD (Clave del registro)
    RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\SafeMode\Components\DeskHtmlVersion"
    objShell.RegWrite RegLocate,"0","REG_DWORD"
    Rem Advierte del deslogeo
    intReturn = objShell.Popup("Se va a cerrar la sesion para guardar los cambios, presione aceptar", _
        20, "Auto LogOff", wshYesNoDialog + wshQuestionMark)
    If intReturn = wshYes Then
    For Each objPC In GetObject("winmgmts:{(shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
        objPC.Win32Shutdown LOGOFF + FORCE
    Next
    ElseIf intReturn = wshNo Then
        wscript.Quit
    Else
    Rem Si no responde se forza el deslogeo   
    For Each objPC In GetObject("winmgmts:{(shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
        objPC.Win32Shutdown LOGOFF + FORCE
    Next
    End If
    WScript.Quit (0) ' Detiene el Script y sale.


    Buenas Tardes, el script es muy bueno, pero tengo un inconveniente muy similar, el equipo me carga el wall paper en el equipo, pero no me carga los iconos del escritorio, pero cuando carga los iconos desaparece el wallpaper y aparece con el fondo azul...la verdad no se que mas hacer... ya actualice las politicas GP en el equipo, pero no me refresca el escritorio...
    martes, 02 de febrero de 2010 20:01
  • Muchas gracias, funciona perfectamente :)

         
    miércoles, 03 de febrero de 2010 19:12
  • Gracias, a mi también me funcionó
    miércoles, 10 de marzo de 2010 15:35
  • Buenos días!

    Tengo un dominio 2003 Server, los usuarios utilizan XP SP3 e IE7, y tengo habilitadas las políticas de grupo que limitan el acceso a la configuracion del escritorio.

    A uno de los usuarios al pinchar con el boton derecho del ratón sobre el fondo de escritorio, le aparece el error de Recuperación del Active Desktop.

    Le he dado permisos de Administrador, he tocado el registro e incluso he ejecutado este Script y sigue teniendo el mismo problema.

     

    Me puede decir que más puedo hacer??

     

    Saludos

     

     

    miércoles, 01 de septiembre de 2010 11:36
  • a mi me pasa lo mismo espero tener suerte
    domingo, 14 de noviembre de 2010 4:27