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

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

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

1
2
3
4
5
6
7
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 对注册表操作。

发表评论

电子邮件地址不会被公开。 必填项已用*标注