@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>'; 
?>