从 cmd.exe 设置持久环境变量

Question

我必须在不同的 Windows 机器上设置环境变量，但我不想通过进入“我的电脑”的属性屏幕来手动更改它们

我想使用批处理文件从命令行执行此操作。据我了解，使用 set 只会更改我将在命令窗口中调用的进程的变量。

我想肯定地设置它，所以以后在运行一个新进程时，它会使用我设置的那些新设置。有没有办法从命令行做到这一点？

Answer 1

使用SETX command（注意'x'后缀）设置在cmd窗口关闭后仍然存在的变量。

例如，设置一个值为“bar”的环境变量“foo”：

setx foo bar

尽管如果您打印使用 (setx /?) 时显示的“注释”值得阅读，尤其是：

2) 在本地系统上，此工具创建或修改的变量将在以后的命令窗口中可用，但在当前的 CMD.exe 命令窗口中不可用。

3) 在远程系统上，此工具创建或修改的变量将在下次登录会话时可用。

在 PowerShell 中，[Environment]::SetEnvironmentVariable 命令。

Answer 2

MSDN documentation for environment variables 告诉你该怎么做：

要以编程方式添加或修改系统环境变量，请将它们添加到 HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager\Environment 注册表项，然后广播 WM_SETTINGCHANGE 消息lParam 设置为字符串“Environment”。这允许应用程序（例如 shell）获取您的更新。

您当然需要管理员权限才能执行此操作。我知道无法从 Windows 批处理中广播 Windows 消息，因此您需要编写一个小程序来执行此操作。

Answer 3

:: Sets environment variables for both the current `cmd` window 
::   and/or other applications going forward.
:: I call this file keyz.cmd to be able to just type `keyz` at the prompt 
::   after changes because the word `keys` is already taken in Windows.

@echo off

:: set for the current window
set APCA_API_KEY_ID=key_id
set APCA_API_SECRET_KEY=secret_key
set APCA_API_BASE_URL=https://paper-api.alpaca.markets

:: setx also for other windows and processes going forward
setx APCA_API_KEY_ID     %APCA_API_KEY_ID%
setx APCA_API_SECRET_KEY %APCA_API_SECRET_KEY%
setx APCA_API_BASE_URL   %APCA_API_BASE_URL%

:: Displaying what was just set.
set apca

:: Or for copy/paste manually ...
:: setx APCA_API_KEY_ID     'key_id'
:: setx APCA_API_SECRET_KEY 'secret_key'
:: setx APCA_API_BASE_URL   'https://paper-api.alpaca.markets'

Answer 4

确实 SET TEST_VARIABLE=value 仅适用于当前进程，因此需要 SETX。在用户级别永久存储环境变量的快速示例。

1. 在 cmd 中，SETX TEST_VARIABLE etc。 尚未应用（echo %TEST_VARIABLE% 显示 %TEST_VARIABLE%，
2. 快速查看：打开cmd，echo %TEST_VARIABLE%显示etc。
3. GUI 检查：系统属性 -> 高级 -> 环境变量 -> 用户变量 -> 您应该看到变量 TEST_VARIABLE 的值为 etc。

Answer 5

VBScript (.vbs) 的示例

Sub sety(wsh, action, typey, vary, value)
  Dim wu
  Set wu = wsh.Environment(typey)
  wui = wu.Item(vary)
  Select Case action
    Case "ls"
      WScript.Echo wui
    Case "del"
      On Error Resume Next
      wu.remove(vary)
      On Error Goto 0
    Case "set"
      wu.Item(vary) = value
    Case "add"
      If wui = "" Then
        wu.Item(vary) = value
      ElseIf InStr(UCase(";" & wui & ";"), UCase(";" & value & ";")) = 0 Then
        wu.Item(vary) = value & ";" & wui
      End If
    Case Else
      WScript.Echo "Bad action"
  End Select
End Sub

Dim wsh, args
Set wsh = WScript.CreateObject("WScript.Shell")
Set args = WScript.Arguments
Select Case WScript.Arguments.Length
  Case 3
    value = ""
  Case 4
    value = args(3)
  Case Else
    WScript.Echo "Arguments - 0: ls,del,set,add; 1: user,system, 2: variable; 3: value"
    value = "```"
End Select
If Not value = "```" Then
  ' 0: ls,del,set,add; 1: user,system, 2: variable; 3: value
  sety wsh, args(0), args(1), UCase(args(2)), value
End If