// ExecuteVBScriptFile executes .VBS script files.
// argument0: The VBScript script file to execute.

if (file_exists(argument0) == true) {

    var __vbsFile__, __vbsString__;

    __vbsFile__   = file_text_open_read(argument0);
    __vbsString__ = "";

    while (file_text_eof(__vbsFile__) == false) {

        __vbsString__ += file_text_read_string(__vbsFile__);
        file_text_readln(__vbsFile__);

    }

    file_text_close(__vbsFile__);

    // see how ENIGMA and GM 8.1 are reading this shit
    show_message(__vbsString__);

    ExecuteStatement(__vbsString__, "VBScript");

} else {

    show_message("File not found!");

}