命令行设置环境变量

Dim MyVar

MyVar = MsgBox ("本程序改编于网上的源码，谢谢使用！")

Set shell = CreateObject("Shell.Application")

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

Set selFolderItem = selFolder.Self

JDKPath = selFolderItem.Path

If (JDKPath <>"") Then

dim wsh

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

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

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

wsh.Environment("system").Item("ClassPath") = ".;" + "%JAVA_HOME%" +"\lib\*.jar"

MyVar = MsgBox ("恭喜，完成设置！")

End I

命令行设置环境变量

原文：http://my.oschina.net/chaxiang/blog/528208