OpenJDK自动安装脚本 InstallOpenJDK.vbs

Oracle JDK 要收费了，Open JDK没有安装包，只有Zip，写了个安装脚本 InstallOpenJDK.vbs

 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("执行完成。")

注：环境变量设置方法来自网络

（完）