win7 如何使用set命令设置系统环境变量

发布网友 发布时间：2022-04-21 22:32

我来回答

共4个回答

热心网友 时间：2023-06-26 07:07

set 命令只对当前窗口有效，关闭窗口就无效了。
如果想一直有效，可以用 VBS 脚本设置。以下代码来自网上，保留了原来的内容。把下面的代码复制下来，另存为 设置环境变量.vbs 文件然后运行就可以了。

Dim MyVar
MyVar = MsgBox ("本程序改编于网上的源码，谢谢使用！", , "fantasy0707说明：")

Set shell = CreateObject("Shell.Application")

Set selFolder = shell.BrowseForFolder(0, "选择JAVA_HOME目录fantasy0707@163.com", 0, ssfDRIVES)

Set selFolderItem = selFolder.Self

JDKPath = selFolderItem.Path

If (JDKPath <>"") Then

dim wsh

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

wsh.Environment("system").Item("JAVA_HOME")=JDkPath

wsh.Environment("system").Item("Path") ="%JAVA_HOME%\bin" +";" +wsh.Environment("system").Item("path")

wsh.Environment("system").Item("ClassPath") = ".;" + "%JAVA_HOME%" +"\lib\*.jar"

MyVar = MsgBox ("恭喜，完成设置！", , "fantasy0707说明：")

End If

热心网友 时间：2023-06-26 07:07

你cmd中输入set就能查到，要删除的话输入：set JAVAHOME= (=后无空格)

热心网友 时间：2023-06-26 07:08

@echo off
color b0
set JDK_PATH=D:\WebDevelopment\JDK
if "%JAVA_HOME%" == "" (
setx JAVA_HOME "%JDK_PATH%"
setx /M Path "%Path%;%JDK_PATH%\bin"
echo.
echo JDK 环境变量设置完毕..
echo.
) else (
echo.
echo JDK 环境变量已设置过.
echo.
)
pause

复制后保存为BAT文件。就行了

热心网友 时间：2023-06-26 07:08

保存名字为：设置环境变量.vbs，复制以下代码即可：
------------------------------------------------------------
Set pSysEnv = CreateObject("WScript.Shell").Environment("System")

'Check whether a character string matches a regular expression
' ^\w+[@]\w+[.]\w+$ E-MailAddress
' ^[0-9-]+$ Numeral
Function IsMatch(Str, Patrn)
Set r = new RegExp
r.Pattern = Patrn
IsMatch = r.test(Str)
End Function

Sub SetEnv(pPath, pValue)
Dim ExistValueOfPath
IF pValue <> "" Then
ExistValueOfPath = pSysEnv(pPath)
IF Right(pValue, 1) = "\" Then pValue = Left(pValue, Len(pValue)-1)
If IsMatch(ExistValueOfPath, "\*?" & Replace(pValue, "\", "\\") & "\\?(\b|;)") Then Exit Sub '已经存在该环境变量设置
If ExistValueOfPath <> "" Then pValue = ";" & pValue
pSysEnv(pPath) = ExistValueOfPath & pValue
Else
pSysEnv.Remove(pPath)
End IF
End Sub