设置系统环境变量立即生效的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."