利用vbs设置Java环境变量

每次PC重装后,又要设定Java环境变量,向我这种不爱记得人,老是要去找设定内容

感觉设置环境变量还真是比较麻烦,我是希望可以做成点击一下就ok的,这样重装系统就不用那么麻烦了,

但是考虑到通用性,为了不把路径写死所以做了个选择目录的对话框,

源码如下:(用记事本保存为JavaHomeTool.vbs即可)

Google到这个方法,很好用,收藏到这里,原作者不知道是哪位了大侠了,请无怪!

[java]  view plain copy
 
  1. Set shell = CreateObject("Shell.Application")
  2. Set selFolder = shell.BrowseForFolder(0, "请选择JAVA_HOME目录(如:D:/jdk1.5.0_16):", 0, ssfDRIVES)
  3. Set selFolderItem = selFolder.Self
  4. selPath = selFolderItem.Path
  5. dim wsh
  6. Set wsh = WScript.CreateObject("WScript.Shell")
  7. wsh.Environment("system").Item("JAVA_HOME")=selPath
  8. wsh.Environment("system").Item("CLASSPATH")=wsh.Environment("system").Item("CLASSPATH")+";.;%JAVA_HOME%/lib/tools.jar;%JAVA_HOME%/lib/dt.jar;%JAVA_HOME%/bin;"
  9. wsh.Environment("system").Item("PATH")=wsh.Environment("system").Item("PATH")+";%JAVA_HOME%/bin;%PATH%"
  10. MsgBox "JAVA环境设置完成! "+selPath
上一篇:在使用swiper时,解决同一个页面使用多个轮播出现问题做法


下一篇:使用 js 实现一个简易版的 vue 框架