设置系统环境变量立即生效代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】设置系统环境变量立即生效

作者:DDT / 发布于2012/10/22/ 1313

设置系统环境变量立即生效

<div>Dim pSysEnv</div>
<div>Set pSysEnv = CreateObject("WScript.Shell").Environment("System")</div>
<div></div>
<div>'Check whether a character string matches a regular expression</div>
<div>'  ^\w+[@]\w+[.]\w+$    E-MailAddress</div>
<div>'  ^[0-9-]+$        Numeral</div>
<div>Function IsMatch(Str, Patrn)</div>
<div> Set r = new RegExp</div>
<div> r.Pattern = Patrn</div>
<div> IsMatch = r.test(Str)</div>
<div>End Function</div>
<div></div>
<div>Sub SetEnv(pPath, pValue)</div>
<div>  Dim ExistValueOfPath</div>
<div>  IF pValue <> "" Then</div>
<div>  ExistValueOfPath = pSysEnv(pPath)</div>
<div>IF Right(pValue, 1) = "\" Then pValue = Left(pValue, Len(pValue)-1)</div>
<div>If IsMatch(ExistValueOfPath, "\*?" & Replace(pValue, "\", "\\") & "\\?(\b|;)") Then Exit Sub '已经存在该环境变量设置</div>
<div>If ExistValueOfPath <> "" Then pValue = ";" & pValue</div>
<div>pSysEnv(pPath) = ExistValueOfPath & pValue</div>
<div>  Else</div>
<div>pSysEnv.Remove(pPath)</div>
<div>  End IF</div>
<div>End Sub</div>
<div></div>
<div>'--------设置TOF目录---------</div>
<div>TOF = "D:\Workshop\tof\TOF_Common\Library\Tencent.OA.Framework.dll.config"</div>
<div></div>
<div>SetEnv "TOF", TOF</div>
<div></div>
<div>MsgBox "Set environment variable for TOF successfully."</div>
<div>Set pSysEnv=Nothing</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　VBS环境变量　

同语言下

可能有用的

DDT贡献的其它代码(160)