通过Visual Studio启动PowerShell脚本时用户环境变量失效排查

Windows的用户级（User）环境变量本质存储在注册表HKEY_CURRENT_USER\Environment中。使用Environment.SetEnvironmentVariable(..., EnvironmentVariableTarget.User)只会修改注册表，但已运行的进程（包括Visual Studio、你的VB.NET程序）不会自动刷新自身的环境变量集合——进程的环境块是启动时从父进程继承或从注册表加载的，运行过程中不会主动重新读取注册表。

对应你的场景：

1. 首次启动VS并运行程序时，VS的环境块是启动时加载的，不含刚设置的TESTVAR；你的VB.NET进程继承VS的环境，启动PowerShell时也会传递这个旧环境，因此PowerShell读不到新变量。
2. 重启VS后，VS会重新读取注册表中的用户环境变量，此时VB.NET进程的环境块包含TESTVAR，启动的PowerShell自然能读到。
3. 直接运行编译后的EXE时，第一次运行的进程环境从父进程（如资源管理器）继承，此时TESTVAR还未加载到父进程环境；关闭EXE再运行时，进程启动会重新读取注册表，环境块包含TESTVAR，PowerShell就能正常读取。

核心关键点：SetEnvironmentVariable设置EnvironmentVariableTarget.User时，不会自动将变量添加到当前运行的VB.NET进程的环境集合中，而Process.Start启动的子进程默认继承父进程的环境。

方案1：同时设置进程级与用户级环境变量 #

在写入注册表的同时，将变量添加到当前进程的环境中，让PowerShell启动时直接继承：

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 设置用户级环境变量（写入注册表）
        Environment.SetEnvironmentVariable("TESTVAR", "Test Value", EnvironmentVariableTarget.User)
        ' 同时设置当前进程的环境变量，确保子进程能继承
        Environment.SetEnvironmentVariable("TESTVAR", "Test Value", EnvironmentVariableTarget.Process)
        Process.Start("Powershell.exe", "-noexit -ExecutionPolicy Bypass c:\test\test.ps1")
    End Sub
End Class

此方案无论VS调试运行还是直接运行EXE，第一次点击按钮就能让PowerShell读取到TESTVAR。

方案2：启动PowerShell时手动注入环境变量 #

如果不想修改当前进程的环境，可在启动PowerShell时单独构建包含目标变量的环境集合：

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Environment.SetEnvironmentVariable("TESTVAR", "Test Value", EnvironmentVariableTarget.User)
        
        ' 复制当前进程的环境变量集合
        Dim processEnv As New Dictionary(Of String, String)(Environment.GetEnvironmentVariables(EnvironmentVariableTarget.Process))
        ' 添加目标变量到集合
        processEnv("TESTVAR") = "Test Value"
        
        ' 构建进程启动信息并注入环境
        Dim psi As New ProcessStartInfo("Powershell.exe", "-noexit -ExecutionPolicy Bypass c:\test\test.ps1")
        For Each kvp In processEnv
            psi.EnvironmentVariables(kvp.Key) = kvp.Value
        Next
        
        Process.Start(psi)
    End Sub
End Class

这种方式仅修改子进程的环境，不会影响当前VB.NET进程的环境变量。

方案3：发送系统通知刷新环境（局限性大） #

发送WM_SETTINGCHANGE消息通知系统更新环境变量，但该操作仅会让后续从资源管理器启动的进程读取到新变量，已运行的VS或程序不会刷新自身环境，仅适用于非即时生效的场景：

Imports System.Runtime.InteropServices

Public Class Form1
    Private Const WM_SETTINGCHANGE As Integer = &H1A
    Private Const HWND_BROADCAST As Integer = &HFFFF

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function SendMessageTimeout(hWnd As IntPtr, Msg As UInteger, wParam As UIntPtr, lParam As String, fuFlags As UInteger, uTimeout As UInt32, ByRef lpdwResult As UIntPtr) As IntPtr
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Environment.SetEnvironmentVariable("TESTVAR", "Test Value", EnvironmentVariableTarget.User)
        
        ' 发送环境更新通知
        Dim result As UIntPtr
        SendMessageTimeout(CType(HWND_BROADCAST, IntPtr), WM_SETTINGCHANGE, UIntPtr.Zero, "Environment", 2, 5000, result)
        
        Process.Start("Powershell.exe", "-noexit -ExecutionPolicy Bypass c:\test\test.ps1")
    End Sub
End Class

如果你的需求是临时传递密码（避免写入日志），不建议持久化到用户级环境变量（会残留于注册表），更推荐仅使用进程级变量传递：

' 仅设置进程级变量，进程结束后变量自动消失，无残留风险
Environment.SetEnvironmentVariable("TESTVAR", "Test Value", EnvironmentVariableTarget.Process)
Process.Start("Powershell.exe", "-noexit -ExecutionPolicy Bypass c:\test\test.ps1")

内容的提问来源于stack exchange，提问作者Eric van Loon