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

可以设置环境变量并立即生效, 与Windows批处理不同的是此脚本设置的环境变量可保证重启后一样有用.保存以下内容为 设置环境变量.vbs , 修改要设置的环境变量名即路径即可开始运行设置.

Code Set pSysEnv = CreateObject("WScript.Shell").Environment("System") 'Check whether a character string matches a regular expression ' ^\w+[@]\w+[.]\w+$ E-MailAddress ' ^[0-9-]+$ Numeral 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 '--------设置TOF目录--------- TOF = "D:\Workshop\tof\TOF_Common\Library\Tencent.OA.Framework.dll.config" SetEnv "TOF", TOF MsgBox "Set environment variable for TOF successfully."

本文来自云栖社区合作伙伴“doNET跨平台”，了解相关信息可以关注“opendotnet”微信公众号

相关资源：七夕情人节表白HTML源码(两款)