JAVA环境变量设置 VBS脚本(转载)

JAVA环境变量设置 VBS脚本

(2012-03-15 10:12:48)

转载▼

 

每次安装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