'**************************************************************************
'*                                                                        *
'*      Fichero de desinstalación del servicio Easy Sat Server 2006       *
'*                                                                        *
'*                       by Oswaldo Vález Palmeiro                        *
'*                                                                        *
'*                           v1.2 / 13.02.2007                            *
'*                                                                        *
'*      ************************************************************      *
'*                                                                        *
'*      Desinstala el servicio ESS de las versiones 1.0 y 1.1             *
'*                                                                        *
'*      UninstallESS2006SP1.vbs                                           *
'*                                                                        *
'**************************************************************************


'Crea objetos necesarios
'-----------------------
Set WshShell = CreateObject("WScript.Shell")
Set WshFSO = CreateObject("Scripting.FileSystemObject")


'Ejecuta las acciones necesarias
'-------------------------------
On Error Resume Next
WshShell.Run "InstallUtil.exe /u EasySatServer2006.exe", 0 , True


'Borra las claves de registro restantes de ESS2006
'-------------------------------------------------
On Error Resume Next
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ESS2006\Security\"
On Error Resume Next
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ESS2006\Enum\"
On Error Resume Next
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ESS2006\"


'Borra las claves de registro restantes de ESS
'---------------------------------------------
On Error Resume Next
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ESS\Security\"
On Error Resume Next
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ESS\Enum\"
On Error Resume Next
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ESS\"


'Borra el archivos innecesarios conservando configuraciones
'----------------------------------------------------------
On Error Resume Next
WshFSO.DeleteFile "EasySatServer2006.exe", True
On Error Resume Next
WshFSO.DeleteFile "EasySatServer2006.InstallState", True
On Error Resume Next
WshFSO.DeleteFile "InstallESS2006.vbs", True
On Error Resume Next
WshFSO.DeleteFile "InstallUtil.exe", True
On Error Resume Next
WshFSO.DeleteFile "Libreria.dll", True
On Error Resume Next
WshFSO.DeleteFile "EasySatServer2006.InstallLog", True
On Error Resume Next
WshFSO.DeleteFile "InstallUtil.InstallLog", True


MsgBox "Es necesario reiniciar para eliminar el servicio ESS totalmente."