[Iska]

termitt, не хотите просто взять «SetX.exe» и не мучаться?

[Georgio]

Существуют некоторые опасения в использовании команды "SETX" в данном случае: "Исправить переменную PATH - Batch (CMD_BAT) - CyberForum.ru". Но подтвердить или опровергнуть их не могу: экскр экспериментировать не хочется.

[Iska]

Я поэкспериментировал .

Сразу не соглашусь с:

Правда SetX есть только в системах >= Windows Server 2003.

Он идёт в комплекте Resource Kit'ов.

И это неверное утверждение:

Не используйте SetX для присвоения значения переменной Path. Это неверный способ, т.к. переменная будет создана по адресу: HKEY_CURRENT_USER\Environment\Path что хоть и перекроет системную переменную HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment но остальные приложения, которые будут записывать новые пути в правильное расположение Path уже будут недоступные.

Достаточно просто добавить параметр «-m» (по крайней мере, так в моей версии).

Проблема, как я теперь вижу, совсем в другом: как получить простым способом текущее значение «Machine» PATH, т.е. из HKLM? Переменная окружения PATH нам не гожа — она ведь представляет собой слияние обеих переменных PATH — из Machine (HKLM) и User (HKCU) разделов. Т.е., либо мы опять возвращаемся к «reg.exe» с его различным выводом в разных версиях ОС, либо… понимаем, что пора переходить на WSH/PoSH .

Пометил предыдущий пост, как некорректный. Во всяком случае, пока некорректный.

[Foreigner]

Это неверный способ, т.к. переменная будет создана по адресу: HKEY_CURRENT_USER\Environment\Path что хоть и перекроет системную переменную HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment но остальные приложения, которые будут записывать новые пути в правильное расположение Path уже будут недоступные.

Пользовательская PATH (в HKCU\Environment) только дополняет системную, но не переписывает:

Код:

  > echo %path% | sed "s/;/\n/g"                      
C:\Users\user\BIN\CONEMU                              
C:\Users\user\BIN\CONEMU\ConEmu                       
C:\Program Files (x86)\NVIDIA Corporation\PhysX\Common
C:\WINDOWS\system32                                   
C:\WINDOWS                                            
C:\WINDOWS\System32\Wbem                              
C:\WINDOWS\System32\WindowsPowerShell\v1.0\           
C:\Program Files (x86)\Intel\OpenCL SDK\2.0\bin\x86   
C:\Program Files (x86)\Intel\OpenCL SDK\2.0\bin\x64   
C:\Users\user\BIN                                     
C:\Users\user\BIN\GNU\BIN                             
C:\Users\user\BIN\SYSINTERNALS                        
C:\Program Files (x86)\Java\jre7\bin                  

  > reg query hkcu\environment /v path | sed -r -ne "/REG/ s/(.*REG_.+\s+)(.*)/\2/" -e "s/;/\n/pg"
%USERPROFILE%\BIN                                                                                 
%USERPROFILE%\BIN\GNU\BIN                                                                         
%USERPROFILE%\BIN\SYSINTERNALS                                                                    
%ProgramFiles(x86)%\Java\jre7\bin

[Iska]

Пользовательская PATH (в HKCU\Environment) только дополняет системную, но не переписывает: »

Я бы сказал — перекрывает значения перечисленных путей.

[termitt]

извините быть может я тут многих не понял. но суть тут не в переменной Path . цель моя просто дописывать (дополнять) через точку с запятой любые значения переменной и в любой переменной будь это path или blalbla и т.д и т.п . может мне кто предложит поменьше код или проще есть вариант. или ваще оставить как есть!!

[Iska]

суть тут не в переменной Path »

Как раз в ней и суть. Ибо надо не просто присвоить значение, а добавить. Причём только единожды.

На WSH:

Код:

Option Explicit

Dim strPath4Add

Dim objWshShell

Dim strPaths
Dim strPath

Dim boolFound


strPath4Add = "C:\ProgramFiles(x86)\Autodesk\AutoCAD 2014"

Set objWshShell = WScript.CreateObject("WScript.Shell")

strPaths = Trim(objWshShell.Environment("SYSTEM").Item("PATH"))

If Len(strPaths) <> 0 Then
	boolFound = False
	
	For Each strPath In Split(strPaths, ";")
		If StrComp(strPath, strPath4Add, vbTextCompare) = 0 Then
			boolFound = True
			Exit For
		End If
	Next
	
	If Not boolFound Then
		strPaths = strPaths & ";" & strPath4Add
		objWshShell.Environment("SYSTEM").Item("PATH") = strPaths
	Else
		WScript.Echo "Path [" & strPath4Add & "] already present in PATH environment variable in SYSTEM collection."
	End If
Else
	WScript.Echo "Can't find PATH environment variable in SYSTEM collection."
	WScript.Quit 1
End If

Set objWshShell = Nothing

WScript.Quit 0

termitt, может, имеет смысл вместо прямого пути в «C:\ProgramFiles(x86)\Autodesk\AutoCAD 2014» использовать переменную окружения?!

дописывать (дополнять) через точку с запятой любые значения переменной и в любой переменной будь это path или blalbla и т.д и т.п . »

Я не припомню ничего «другого», окромя PATHEXT .

[Foreigner]

termitt,

Код:

@echo off
setlocal

set "regpath=hkcu\environment"

for /f "tokens=3*" %%i in ('reg query "%regpath%" /v "path"') do call:add %%i %%j
goto:eof

:add

reg add "%regpath%" /v "path" /d "%*;C:\test" -f

[Iska]

2Foreigner:

1. Нужен HKLM, а не HKCU.
2. В HKCU может и не быть PATH.
3. Опять-таки, разные разделители в разных ОС у «reg.exe»; в старых ОС нет параметра «-f», а есть «/f».
4. Во второй раз будет два «C:\test», в третий — три. И т.д.