function writeFile(tfile,tstr){var fso=new ActiveXObject("Scripting.FileSystemObject");var a=fso.CreateTextFile(tfile, true);a.WriteLine(tstr);a.Close();}