Datos curiosos sobre Antonio López de Santa

En programación Visual Basic Script directamente en windows hay las posibolidades de usar las cajas de textos por medio de InputBox, esta opción no se puede usar en Javascript de la misma forma que en VBS. Hace tiempo investigando sobre como se podría lograr introducir cajas de texto en JavaScript de casualidad encontré un código en un foro (no recuerdo cuál foro) que fue publicado por un usuario Ruso o Alemán , en su momento el programa funcionaba, después lo corría pero no mostraba ningún tipo de funcionamiento, y ahora marca error, al parecer se deba a las actualizaciones de windows que se han hecho con el pasar del tiempo, no estoy seguro pero creo que si el archivo el código se ejecuta en una versión anterior al windows 10 funcionaría correctamente. Publico este post porque para mí este código tiene valor y por lo tanto a alguien más le podría servir y hasta modificarlo de acuerdo a sus necesidades.

var name;
vb.Function = function(func)
05.
{
06.
return function()
  var constants = "OK,Cancel,Abort,Retry,Ignore,Yes,No,OKOnly,OKCancel,AbortRetryIgnore,YesNoCancel,YesNo,RetryCancel,Critical,Question,Exclamation,Information,DefaultButton1,DefaultButton2,DefaultButton3".split(",");
  for(var i = 0; constants[i]; i++) {
    this["vb" + constants[i]] = vbe.eval("vb" + constants[i]);
  }
 
  InputBox = function(prompt, title, msg, xpos, ypos) {
    return vbe.eval('InputBox(' + [
        toVBStringParam(prompt),
        toVBStringParam(title),
        toVBStringParam(msg),
        xpos != null ? xpos : "Empty",
        ypos != null ? ypos : "Empty"
      ].join(",") + ')');
  };
 
  MsgBox = function(prompt, buttons, title) {
    return vbe.eval('MsgBox(' + [
        toVBStringParam(prompt),
        buttons != null ? buttons : "Empty",
        toVBStringParam(title)
      ].join(",") + ')');
  };
 
  function toVBStringParam(str) {
    return str != null ? 'Unescape("' + escape(str + "") + '")' : "Empty";
  }
})(new ActiveXObject("ScriptControl"));
var WshShell = WScript.CreateObject("WScript.Shell");
var name = InputBox('I am "Script-101".\nWhat is your name?', "Name");

MsgBox(greetings, name ? vbInformation : vbCritical, "Greetings");