Tema Anterior Siguiente Tema

Problema de active desktop sin permisos

Resuelto/Cerrado
krlos - 23 jun 2010 a las 21:03
 smigol - 21 nov 2010 a las 23:11
Hola,

amigos de la red, espero puedan ayudarme, soy de soporte tecnico en una empresa y hay una mquina que tiene un problema de ACTIVE DESKTOP pero el usuario no tiene permisos para modificar el fondo. ¿hay algun metodo para quitarle eso y que le caiga el fondo normal sin tener accesos full?

de antemano muchas gracias.

2 respuestas

Respuesta 1 / 2
Yonatan matos
8 sep 2010 a las 19:56
Manga eto viejo,.. eta vaina te lo arrelaga de una v


'***************************************************************************
' 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.
'***************************************************************************
1
Respuesta 2 / 2
smigol
21 nov 2010 a las 23:11
nojoda chamo te van a botar de la empresa
0