脚本调整环境变量

新建一个VBScript文件：var.vbs。
输入如下内容： 
Dim oWshShell, sNewPath 
Const csMyPath="c:/windows/system32/drivers/etc" 
'上面改为你需要添加的目录。 注意格式 
Set oWshShell = WScript.CreateObject("WScript.Shell")  
sNewPath=csMyPath 
oWshShell.RegWrite "HKLM/SYSTEM/ControlSet001/Control/Session Manager/Environment/hosts", sNewPath, "REG_SZ" 
msgbox (csMyPath & "已经成功添加到了环境目录。")

保存后双击运行注销后就可以获得永久的系统环境变量。如图运行成功后的提示：

如果我们需要设置用户环境变量就要将上面的"HKLM/SYSTEM/ControlSet001/Control/Session Manager/Environment/hosts"替换为"HKCU/Environment/hosts"。

提示：
永久环境变量的数据被系统存放在注册表中。
用户环境变量的存放地址：
HKCU/Environment/hosts
系统环境变量的存放地址：
HKLM/SYSTEM/ControlSet001/Control/Session Manager/Environment/hosts

HKCU是HKEY_CURRENT_USER的缩写
HKLM是HKEY_LOCAL_MACHINE的缩写

如果大家感觉这里有困难建议去学习一下VBScript和C++之类的面向对象程序设计语言。