使用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, 1) = "\" Then pValue = Left(pValue, Len(pValue)-1)
 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 "系统变量设置成功！"

下面是程序执行画面，以供预览。

输入系统变量名：

输入系统变量值：

设置成功：

用户取消：