Rem *********************************

 Rem **File: InstallOpenJDK.vbs

 Rem **Author: windfic

 Rem **Date: 2019-06-05

 Rem **Description: 自动安装OpenJDK

 Rem *********************************

 Rem ==把指定目录加入注册表==

 sub PathToRegPath(Path, Reg)

     Set oWshShell = WScript.CreateObject("WScript.Shell")

     OldPath = oWshShell.RegRead(Reg)

     if InStr(OldPath, Path)  <=  then

         NewPath = OldPath & ";" & Path

         oWshShell.RegWrite Reg, NewPath

     end if

 end sub

 Rem ==把指定目录加入系统Path==

 sub PathToSystemPath(Path)

     PathToRegPath Path, "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment\Path"

 end sub

 Rem ==安装JDK==

 sub InstallJDK(Path)

     Set oWshShell = WScript.CreateObject("WScript.Shell")

     Set oFs=WScript.CreateObject("Scripting.FileSystemObject")

     if oFs.FolderExists(Path) then

         Home = oFs.GetAbsolutePathName(Path)

     else

         Set oFolder = oFs.GetFile(Wscript.ScriptFullName).ParentFolder

         Home = oFolder.Path & "\" & Path

     end if

     if oFs.FolderExists(Home) then

         Rem 设置JAVA_HOME

         oWshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment\JAVA_HOME", Home

         Rem 把bin加入系统目录

         PathToSystemPath "%JAVA_HOME%\bin"

     else

         MsgBox("目录：" & Path & " 不存在。")

     end if

 end sub 

 Rem ==安装JRE==

 sub InstallJRE(Path)

     Set oWshShell = WScript.CreateObject("WScript.Shell")

     Set oFs=WScript.CreateObject("Scripting.FileSystemObject")

     if oFs.FolderExists(Path) then

         Home = oFs.GetAbsolutePathName(Path)

     else

         Set oFolder = oFs.GetFile(Wscript.ScriptFullName).ParentFolder

         Home = oFolder.Path & "\" & Path

     end if

     if oFs.FolderExists(Home) then

         Rem 生成jre目录

         oWshShell.CurrentDirectory = Home

         CommandLine = "bin\jlink.exe --module-path jmods --add-modules java.desktop --output jre"

         oWshShell.Exec(CommandLine)

         Rem 设置JRE_HOEM

         Home = Home & "\jre"

         oWshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment\JRE_HOEM", Home

         Rem 设置CLASSPATH

         CLASSPATH = ".;%JAVA_HOME%\lib;%JAVA_HOME%\jre\lib"

         oWshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment\CLASSPATH", CLASSPATH

         Rem 把jre\bin加入系统目录

         PathToSystemPath "%JAVA_HOME%\jre\bin"

     end if

 end sub 

 Rem ========================主程序================================

 JavaHome = "D:\java\jdk-12"

 InstallJDK JavaHome

 InstallJRE JavaHome

 MsgBox("执行完成。")