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.
