备案网站应用服务,本地打开WordPress慢,中国有哪些软件公司,网站建设学院自动化脚本
一、使用方法
创建一个txt文本#xff0c;放在和jdk存放的同一目录下#xff0c;复制粘贴进我的代码#xff0c;利用全局替换#xff0c;将jdk1.8,改成你自己的jdk包名字#xff0c;再重新把这个文件保存为.vbs文件。然后运行就行了
MsgBox Runing s…自动化脚本
一、使用方法
创建一个txt文本放在和jdk存放的同一目录下复制粘贴进我的代码利用全局替换将jdk1.8,改成你自己的jdk包名字再重新把这个文件保存为.vbs文件。然后运行就行了
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.Pathdim 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.jarsystemPath wsh.Environment(system).Item(Path)
javaPath %JAVA_HOME%\binIf InStr(1, systemPath, javaPath, vbTextCompare) 0 Thenwsh.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
