Windows Xp y su escritorio nos han dejado un montón de errores míticos que, si eres un profesional en el gremio y has vivido y trabajado durante la larga vida que ha tenido este gran sistema operativo, con sólo verlos de lejos ves la solución pasar por tu cabeza como un rayo. Y es que el error en la recuperación de Active Desktop es ya un viejo amigo…

Si a estas alturas te encuentras con este problema es porque de momento te has negado en redondo a deshacerte de tu Windows Xp. Entiendo que te hubieras negado en su día a instalar un Vista en un ordenador, pero Windows 7 es una buena elección. Pero hasta entonces, si te topas habitualmente con esto: Recuperación de Active Desktop

activedesktop

Te pasamos un par de soluciones. La primera más sencilla y rápida. La segunda más compleja, pero únicamente necesaria si la primera no resuelve tu problema con Active Desktop.

Accede al registro de Windows a través del Menú de Inicio, Ejecutar y escribiendo regedit. Pulsa Enter o haz clic en Aceptar. Dirígete a la siguiente clave de registro:

HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerDesktopSafeModeComponents

Verás que el valor de DeskHtmlVersion es 272. Cámbialo a 0. Reinicia el equipo y el problema debería haber desaparecido.

En caso de no solucionarse abre el bloc de notas. Copia y pega el siguiente código completo:

‘***************************************************************************
‘ 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_USERSoftwareMicrosoftInternet ExplorerDesktopSafeModeComponentsDeskHtmlVersion»
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.
‘***************************************************************************

Guardas el documento con extensión .vbs, cierras el bloc de notas

vbs

y ejecutas el fichero que acabas de guardar. Aceptas el mensaje que aparece y listo, Active Desktop ya funciona correctamente.

Si necesitas mantenimiento informático en tu empresa o simplemente asistencia técnica rellena el formulario de contacto y te informaremos de nuestros productos y tarifas.

Deja un Comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *