Runn a antispyware then run next script:
copy and paste in a notepad the next text, then save it whit add.vbs.
This script has a spanish text however you only should have click in OK or
ACEPTAR Button:
' from here
' Complemento Antiespías
' Versión 1.5 Daniel Martín (MVP)
' 2006
'
' Este pequeño script restablece la configuración original de ciertos
parámetros
' de Windows una vez ha tenido lugar una infección de archivos espías
(spyware) o virus.
'
' Nota: Utilice este programa *siempre* después de que haya limpiado su PC
' con una aplicación apropiada, esta aplicación no sustituye a
' su programa contra los archivos espías o a su antivirus.
On Error Resume Next ' Si hay claves que no existen, prosigue
Dim WshShell, clave1, clave2, clave3, clave4, respuesta
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
clave1 = "HKCU\Software\Microsoft\"
clave2 = "HKLM\Software\Microsoft\"
clave3 = "HKCU\Software\Policies\Microsoft\Internet Explorer\"
clave4 = "HKLM\Software\Policies\Microsoft\Internet Explorer\"
clave5 = "HKLM\Software\Policies\Microsoft\"
respuesta = Msgbox ("Complemento Antiespías 1.5, por Daniel Martín" &
Chr(13) & Chr(13) & "Pulse Aceptar para eliminar todo tipo de restricciones
que pueda experimentar en Windows debido a una infección de 'spyware' o
virus." & Chr(13) & Chr(13) & "NOTA: Utilice este programa *siempre* después
de que haya limpiado su PC con una aplicación apropiada; esta aplicación no
sustituye a su programa contra los archivos espías o a su antivirus." &
Chr(13) & Chr(13) & "Sistemas", 1 , "Complemento Antiespías")
If respuesta = 2 then ' El usuario aprieta Cancelar
WScript.Quit ' Sal
Else ' Restablecemos ciertos parámetros
fso.DeleteFile(WshShell.ExpandEnvironmentStrings("%WinDir%\System32\GroupPolicy\User\Registry.pol"))
fso.DeleteFile(WshShell.ExpandEnvironmentStrings("%WinDir%\System32\GroupPolicy\Machine\Registry.pol"))
WshShell.RegDelete clave3 & "Control Panel\ResetWebSettings"
WshShell.RegDelete clave3 & "Control Panel\HomePage"
WshShell.RegWrite clave1 & "Internet Explorer\Main\Start Page",
"
www.google.com/"
WshShell.RegWrite clave1 & "Internet Explorer\Main\Search Page",
"
www.google.com/"
WshShell.RegWrite clave2 & "Internet Explorer\Main\Start Page",
"
www.google.com"
WshShell.RegWrite clave2 & "Internet Explorer\Main\Search Page",
"
www.google.com/"
WshShell.RegWrite clave2 & "Internet Explorer\Main\Default_Page_URL",
"
www.google.com/"
WshShell.RegWrite clave2 & "Internet Explorer\Main\Default_Search_URL",
"
www.google.com/"
WshShell.RegWrite clave2 & "Internet Explorer\Main\Local Page",
"%SystemRoot%\system32\blank.htm"
WshShell.RegDelete clave1 &
"Windows\CurrentVersion\Policies\Explorer\NoThemesTab"
WshShell.RegDelete clave1 & "Windows\CurrentVersion\Policies\Explorer\NoRun"
WshShell.RegDelete clave1 &
"Windows\CurrentVersion\Policies\System\NoDispBackgroundPage"
WshShell.RegDelete clave1 &
"Windows\CurrentVersion\Policies\System\NoDispAppearancePage"
WshShell.RegDelete clave1 &
"Windows\CurrentVersion\Policies\System\NoDispScrSavPage"
WshShell.RegDelete clave1 &
"Windows\CurrentVersion\Policies\System\DisableTaskMgr"
WshShell.RegDelete clave1 &
"Windows\CurrentVersion\Policies\System\Wallpaper"
WshShell.RegDelete clave1 &
"Windows\CurrentVersion\Policies\System\WallpaperStyle"
WshShell.RegDelete clave1 &
"Windows\CurrentVersion\Policies\System\DisableRegistryTools"
WshShell.RegDelete clave3 & "Restrictions\NoBrowserOptions"
WshShell.RegDelete clave3 & "Control Panel\AdvancedTab"
WshShell.RegDelete clave3 & "Control Panel\ConnectionsTab"
WshShell.RegDelete clave3 & "Control Panel\ContentTab"
WshShell.RegDelete clave3 & "Control Panel\GeneralTab"
WshShell.RegDelete clave3 & "Control Panel\PrivacyTab"
WshShell.RegDelete clave3 & "Control Panel\ProgramsTab"
WshShell.RegDelete clave3 & "Control Panel\SecurityTab"
WshShell.RegDelete clave4 & "Control Panel\AdvancedTab"
WshShell.RegDelete clave4 & "Control Panel\ConnectionsTab"
WshShell.RegDelete clave4 & "Control Panel\ContentTab"
WshShell.RegDelete clave4 & "Control Panel\GeneralTab"
WshShell.RegDelete clave4 & "Control Panel\PrivacyTab"
WshShell.RegDelete clave4 & "Control Panel\ProgramsTab"
WshShell.RegDelete clave4 & "Control Panel\SecurityTab"
WshShell.RegDelete clave2 &
"Windows\CurrentVersion\Policies\Explorer\NoThemesTab"
WshShell.RegDelete clave2 & "Windows\CurrentVersion\Policies\Explorer\NoRun"
WshShell.RegDelete clave2 &
"Windows\CurrentVersion\Policies\System\NoDispBackgroundPage"
WshShell.RegDelete clave2 &
"Windows\CurrentVersion\Policies\System\NoDispAppearancePage"
WshShell.RegDelete clave2 &
"Windows\CurrentVersion\Policies\System\NoDispScrSavPage"
WshShell.RegDelete clave2 &
"Windows\CurrentVersion\Policies\System\DisableTaskMgr"
WshShell.RegDelete clave2 &
"Windows\CurrentVersion\Policies\System\Wallpaper"
WshShell.RegDelete clave2 &
"Windows\CurrentVersion\Policies\System\WallpaperStyle"
WshShell.RegDelete clave2 &
"Windows\CurrentVersion\Policies\System\DisableRegistryTools"
WshShell.RegDelete clave5 & "WindowsFirewall\StandardProfile\"
WshShell.RegDelete clave5 & "WindowsFirewall\DomainProfile\"
WshShell.RegDelete clave5 & "WindowsFirewall\"
Msgbox "Los parámetros por defecto se han establecido en su sistema, por
favor reinicie el sistema a continuación. Si aún tiene alguna restricción
aplicada, le agradecería que lo comunicara al area de sistemas para mejorar
las futuras versiones de esta herramienta. Gracias.", , "Complemento
Antiespías"
End If
Set WshShell = nothing
____________________
Good luck
Pedro
Daniel Martin's web page:
http://rinconwindows.blogspot.com/