Resources For IT Professionals
Post an article
Wikis - Page Details
Options
RSSSubscribe to Article (RSS)
Can You Improve This Article?
Positively! Click Sign In to add the tip, solution, correction or comment that will help other users.

Report inappropriate content using these instructions.
Wiki  >  TechNet Articles  >  Solucionando Problemas: Erro no Active Desktop (pt-BR)

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.



, , , , , , , , [Edit tags]
Leave a Comment
  • Please add 7 and 7 and type the answer here:
  • Post
Wiki - Revision Comment List(Revision Comment)
Sort by: Published Date | Most Recent | Most Useful
Comments
  • 31 Jul 2011 4:43 PM

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

  • 30 Mar 2011 3:09 PM

    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
  • Posted by
    on 30 Mar 2011 3:09 PM

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

  • Posted by
    on 31 Jul 2011 4:43 PM

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

  • Posted by
    on 31 Jul 2011 4:45 PM

    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)