一键设置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 
相关推荐
文火冰糖的硅基工坊9 分钟前
[嵌入式系统-135]:主流AIOT智能体开发板
开发语言·嵌入式·cpu
刘梦凡呀44 分钟前
C#获取钉钉平台考勤记录
java·c#·钉钉
best_virtuoso1 小时前
PostgreSQL 常见数组操作函数语法、功能
java·数据结构·postgresql
yudiandian20141 小时前
02 Oracle JDK 下载及配置(解压缩版)
java·开发语言
要加油哦~1 小时前
JS | 知识点总结 - 原型链
开发语言·javascript·原型模式
鄃鳕1 小时前
python迭代器解包【python】
开发语言·python
new coder1 小时前
[c++语法学习]Day10:c++引用
开发语言·c++·学习
驰羽2 小时前
[GO]GORM 常用 Tag 速查手册
开发语言·后端·golang
Narcissiffo2 小时前
【C语言】str系列函数
c语言·开发语言
楚韵天工2 小时前
宠物服务平台(程序+文档)
java·网络·数据库·spring cloud·编辑器·intellij-idea·宠物