一键设置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 
相关推荐
Sammyyyyy10 分钟前
Node.js 是怎么一步步撼动PHP地位的
开发语言·node.js·php
lly20240615 分钟前
Node.js 路由
开发语言
程序员编程指南30 分钟前
Qt 多线程调试技巧与常见问题
c语言·开发语言·c++·qt
程序媛一枚~32 分钟前
使用Python,OpenCV计算跑图的图像彩色度
开发语言·python·opencv
golitter.1 小时前
python中的 @dataclass
开发语言·python
一枚小小程序员哈1 小时前
基于springboot的零食商城的设计与实现/零食销售系统的设计与实现
java·spring boot·spring·tomcat·maven
LiuYiCheng1234561 小时前
WebCrawler库:从网页抓取到智能处理的Python利器
开发语言·python
qqxhb1 小时前
零基础数据结构与算法——第六章:算法设计范式与高级主题-设计技巧(上)
java·数据结构·算法·分解·空间换时间·时空平衡
野生技术架构师1 小时前
系统改造:一次系统领域拆分的实战复盘
java·大数据·开发语言
南玖yy1 小时前
C++多态:面向对象编程的灵魂之
运维·开发语言·数据库·c++·后端·c·c语音