Option explicit
On Error Resume Next

Const ALL_USERS_DESKTOP = &H19&
Const DESKTOP = &H10&
Const PROGRAMS = &H2&
Const ALL_USERS_PROGRAMS = &H17&
Const STARTUP = &H7&
Const ALL_USERS_STARTUP = &H18&

Dim objShell
Dim objFolder
Dim strEreceitaInstallDir
Dim strEreceitaFolder
Dim objShellLink
Dim colItems
Dim objItem
Dim oShell
Dim strProfile64
Dim strProfile86
Dim objFileSys
Dim blnBorrar
Dim colItemsEr
Dim objItemEr
Dim objFolderEr
Dim objShellLinkEr


'Obtenemos la ruta de eReceita
Set oShell = CreateObject("Wscript.Shell") 
strProfile64 = oShell.ExpandEnvironmentStrings("%PROGRAMFILES(X86)%")
strProfile86 = oShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
strProfile64 = Replace(strProfile64, "%PROGRAMFILES(X86)%", "")
strProfile86 = Replace(strProfile86, "%PROGRAMFILES%", "")
strEreceitaInstallDir = UCase(strProfile86 & "\ERECEITA")
If strProfile64 <> "" Then
	strEreceitaInstallDir = UCase(strProfile64 & "\ERECEITA")
End If

Set objShell = CreateObject("Shell.Application")

'Borramos los links de DESKTOP
Set objFolder = objShell.Namespace(DESKTOP)
Set colItems = objFolder.Items
For Each objItem in colItems
	If objItem.IsLink Then
		blnBorrar = false
		Set objShellLink = objItem.GetLink
		If InStr(Ucase(Ltrim(objShellLink.Path)), UCase(Ltrim(strEreceitaInstallDir))) > 0 Then
			blnBorrar = true
		End If
		If blnBorrar Then
			Set objFileSys = CreateObject("Scripting.FileSystemObject") 
			objFileSys.DeleteFile objItem.Path
		End IF
	End If
Next

'Borramos los links de STARTUP
Set objFolder = objShell.Namespace(STARTUP)
Set colItems = objFolder.Items
For Each objItem in colItems
	If objItem.IsLink Then
		blnBorrar = false
		Set objShellLink = objItem.GetLink
		If InStr(Ucase(Ltrim(objShellLink.Path)), UCase(Ltrim(strEreceitaInstallDir))) > 0 Then
			blnBorrar = true
		End If
		If blnBorrar Then
			Set objFileSys = CreateObject("Scripting.FileSystemObject") 
			objFileSys.DeleteFile objItem.Path
		End IF
	End If
Next

'Borramos los links de de PROGRAMS\ERECEITA
Set objFolder = objShell.Namespace(PROGRAMS)
Set colItems = objFolder.Items
For Each objItem in colItems
	If  InStr(Ucase(Ltrim(objItem.Name)), UCase(Ltrim("ERECEITA"))) > 0 Then
		If objItem.IsFolder Then
			Set objFolderEr = objItem.GetFolder
			Set colItemsEr = objFolderEr.Items
			For Each objItemEr in colItemsEr
				If objItemEr.IsLink Then
					blnBorrar = false
					Set objShellLinkEr = objItemEr.GetLink
					If InStr(Ucase(Ltrim(objShellLinkEr.Path)), UCase(Ltrim(strEreceitaInstallDir))) > 0 Then
						blnBorrar = true
					End If
					If blnBorrar Then
						Set objFileSys = CreateObject("Scripting.FileSystemObject") 
						objFileSys.DeleteFile objItemEr.Path
					End IF
				End If
			Next
		End If
	End If
Next

'Borramos Ficheros extra del COF Pontevedra
'Borramos los iconos de DESKTOP
Set objFolder = objShell.Namespace(DESKTOP)
Set colItems = objFolder.Items
For Each objItem in colItems
	blnBorrar = False
	If InStr(Ucase(Ltrim(objItem.Name)),UCase(Ltrim("Remoto Colegio.EXE"))) > 0 Then
		blnBorrar = true
	End If
	If InStr(Ucase(Ltrim(objItem.Name)),UCase(Ltrim("ReiniciarAPI.bat"))) > 0 Then
		blnBorrar = true
	End If
	If InStr(Ucase(Ltrim(objItem.Name)),UCase(Ltrim("ReiniciarLectores.bat"))) > 0 Then
		blnBorrar = true
	End If	
	If blnBorrar Then
		Set objFileSys = CreateObject("Scripting.FileSystemObject") 
		objFileSys.DeleteFile objItem.Path
	End IF
Next

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' A partir de este punto necesitamos permisos administrativos
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Borramos los links de ALL_USERS_DESKTOP
Set objFolder = objShell.Namespace(ALL_USERS_DESKTOP)
Set colItems = objFolder.Items
For Each objItem in colItems
	If objItem.IsLink Then
		blnBorrar = false
		Set objShellLink = objItem.GetLink
		If InStr(Ucase(Ltrim(objShellLink.Path)), UCase(Ltrim(strEreceitaInstallDir))) > 0 Then
			blnBorrar = true
		End If
		If blnBorrar Then
			Set objFileSys = CreateObject("Scripting.FileSystemObject") 
			objFileSys.DeleteFile objItem.Path
		End IF
	End If
Next

'Borramos los links de ALL_USERS_STARTUP
Set objFolder = objShell.Namespace(ALL_USERS_STARTUP)
Set colItems = objFolder.Items
For Each objItem in colItems
	If objItem.IsLink Then
		blnBorrar = false
		Set objShellLink = objItem.GetLink
		If InStr(Ucase(Ltrim(objShellLink.Path)), UCase(Ltrim(strEreceitaInstallDir))) > 0 Then
			blnBorrar = true
		End If
		If blnBorrar Then
			Set objFileSys = CreateObject("Scripting.FileSystemObject") 
			objFileSys.DeleteFile objItem.Path
		End IF
	End If
Next

'Borramos los links de ALL_USERS_PROGRAMS\ERECEITA
Set objFolder = objShell.Namespace(ALL_USERS_PROGRAMS)
Set colItems = objFolder.Items
For Each objItem in colItems
	If  InStr(Ucase(Ltrim(objItem.Name)), UCase(Ltrim("ERECEITA"))) > 0 Then
		If objItem.IsFolder Then
			Set objFolderEr = objItem.GetFolder
			Set colItemsEr = objFolderEr.Items
			For Each objItemEr in colItemsEr
				If objItemEr.IsLink Then
					blnBorrar = false
					Set objShellLinkEr = objItemEr.GetLink
					If InStr(Ucase(Ltrim(objShellLinkEr.Path)), UCase(Ltrim(strEreceitaInstallDir))) > 0 Then
						blnBorrar = true
					End If
					If blnBorrar Then
						Set objFileSys = CreateObject("Scripting.FileSystemObject") 
						objFileSys.DeleteFile objItemEr.Path
					End IF
				End If
			Next
		End If
	End If
Next

If Err Then
  MsgBox Err & " " & Error
End If