Molesto cartel:Recuperacion de Active Desktop
Resuelto/Cerrado
Consulta también:
- Restaurar active desktop
- Quitar cartel obtenga office autentico ✓ - Foro de Windows
- App center cartel negro ✓ - Foro de Virus / Seguridad
- Como sacar el cartel de directv de la pantalla ✓ - Foro de Windows
- Sacar cartel obtenga office autentico - Foro Software
- Pato molesto para pc - Programas - Otros
7 respuestas
Saludos,
Para poder solucionar este problema tienes que tener permisos administrativos o de instalacion en la cuenta que sucede el inconveniente, y luego hacer lo siguiente:
Entra en el registro y modifica en esta ruta
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\SafeMode\Components
Cambiadndo el valor que dice DeskHtmlVersion a 0 por que encontraras el valor 272
Y si todavia continuas con el error o no has manejado el registro (REGEDIT), tendras que crear un archivo .vbs con el programa bloq de notas, y pegas el siguiente codigo, recordando que tiene que grabarse con extension .vbs.
Luego buscas en la ubicación donde dejaste el archivo y lo ejecutas, te saldra un mensaje de advertencia el cual aceptaras y listo, sacara la falla, que se produce por una actualizacion del IE 7
Cualquier duda a las ordenes
PD copia todos completo desde los * (asteriscos)
Saludos
Milton Garcia
TechnetGuayquil Leader
'***************************************************************************
' 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.
'***************************************************************************
Para poder solucionar este problema tienes que tener permisos administrativos o de instalacion en la cuenta que sucede el inconveniente, y luego hacer lo siguiente:
Entra en el registro y modifica en esta ruta
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\SafeMode\Components
Cambiadndo el valor que dice DeskHtmlVersion a 0 por que encontraras el valor 272
Y si todavia continuas con el error o no has manejado el registro (REGEDIT), tendras que crear un archivo .vbs con el programa bloq de notas, y pegas el siguiente codigo, recordando que tiene que grabarse con extension .vbs.
Luego buscas en la ubicación donde dejaste el archivo y lo ejecutas, te saldra un mensaje de advertencia el cual aceptaras y listo, sacara la falla, que se produce por una actualizacion del IE 7
Cualquier duda a las ordenes
PD copia todos completo desde los * (asteriscos)
Saludos
Milton Garcia
TechnetGuayquil Leader
'***************************************************************************
' 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.
'***************************************************************************
3 sep 2009 a las 09:04
4 dic 2009 a las 16:11
13 oct 2012 a las 08:11
2 abr 2017 a las 14:34
saludos
27 jul 2017 a las 19:50