function WriteToFile()
{
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var textOfProg = fso.OpenTextFile('./Prog1.txt');
    var string = textOfProg.ReadAll();
        string += ' exit';
    var сommands = string.split(" ", "\n");
    var ip = 0;

    while (сommands[ip] != 'exit')
    {
        switch (сommands[ip])
        {
            case 'ВводиПожалуйста':
                сommands[сommands[ip+1]] = parseInt(WScript.Stdln.ReadLine());
                ip+=2;
                break;
            case 'ПоложиПожалуйстаВЯчейку':
                WScript.echo (сommands [сommands [ip+1] ]);
                ip += 2;
                break;
            case 'ФакториалПожалуйста':
                сommands [сommands [ip+3] ] = сommands[сommands [ip+1] ] + сommands[сommands [ip+2] ]
                ip+=4;
                break;
            case 'ПечатьПожалуйста':
                break;
            case 'НуВсёХватит':
                WScript.Quit()
        }
    }

WriteToFile();