如何在VB.NET中从嵌入PowerShell脚本的PSObject获取PrimarySmtpAddress

1. 先确保PowerShell脚本输出合规 #

你的PowerShell脚本要返回包含PrimarySmtpAddress属性的对象，避免返回纯字符串。示例脚本如下，加入错误抑制避免组不存在时抛出异常：

# 替换为目标组的标识（名称/别名/邮箱地址）
$targetGroup = "NewTestGroup@contoso.com"
Get-UnifiedGroup -Identity $targetGroup -ErrorAction SilentlyContinue | Select-Object PrimarySmtpAddress

2. VB.NET中正确提取属性并实现判断逻辑 #

在VB.NET里，PowerShell返回的PSObject不能依赖动态属性访问（容易因大小写或绑定规则失败），要直接通过属性集合获取值。以下是完整的判断函数：

Imports System.Management.Automation
Imports System.Management.Automation.Runspaces

Public Function IsExchangeGroupMailboxExists(groupIdentity As String) As Boolean
    Dim isExists As Boolean = False
    Dim runspace As Runspace = Nothing
    Dim pipeline As Pipeline = Nothing

    Try
        ' 创建Runspace配置
        Dim config As RunspaceConfiguration = RunspaceConfiguration.Create()
        runspace = RunspaceFactory.CreateRunspace(config)
        runspace.Open()

        ' 创建Pipeline并执行PowerShell命令
        pipeline = runspace.CreatePipeline()
        
        ' 加入Exchange Online连接命令（根据你的认证方式调整，比如证书认证更适合后台应用）
        pipeline.Commands.AddScript("Connect-ExchangeOnline -UserPrincipalName admin@contoso.com -ShowBanner:$false -CommandName Get-UnifiedGroup")
        
        ' 安全传递参数，避免PowerShell注入风险
        pipeline.Commands.AddScript("param($GroupId) Get-UnifiedGroup -Identity $GroupId -ErrorAction SilentlyContinue | Select-Object PrimarySmtpAddress")
        pipeline.Commands.AddParameter("GroupId", groupIdentity)

        ' 执行并获取结果
        Dim results As Collection(Of PSObject) = pipeline.Invoke()

        ' 解析结果：存在返回对象且PrimarySmtpAddress非空则判定为存在
        If results.Count > 0 Then
            Dim smtpProp As PSPropertyInfo = results(0).Properties("PrimarySmtpAddress")
            If smtpProp IsNot Nothing AndAlso Not String.IsNullOrEmpty(smtpProp.Value?.ToString()) Then
                isExists = True
            End If
        End If
    Catch ex As Exception
        ' 异常处理（比如连接失败、权限不足等）
        Console.WriteLine($"操作出错：{ex.Message}")
    Finally
        ' 清理资源
        pipeline?.Dispose()
        runspace?.Close()
        runspace?.Dispose()
    End Try

    Return isExists
End Function

关键注意事项 #

• 属性访问：必须用PSObject.Properties["PrimarySmtpAddress"]直接获取属性，避免动态绑定的不确定性（比如开启Option Strict On时动态属性会报错）。
• 参数安全：用AddParameter传递组标识，不要直接字符串拼接，防止PowerShell注入攻击。
• 连接方式：如果是后台服务，建议使用证书认证的Connect-ExchangeOnline，避免交互式登录。

验证逻辑 #

• 传入已存在的组标识，函数返回True；
• 传入不存在的组标识，函数返回False。

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