Pages

Ads 468x60px

viernes, 30 de agosto de 2013

Recuperar Active desktop


Hace unos días  estando en un cliente, me he topado con este “problema” que seguro muchos ya habéis visto. Es el error del “active desktop”.






Creo que esto solo pasaba en Windows XP, o yo al menos no he vuelto a encontrarme con él.
Como me consta que aún hay empresas con XP funcionando e incluso gente que aún se niega a actualizar el sistema operativo (a pesar del riesgo que conlleva) os dejo una solución para que podáis quitar el cartelito.

Lo primero es abrir un documento de texto (con el notepad) y pegar el siguiente codigo:




'***************************************************************************
'
' Script para solucionar el error del 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 sesión, 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 forzará 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.
'***************************************************************************






Bien, una vez tenemos el código, lo guardamos como archivo.vbs (el nombre da igual, pero tiene que tener la extensión .vbs. Si no puedes ponérsela es porque debes quitar la casilla de “ocultar las extensiones de archivo” desde herramientas -> opciones de carpeta -> pestaña ver y ahí quitar el check)








Ya tenemos el archivo en el escritorio, solo nos falta ejecutarlo y tendremos restaurado el active desktop.

NOTA: Ojo, porque cuando lo ejecutes, te dice que se va a cerrar sesión. Si tenías algún documento sin guardar los cambios, los perderás.









Esto es todo. Espero que os ayude.


akil3s.

2 comentarios:

  1. Enhorabuena por el post y aportar siempre información de valor. Ten por seguro que todavia hay muchos usuraios de XP a los cuales frente a este error sin duda alguna agradeceran el aporte de esta solución, fácil y sin problemas para llevarla a cabo sin tener grandes conocimientos. Genial como siempre amigo!!

    ResponderEliminar
    Respuestas
    1. Gracias a ti por estar pendiente, por tus ánimos y tu apoyo incondicional!! Te hace grande ;-)

      Eliminar

Creative Commons Licence
1Gb De informacion by Roberto García Amoriz is licensed under a Creative Commons Attribution-NonCommercial 3.0 Unported License.
Based on a work at http://www.1gbdeinformacion.com/.
Permissions beyond the scope of this license may be available at http://www.1gbdeinformacion.com/.

Perfil profesional en Linkedin

 
Blogger Templates