正文
使用VBScript实现设置系统环境变量的小程序
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
本人有点桌面洁癖，桌面上只放很少的东西，很多软件都用快捷键调出。最近频繁用到一个软件，我又不想放个快捷方式在桌面，也不想附到开始菜单，于是乎想将其所在目录附加到系统环境变量Path上，以后直接在运行中输入文件名快速调出。但我又厌倦了win7 计算机-属性-系统保护-高级-环境变量-新建/选择并编辑 这种设置方式，于是我打开了命令行，在网上搜到了使用 set name = path 这种设置的方式，但是后来发现这样设置只对当前窗口有效，并不能达到我一劳永逸的预期。后来在网上又找到了用vbs脚本写的一段设置系统环境变量的代码，我稍加改动便成了一个可以方便地设置系统环境变量的小工具（*.vbs文件）。同时，为了追求程序的简化，本程序并没有集成诸如删除等功能，也没有在外观上做什么额外的调整，对于欲求不满的客官完全可以在此基础上进行扩展改进，本程序就是为了突出其小巧轻便、简单实用的特点。现将代码贴出来共享，大伙只需在记事本拷下这段代码另存为“设置系统环境变量.vbs”（当然，文件名可以自己取），以后要设置系统环境变量，双击这个文件就可以直接新增或者在原有变量对应的值上附加了，非常方便。
'--------定义设置系统环境变量的方法---------
Set pSysEnv = CreateObject("WScript.Shell").Environment("System")
Function IsMatch(Str, Patrn)
Set r = new RegExp
r.Pattern = Patrn
IsMatch = r.test(Str)
End Function
Sub SetEnv(pPath, pValue)
Dim ExistValueOfPath
If pValue <> "" Then
ExistValueOfPath = pSysEnv(pPath)
If Right(pValue, ) = "\" Then pValue = Left(pValue, Len(pValue)-)
If IsMatch(ExistValueOfPath, "\*?" & Replace(pValue, "\", "\\") & "\\?(\b|;)") Then Exit Sub
If ExistValueOfPath <> "" Then pValue = ";" & pValue
pSysEnv(pPath) = ExistValueOfPath & pValue
Else
pSysEnv.Remove(pPath)
End If
End Sub '--------获取输入参数设置系统环境变量---------
Do
InputKey = InputBox("请输入系统变量名")
If InputKey = VbEmpty Then
MsgBox "已取消！"
Wscript.Quit
Else
If InputKey <> "" Then InputValue = Inputbox("请输入系统变量值"): Exit Do
End If
Loop
If InputValue = VbEmpty Then
MsgBox "已取消！"
Wscript.Quit
Else
SetEnv InputKey, InputValue
End If
MsgBox "系统变量设置成功！"
下面是程序执行画面，以供预览。
输入系统变量名：
输入系统变量值：
设置成功：
用户取消：
