使用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 "系统变量设置成功！"

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

输入系统变量名：

输入系统变量值：

设置成功：

用户取消：