设置系统环境变量立即生效的VBS脚本

修改环境变量并立即生效的VBS代码。
http://www.cnblogs.com/shanyou/archive/2008/12/05/1348649.html

Set pSysEnv = CreateObject("WScript.Shell").Environment("System")'Check whether a character string matches a regular expression'   ^\w+[@]\w+[.]\w+$       E-MailAddress'   ^[0-9-]+$               NumeralFunction IsMatch(Str, Patrn)  Set r = new RegExp  r.Pattern = Patrn  IsMatch = r.test(Str)End FunctionSub 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 IFEnd Sub'--------设置TOF目录---------TOF = "D:\Workshop\tof\TOF_Common\Library\Tencent.OA.Framework.dll.config"SetEnv "TOF", TOFMsgBox "Set environment variable for TOF successfully."