'Desc: daemon de eliminacion corriendo como un usurio normal (el que lo ejecuta).  De dudoso valor....
'------------ CAMBIAR ---------------------
'archivo a eliminar
file = Left(Wscript.ScriptFullName,InStrRev(Wscript.ScriptFullName,"\")) & "prueba-del.txt"
pathLog ="log-del.txt"
intentos= 120 ' la cantidad de intentos de eliminacion que hara el script. ( 1 intento por segundo )

res=MsgBox("Esta seguro de intentar eliminar el achivo:"& VbCrLf & _
  file & "?",vbOkCancel,"Eliminacion de archivo")
if res <> vbOk then
 WScript.quit(0)
end if
res=MsgBox("Se intentara eliminar el archivo "& VbCrLf & _
  file & VbCrLF & intentos & " veces (1 por segundo)." & VbCrLf & _
  "Ver logs de progreso en:"&pathLog,vbOkCancel,"Informacion")

set fso = CreateObject("Scripting.fileSystemObject")
Set fileLog = fso.OpenTextFile(pathLog, 8 ,TRUE)
fileLog.WriteLine(VbCrLf & _ 
  Now & VbTab & "COMENZANDO EL ELIMINADOR DEL ARCHIVO:" & file )

on error resume next


do while intentos>0
 'if (fso.FileExists(file)) Then
 ' MsgBox("Intentando eliminar:" & file)
 'else 
 ' MsgBox("NO existe:" & file)
 ' WScript.quit(0)
 'end if
 'fileLog.(Now & "Intentando eliminar ....")
 fso.deleteFile file, true 
 intentos=intentos -1 
 ' MsgBox("se llego")
 if err.number <> 0 then
  fileLog.WriteLine(Now & " NO se puedo eliminar,error:" & err.number _
  & " desc: "& err.description )
 else
  fileLog.WriteLine(Now & " SE PUDO ELIMINAR " & file & _ 
  ". Finalizando el eliminador." )
  WScript.Quit(0)
 end if
  WScript.sleep(1000)
loop 

fileLog.WriteLine (Now & _
 " Expiraron los intentos y NO SE PUDO ELIMINAR O EL ARCHIVO NO EXISTE. Finalizando.")