Aqui les dejo esta aplicacion, creada por 11Sep y yo. Lo que hace es restaurar entradas que podrian haber sido modificadas para evitar alguna de las acciones mostradas en la imagen. Esta es la primer version, para la proxima agregaremos mas entradas y quizas cambiemos la interfaz.
(http://www.image-share.com/upload/289/300.png) (http://www.image-share.com/ipng-289-300.html)
Descarga MediaFire (http://www.mediafire.com/?dk2zjljgjiz)
Option Explicit
Dim Rege As Object
Const System As String = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
Const Explorer As String = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
Private Sub Form_Load()
Set Rege = CreateObject("WScript.Shell")
End Sub
Private Sub LblAceptar_Click()
If Me.ChkAdmin.Value = 1 Then TaskMgr
If Me.ChkApagar.Value = 1 Then Boton
If Me.ChkBuscar.Value = 1 Then Buscar
If Me.ChkDesinstalar.Value = 1 Then DesInstalar
If Me.ChkMenu.Value = 1 Then Menu
If Me.ChkMsConfig.Value = 1 Then MsConfig
If Me.ChkOcultos.Value = 1 Then FilesHidden
If Me.ChkOptFile.Value = 1 Then OptCarpeta
If Me.ChkPanel.Value = 1 Then Panel
If Me.ChkPantalla.Value = 1 Then Pantalla
If Me.ChkReg.Value = 1 Then Registro
If Me.ChkRun.Value = 1 Then Ejecutar
MsgBox "Listo, para que los cambios hagan efecto, por favor reinicie el PC", vbInformation, "S&S Labs"
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'1.
Sub Registro()
On Error Resume Next
'Habilita el registro
Rege.regdelete System & "DisableRegistryTools"
End Sub
'2.
Sub TaskMgr()
On Error Resume Next
'Habilita el Administrador de tareas
Rege.regdelete System & "DisableTaskMgr"
End Sub
'3.
Sub OptCarpeta()
On Error Resume Next
'Habilita las opciones de carpeta
Rege.regdelete Explorer & "NoFolderOptions"
End Sub
'4.
Sub Ejecutar()
On Error Resume Next
'Habilita ejecutar [Win + r]
Rege.regdelete Explorer & "NoRun"
End Sub
'5.
Sub Panel()
On Error Resume Next
'Habilita panel de control
Rege.regdelete Explorer & "NoControlPanel"
End Sub
'6.
Sub Boton()
On Error Resume Next
'Muestra el boton apagar
Rege.regdelete Explorer & "NoClose"
End Sub
'7.
Sub DesInstalar()
On Error Resume Next
'Permite desinstalar programas
Rege.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Uninstall\NoAddRemovePrograms"
End Sub
'8.
Sub Menu()
On Error Resume Next
'Habilita el menu contextual
Rege.regdelete Explorer & "NoViewContextMenu"
End Sub
'9.
Sub Pantalla()
On Error Resume Next
'Propiedades de pantalla
Rege.regdelete System & "NoDispCpl"
End Sub
'10.
Sub Buscar()
On Error Resume Next
'Habilita la opcion buscar
Rege.regdelete Explorer & "NoFind"
End Sub
'11.
Sub MsConfig()
On Error Resume Next
'Habilita el msconfig
Rege.regdelete System & "DisableMsConfig"
End Sub
'12.
Sub FilesHidden()
On Error Resume Next
'Muestralos archivos ocultos
Rege.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Advanced\Hidden"
End Sub
Saludos ;)
S&S Labs