脚本设置环境变量

1 set方式设置
这种方式设置方法见：cmd 环境变量设置方法详细解释
但这种方式有个问题，就是只针对当前窗口的临时的方式，一旦该窗口关闭，将丢失。无法永久设置到系统的环境变量中。
说明，注意对于path来说要新加，不要直接设置。
set path = %path%；D:\tool

所以就需要用下面这个方法：
2 使用wmic永久修改Windows环境变量
见：在cmd命令行下使用wmic永久修改Windows环境变量

特别是该文章中最后给的那段代码，非常好，亲试可用！
该程序是使用vbs（vb脚本语言）编写了一个bat文件，然后调用执行。
可以在此更改，本文就加了一个更改，更改后的代码如下：

' fso判断环境变量添加脚本是否存在
Set fso = CreateObject("Scripting.FileSystemObject")
' 以管理员权限运行环境变量添加脚本
Set UAC = CreateObject("Shell.Application")
tmpFile = ".\addToPath.bat"

    ' 文件缺失，生成环境变量添加脚本
    Set batFile = fso.CreateTextFile(".\addToPath.bat", True)
    batFile.WriteLine("@echo off")
    batFile.WriteLine(":: 获取当前文件夹绝对路径")
    batFile.WriteLine("set tmpDir=%~dp0Infos")
    batFile.WriteLine("wmic ENVIRONMENT where " & chr(34) & "name='PATH' and username='<system>'" & chr(34) & " set VariableValue=" & chr(34) & "%tmpDir%;%PATH%" & chr(34))
    UAC.ShellExecute ".\addToPath.bat", "", "", "runas", 1
MsgBox "已将当前路径添加到环境变量PATH中", vbOkOnly+vbInformation,"操作完成"

主要更改：
（1）去掉了if判断，每次都生成该文件；
（2）更改后，不是将当前文件夹添加到path，而是当前文件夹下的Infos文件夹加入。

另外备注：
（1）上面的语法时vbs。更多语法参见：https://www.runoob.com/vbscript/vbscript-tutorial.html
（2）%~dp0为批处理语法，表示当前的盘符和路径,注意，他会最后带“\”。批处理获取路径问题总结
（3）VBS的环境变量