从ruby脚本调用并将值传递给vbscript

MsgBox "Hello, " & WScript.Arguments(0) & "!"

require 'win32ole'

name = "John"

# 使用 WIN32OLE 创建一个 VBScript 引擎实例
vb = WIN32OLE.new('ScriptControl')
vb.language = 'VBScript'

# 定义一个 VBScript 函数，该函数将调用我们的 VBScript 文件并传递参数
vb.add_code <<-EOF
  Function RunVBS(name)
    Dim objShell, objFSO, file
    Set objShell = CreateObject("WScript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    file = objFSO.GetAbsolutePathName("example.vbs")
    objShell.Run "wscript """ & file & """ " & name
  End Function
EOF

# 调用我们定义的 VBScript 函数并传递参数
vb.invoke('RunVBS', name)