用 VBS 把当前目录加到 PATH 环境变量中

发布于 作者:

一个朋友提了一个需求，为了做一个类似绿色软件的东西，要把软件所在的目录加入到用户的 PATH 环境变量中。

我通过一个 VBS 脚本实现了这个功能：

Dim oWshShell, sOldPath, sNewPath
Set oWshShell = WScript.CreateObject("WScript.Shell")
dim csMyPath
csMyPath = ";" & oWshShell.CurrentDirectory
sOldPath = oWshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment\Path")
sNewPath = sOldPath & csMyPath
oWshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment\Path", sNewPath

就是通过 WScript.Shell 对注册表操作。