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

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

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

'--------设置JDK目录---------
JAVA_HOME = "C:\Program Files\Java\jdk1.5.0"

SetEnv "JAVA_HOME", JAVA_HOME
SetEnv "CLASSPATH", "%JAVA_HOME%\lib\tools.jar;%JAVA_HOME%\lib\dt.jar"
SetEnv  "Path", "%JAVA_HOME%\bin"

MsgBox "Set environment variable for Java successfully."

来自http://liuxianyong.cn/Blog/blogview.asp?logID=56