Solucionando Problemas: Erro no Active Desktop (pt-BR)

Solucionando Problemas: Erro no Active Desktop (pt-BR)

Introdução



É muito comum aparecer o erro de Active Desktop em computadores com Windows XP e papel de parede aplicado via GPO, quando ocorre o desligamento incorreto.



Objetivo



O objetivo deste artigo é apresentar um script que corrige o problema de Active Desktop em computadores com Windows XP e papel de parede aplicado via GPO.



Como fazer



O script abaixo deve ser salvo com a extensão vbs e executado uma vez no computador que apresenta  o erro, caso aconteça de ocorrer o erre futuramente o script deverá ser executado novamente. Será exigido logoff e logon após a execução do script.






'*************************************************************************** 

' 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.




Leave a Comment
  • Please add 6 and 1 and type the answer here:
  • Post
Wiki - Revision Comment List(Revision Comment)
Sort by: Published Date | Most Recent | Most Useful
Comments
  • Luciano Lima [MVP] Brazil edited Revision 2. Comment: Alterado o título para padronização e adicionado a tag Solucionando Problemas  

  • Luciano Lima [MVP] edited Original. Comment: Eu não sou o autor desse artigo. Esse é um bug do sistema e será corrigido em breve.

Page 1 of 1 (2 items)
Wikis - Comment List
Sort by: Published Date | Most Recent | Most Useful
Posting comments is temporarily disabled until 10:00am PST on Saturday, December 14th. Thank you for your patience.
Comments
  • Luciano Lima [MVP] edited Original. Comment: Eu não sou o autor desse artigo. Esse é um bug do sistema e será corrigido em breve.

  • Luciano Lima [MVP] Brazil edited Revision 2. Comment: Alterado o título para padronização e adicionado a tag Solucionando Problemas  

  • Eu não sou o autor desse artigo.

    Por favor, solicito que o autor informe aqui para que possamos corrigir o problema.

    Obrigado.

Page 1 of 1 (3 items)