如何从PowerShell向Sparx EA中的VBScript返回对象或对象列表？

要替代CSV文件中转的方案，核心思路是将PowerShell中的对象序列化为JSON格式输出到标准输出（StdOut），然后在VBScript中捕获该输出并解析为可操作的对象。以下是具体实现步骤：

1. 修改PowerShell脚本输出JSON #

将原本导出CSV的代码替换为ConvertTo-Json，直接输出JSON格式的数据。例如：

# 获取Azure AD用户、组及成员关系并序列化为JSON
$azureData = @{
    Users = Get-AzureADUser | Select-Object DisplayName, UserPrincipalName, ObjectId
    Groups = Get-AzureADGroup | Select-Object DisplayName, ObjectId
    Memberships = Get-AzureADUserMembership | Select-Object ObjectId, DisplayName, MemberId
}

# 输出JSON，注意Depth参数避免嵌套属性被截断
$azureData | ConvertTo-Json -Depth 4

提示：使用Select-Object筛选需要的属性，减少数据量；Depth参数根据实际嵌套层级调整（默认值为2，可能不足以保留完整数据）。

2. 在VBScript中捕获PowerShell的标准输出 #

替换原本的shell.Run为shell.Exec，这样可以直接读取PowerShell的输出内容：

Dim shell, execObj, jsonOutput
Set shell = CreateObject("WScript.Shell")

' 执行PowerShell脚本并捕获输出
' 添加-NoProfile和-ExecutionPolicy Bypass避免环境限制
Set execObj = shell.Exec("powershell -NoProfile -ExecutionPolicy Bypass -File """ & script.FullPath & """")

' 读取所有标准输出内容
jsonOutput = execObj.StdOut.ReadAll()

' 等待PowerShell进程执行完成
Do While execObj.Status = 0
    WScript.Sleep 100
Loop

' 检查是否有错误输出
Dim errorOutput
errorOutput = execObj.StdErr.ReadAll()
If errorOutput <> "" Then
    WScript.Echo "PowerShell执行错误：" & errorOutput
    WScript.Quit 1
End If

3. 在VBScript中解析JSON为对象 #

VBScript本身没有原生JSON解析能力，可通过ScriptControl调用JScript的JSON.parse来实现：

' 解析JSON字符串为VBScript可操作的对象
Function ParseJson(jsonStr)
    Dim sc
    Set sc = CreateObject("ScriptControl")
    sc.Language = "JScript"
    sc.AddCode "function parseJson(str) { return JSON.parse(str); }"
    Set ParseJson = sc.Run("parseJson", jsonStr)
End Function

' 解析获取到的JSON数据
Dim azureData
Set azureData = ParseJson(jsonOutput)

' 示例：遍历用户列表
Dim user
For Each user In azureData.Users
    WScript.Echo "用户名称：" & user.DisplayName & "，UPN：" & user.UserPrincipalName
Next

' 示例：遍历组列表
Dim group
For Each group In azureData.Groups
    WScript.Echo "组名称：" & group.DisplayName & "，ID：" & group.ObjectId
Next

优势说明 #

• 避免了临时CSV文件的创建与清理，流程更简洁
• 直接传递结构化数据，无需手动解析CSV格式
• 数据传递效率更高，减少IO操作

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