VBScript修改注册表设置环境变量

 

新建一个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++之类的面向对象程序设计语言。