一键设置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 
相关推荐
门前云梦1 小时前
《C语言·源初法典》---C语言基础(上)
c语言·开发语言·学习
hashiqimiya1 小时前
android studio中修改java逻辑对应配置的xml文件
xml·java·android studio
liuzhenghua662 小时前
Python任务调度模型
java·运维·python
結城2 小时前
mybatisX的使用,简化springboot的开发,不用再写entity、mapper以及service了!
java·spring boot·后端
小前端大牛马2 小时前
java教程笔记(十一)-泛型
java·笔记·python
sjtu_cjs2 小时前
Tensorrt python api 10.11.0笔记
开发语言·笔记·python
东阳马生架构2 小时前
商品中心—2.商品生命周期和状态的技术文档
java
哆啦A梦的口袋呀2 小时前
深入理解系统:UML类图
开发语言·python·uml
虎冯河2 小时前
怎么让Comfyui导出的图像不包含工作流信息,
开发语言·python
星辰离彬2 小时前
Java 与 MySQL 性能优化:MySQL 慢 SQL 诊断与分析方法详解
java·spring boot·后端·sql·mysql·性能优化