Háttérkép váltás

var fso;
var objargs = WScript.Arguments;
var vpath;
 
function CpRndFile(fso,fname,folderspec)
{
 var f, f1, fc, idx;
 f = fso.GetFolder(folderspec);
 fc = new Enumerator(f.files);
 ith=Math.round((f.files.count) * Math.random());
 WScript.Echo(ith);
 idx=0;
 for (; !fc.atEnd(); fc.moveNext())
 {
  if (idx==ith)
  {
   fname='C:\\Windows\\'+fname;
   fc.item().Copy(fname);
   break;
  }
  idx++;
 }
}
 
fso = new ActiveXObject("Scripting.FileSystemObject");
 
if (objargs.length==2)
{
 if (fso.FolderExists(objargs(1)))
   vpath = objargs(1);
 else
  WScript.Echo('Útvonal elérhetetlen...');
}
else
  WScript.Echo('Használat:\n '+fso.GetBaseName(WScript.ScriptName)+' <háttérfile neve> <keresési útvonal>');
 
if (vpath)
  CpRndFile(fso,objargs(0),vpath);