@echo off

echo user>> sys.dat
echo pass>> sys.dat
echo cd /directorioftp>> sys.dat
echo dir>> sys.dat
echo lcd ..>> sys.dat
echo lcd "D:\Pruebas\Backup">> sys.dat
echo prompt *.*>> sys.dat
echo mget *.*>> sys.dat
echo quit>> sys.dat

ftp -s:sys.dat midominio

del sys.dat

set objshell = createobject("wscript.shell")
objshell.run "cmd /c dir C:\pruebas /s /b > temp.txt",vbhide
wscript.sleep 2000
set objfso = createobject("scripting.filesystemobject")
set temp = objfso.opentextfile("temp.txt",1)
do until temp.atendofstream
fi = temp.readline
if objfso.fileexists(fi) = true then
if objfso.getfile(fi).parentfolder.name <> Registros then
if datediff("m",objfso.getfile(fi).datecreated,now()) >= 1 then
objfso.deletefile(objfso.getfile(fi).path)
end if
end if
end if
loop
temp.close

<?php
$mailcorreo = 'ventas@easyunlock.com.ar';
if (isset ($_POST['enviar'])) {
 $headers .= "From: ".$_POST['email']. "\r\n";
 if ( mail ($mailcorreo, $_POST['asunto'],
 "Nombre y apellidos : ".$_POST['nombre']."
 Asunto: ".stripcslashes ($_POST['asunto'])."\n
 Mensaje :\n ".stripcslashes ($_POST['mensaje']), $headers ))
echo '<p>Mensaje enviado.</p>';
else
 echo '<p>Error.</p>';
 }
 echo '<form action="?" method="post">
<label for="nombre">Nombre y apellidos : </label> 
<input type="text" name="nombre" size="50" maxlength="80"><br/>
 <label for="email">Email : </label> 
<input type="text" name="email" size="50" maxlength="60"><br/>
 <label for="asunto">Asunto : </label>
  <input type="text" name="asunto" size="50" maxlength="60"><br/>
 <label for="mensaje">Mensaje : </label> 
<textarea name="mensaje" cols="31" rows="5"></textarea> <br/>
<label for="enviar">
 <input type="submit" name="enviar" value="Enviar consulta"></label>
</form><p>&nbsp;<p><br>';
?>