一键设置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 
相关推荐
数据科学作家7 分钟前
如何入门python机器学习?金融从业人员如何快速学习Python、机器学习?机器学习、数据科学如何进阶成为大神?
大数据·开发语言·人工智能·python·机器学习·数据分析·统计分析
孤客网络科技工作室10 分钟前
Python - 100天从新手到大师:第五十八天 Python中的并发编程(1-3)
开发语言·python
想睡好12 分钟前
express中间件(java拦截器)
java·中间件·express
兢兢业业的小白鼠15 分钟前
Java常用中间件整理讲解——Redis,RabbitMQ
java·中间件·java-rabbitmq·1024程序员节
鱼儿也有烦恼19 分钟前
快速学完 LeetCode top 1~50 [特殊字符]
java·算法·leetcode·1024程序员节
独自破碎E20 分钟前
LeetCode 380: O(1) 时间插入、删除和获取随机元素
java·算法·leetcode
信仰_27399324322 分钟前
Mybatis一级缓存
java·缓存·mybatis
Brookty29 分钟前
【算法】前缀和(二)使用
java·学习·算法·前缀和·动态规划·1024程序员节
小范同学_31 分钟前
Spring集成WebSocket
java·spring boot·websocket·spring·1024程序员节
go_bai35 分钟前
Linux_基础IO(2)
linux·开发语言·经验分享·笔记·学习方法·1024程序员节