一键设置jdk环境脚本

自动化脚本

一、使用方法

创建一个txt文本,放在和jdk存放的同一目录下,复制粘贴进我的代码,利用全局替换,将jdk1.8,改成你自己的jdk包名字,再重新把这个文件保存为.vbs文件。然后运行就行了

java 复制代码
MsgBox "Runing success please wait to pop-up tips set ok!!!"
Set shell = CreateObject("Shell.Application")   


Dim fso, currentPath, parentPath
Set fso = CreateObject("Scripting.FileSystemObject")
currentPath = fso.GetAbsolutePathName(".")


'Set selFolder = shell.BrowseForFolder(0, "Choose jdk path", 0, ssfDRIVES)   
'Set selFolderItem = selFolder.Self   
'selPath = selFolderItem.Path

dim wsh 
Set wsh = WScript.CreateObject("WScript.Shell") 
wsh.Environment("system").Item("JAVA_HOME")= currentPath+"\jdk1.8"
MsgBox "set path"+ currentPath+"\jdk1.8"
wsh.Environment("system").Item("classpath")=".;%JAVA_HOME%\lib\tools.jar;%JAVA_HOME%\lib\dt.jar"

systemPath = wsh.Environment("system").Item("Path")
javaPath = "%JAVA_HOME%\bin"

If InStr(1, systemPath, javaPath, vbTextCompare) = 0 Then

    wsh.Environment("system").Item("Path") = javaPath & ";" & systemPath
End If
'wsh.Environment("system").Item("path")="%JAVA_HOME%\bin;"+wsh.Environment("system").Item("path")
msg0 = "set OK!!!"+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 
相关推荐
slowlybutsurely1 分钟前
Cursor快速入门
java·ai编程·cursor
天天摸鱼的java工程师8 分钟前
假设你在开发订单系统时遇到高并发下库存扣减出错,如何解决?由浅入深分析
java·后端·面试
都叫我大帅哥9 分钟前
Redis的ZSet:从“青铜”到“王者”的排序神器
java·redis
Mr_Xuhhh18 分钟前
网络基础(1)
c语言·开发语言·网络·c++·qt·算法
肖笙XiaoSheng20 分钟前
使用Gemini2.5 pro 优化我的定时任务(二)
java·后端·代码规范
小小霸王龙!21 分钟前
互联网大厂Java面试实录:Spring Boot与微服务在电商场景中的应用
java·spring boot·redis·微服务·电商
旺旺大力包22 分钟前
【JS笔记】JS 和 noodjs 的常见操作(十)
开发语言·javascript·node.js·ecmascript
深栈解码24 分钟前
JUC并发编程 CAS运行机制详解
java·后端
草履虫建模25 分钟前
Postman - API 调试与开发工具 - 标准使用流程
java·测试工具·spring·json·测试用例·postman·集成学习
深栈解码25 分钟前
JUC并发编程 ThreadLocal解析
java·后端