\u00c9 muito comum ocorrer erro de Active Desktop quando voc\u00ea aplica pol\u00edtica de papel de parede por GPO e o usu\u00e1rio acaba desligando o computador incorretamente. Para resolver o problema alguns at\u00e9 mesmo chegam a recriar o perfil do usu\u00e1rio. Segue um script que corrige esse problema. Voc\u00ea deve salva-lo em .vbs e execut\u00e1-lo na esta\u00e7\u00e3o de trabalho com problema. O script deve ser executado apenas uma vez, caso o problema ocorrer novamente, voc\u00ea deve execut\u00e1-lo novamente.<\/p>\n

\n<\/div>\n

\u2018***************************************************************************
\n\u2018 WMI Script \u2013 ActiveDesktop.vbs
\n\u2018
\n\u2018 Corrige error en el active desktop
\n\u2018
\n\u2018***************************************************************************
\nRem Definiciones
\nDim objShell, RegLocate, RegLocate1
\nConst EWX_LOGOFF\u00a0\u00a0 = 0
\nRem Librerias
\nSet objShell = WScript.CreateObject(“WScript.Shell”)
\nSet objShell = CreateObject(“Wscript.Shell”)
\nOn Error Resume Next
\nRem Cambia el valor del DWORD (Clave del registro)
\nRegLocate = “HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Desktop\\SafeMode\\Components\\DeskHtmlVersion”
\nobjShell.RegWrite RegLocate,”0″,”REG_DWORD”
\nRem Advierte del deslogeo
\nintReturn = objShell.Popup(“Se va a cerrar la sesion para guardar los cambios, presione aceptar”, _
\n20, “Auto LogOff”, wshYesNoDialog + wshQuestionMark)
\nIf intReturn = wshYes Then
\nFor Each objPC In GetObject(“winmgmts:{(shutdown)}”).ExecQuery(“Select * from Win32_OperatingSystem”)
\nobjPC.Win32Shutdown LOGOFF + FORCE
\nNext
\nElseIf intReturn = wshNo Then
\nwscript.Quit
\nElse
\nRem Si no responde se forza el deslogeo
\nFor Each objPC In GetObject(“winmgmts:{(shutdown)}”).ExecQuery(“Select * from Win32_OperatingSystem”)
\nobjPC.Win32Shutdown LOGOFF + FORCE
\nNext
\nEnd If
\nWScript.Quit<\/p>\n

Cr\u00e9dito :\u00a0http:\/\/www.msitpro.com.br\/?p=283<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"