[with-love-from-siberia]

... надо сделать так, чтоб некоторые (или все) функции VBScript, можно было вставлять в js код...

Теоретически, решение ниже позволит Вам внедрить любую VBScript-функцию, неподдерживаемую в JScript:
-- описание по ссылке - http://with-love-from-siberia.blogsp...n-jscript.html,
-- полный текст скрипта - http://code.google.com/p/jsxt/source...32/VBScript.js.

var vb = {};


vb.Function = function(func)
{
    return function()
    {
        return vb.Function.eval.call(this, func, arguments);
    };
};


vb.Function.eval = function(func)
{
    var args = Array.prototype.slice.call(arguments[1]);
    for (var i = 0; i < args.length; i++) {
        if ( typeof args[i] != 'string' ) {
            continue;
        }
        args[i] = '"' + args[i].replace(/"/g, '" + Chr(34) + "') + '"'; // '
    }

    var vbe;
    vbe = new ActiveXObject('ScriptControl');
    vbe.Language = 'VBScript';

    return vbe.eval(func + '(' + args.join(', ') + ')');
};


/**
 *
 * InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])
 *
 */
var InputBox = vb.Function('InputBox');


/**
 *
 * MsgBox(prompt[, buttons][, title][, helpfile, context])
 *
 */
var MsgBox = vb.Function('MsgBox');