如何在VB.NET或其他语言中运行字符串形式的VBScript代码？

VB.NET 实现（可行） #

可以通过Windows Script Host的COM组件直接执行字符串形式的VBScript代码，示例代码如下：

Imports Microsoft.VisualBasic
Imports System
Imports System.Runtime.InteropServices

Module VBScriptRunner
    Sub RunVBScriptCode(vbCode As String)
        Dim scriptControl = Interaction.CreateObject("ScriptControl")
        scriptControl.Language = "VBScript"
        Try
            ' 执行无返回值的代码
            scriptControl.ExecuteStatement(vbCode)
            ' 如需获取返回值，使用Eval方法
            ' Dim result = scriptControl.Eval(vbCode)
        Catch ex As Exception
            Console.WriteLine($"执行出错: {ex.Message}")
        Finally
            Marshal.ReleaseComObject(scriptControl)
        End Try
    End Sub
End Module

注意：需在项目中引用Microsoft.VisualBasic程序集，仅适用于Windows环境。

C# 实现（可行） #

和VB.NET逻辑一致，借助COM组件调用VBScript引擎，示例代码：

using System;
using Microsoft.VisualBasic;
using System.Runtime.InteropServices;

public class VBScriptRunner
{
    public static void RunVBScriptCode(string vbCode)
    {
        dynamic scriptControl = Interaction.CreateObject("ScriptControl");
        scriptControl.Language = "VBScript";
        try
        {
            scriptControl.ExecuteStatement(vbCode);
            ' 如需获取返回值：var result = scriptControl.Eval(vbCode);
        }
        catch (Exception ex)
        {
            Console.WriteLine($"执行出错: {ex.Message}");
        }
        finally
        {
            Marshal.ReleaseComObject(scriptControl);
        }
    }
}

需引用Microsoft.VisualBasic程序集，仅支持Windows环境。

Python 实现（可行） #

通过pywin32库调用ScriptControl组件，先执行pip install pywin32安装依赖，示例代码：

import win32com.client
import pythoncom

def run_vbscript_code(vb_code):
    pythoncom.CoInitialize()
    script_control = win32com.client.Dispatch("ScriptControl")
    script_control.Language = "VBScript"
    try:
        script_control.ExecuteStatement(vb_code)
        # 获取返回值：result = script_control.Eval(vb_code)
    except Exception as e:
        print(f"执行出错: {str(e)}")
    finally:
        del script_control
        pythoncom.CoUninitialize()

仅适用于Windows环境。

Node.js 实现（可行） #

通过child_process模块调用系统自带的cscript.exe，将VBScript字符串通过标准输入传递执行，示例代码：

const { exec } = require('child_process');

function runVBScriptCode(vbCode) {
    // 转义特殊字符避免命令行解析错误
    const escapedCode = vbCode.replace(/"/g, '\\"').replace(/\n/g, '\\n');
    exec(`echo "${escapedCode}" | cscript //nologo -`, (error, stdout, stderr) => {
        if (error) {
            console.error(`执行出错: ${error.message}`);
            return;
        }
        if (stderr) {
            console.error(`错误输出: ${stderr}`);
            return;
        }
        console.log(`执行结果: ${stdout}`);
    });
}

仅支持Windows环境，依赖系统自带的cscript.exe。

Java 实现（可行） #

通过ProcessBuilder调用cscript.exe，将VBScript字符串通过输入流传递，示例代码：

import java.io.BufferedWriter;
import java.io.IOException;
import java.io.OutputStreamWriter;

public class VBScriptRunner {
    public static void runVBScriptCode(String vbCode) throws IOException {
        ProcessBuilder pb = new ProcessBuilder("cscript.exe", "//nologo", "-");
        Process process = pb.start();
        
        try (BufferedWriter writer = new BufferedWriter(new OutputStreamWriter(process.getOutputStream()))) {
            writer.write(vbCode);
        }
        
        try {
            int exitCode = process.waitFor();
            System.out.println("执行退出码: " + exitCode);
        } catch (InterruptedException e) {
            Thread.currentThread().interrupt();
        }
    }
}

仅适用于Windows环境，依赖系统自带的cscript.exe。

内容的提问来源于stack exchange，提问作者user24597340