vbs和java_JAVA环境变量设置 VBS脚本(转载)

每次安装JDK，都要配置环境变量，很是麻烦。今天从网上搜了一个VBS，测试了一下，挺好用的。设置如下：

Set shell = CreateObject("Shell.Application")

Set selFolder = shell.BrowseForFolder(0, "请选择JAVA_HOME目录", 0, ssfDRIVES)

Set selFolderItem = selFolder.Self

selPath = selFolderItem.Path

dim wsh

Set wsh = WScript.CreateObject("WScript.Shell")

wsh.Environment("system").Item("JAVA_HOME")=selPath

wsh.Environment("system").Item("classpath")=".;")=".;%java_home%\lib;%java_home%\lib\tools.jar;%java_home%\lib\dt.jar"

wsh.Environment("system").Item("path")="%java_home%\bin;"+wsh.Environment("system").Item("path")

msg0 = "完成JAVA环境变量设置"+vbcrlf

msg1 = "JAVA_HOME = "+ wsh.Environment("system").Item("JAVA_HOME") + vbcrlf

msg2 = "classpath = "+ wsh.Environment("system").Item("classpath") + vbcrlf

msg3 = "path = "+ wsh.Environment("system").Item("path")

MsgBox msg0+msg1+msg2+msg3

将上面信息保存成XX.vbs就可以了。

单击运行，选择JAVA安装路径即可。

PS:

在win7下，可能因为权限问题无法运行。可以进行如下操作：

以管理员身份运行命令行界面，然后切换到XX.vbs文件夹，然后直接输入 XX.vbs即可。

******************下面这个更方便*****************************

Set shell = CreateObject("Shell.Application")

Set selFolder = shell.BrowseForFolder(0, "请选择JAVA_HOME目录(如:D:/jdk1.5.0_16):", 0, ssfDRIVES)

Set selFolderItem = selFolder.Self

selPath = selFolderItem.Path

dim wsh

Set wsh = WScript.CreateObject("WScript.Shell")

wsh.Environment("system").Item("JAVA_HOME")=selPath

wsh.Environment("system").Item("CLASSPATH")=wsh.Environment("system").Item("CLASSPATH")+";.;%JAVA_HOME%/lib/tools.jar;%JAVA_HOME%/lib/dt.jar;%JAVA_HOME%/bin;"

wsh.Environment("system").Item("PATH")=wsh.Environment("system").Item("PATH")+";%JAVA_HOME%/bin;%PATH%"

MsgBox "JAVA环境设置完成! "+selPath