Set WSHShell=CreateObject("Wscript.shell")
Dim JavaVer,HomePath,EnvPath,Temp
EnvPath ="HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\"
JavaVer = WshShell.RegRead("HKLM\SOFTWARE\JavaSoft\Java Runtime Environment\CurrentVersion")
HomePath = WshShell.RegRead("HKLM\SOFTWARE\JavaSoft\Java Runtime Environment\"+JavaVer+"\JavaHome")
Temp = WshShell.RegRead(EnvPath+"Path")
WshShell.RegWrite EnvPath+"Path", Temp+";"+HomePath+"\bin","REG_EXPAND_SZ"
WshShell.RegWrite EnvPath+"ClassPath",".;"+HomePath+"\lib", "REG_SZ"
WshShell.RegWrite EnvPath+"JAVA_HOME", HomePath, "REG_SZ"
WshShell.RegWrite EnvPath+"JRE_HOME", HomePath, "REG_SZ"
MsgBox "Java環境變數設定完成!", vbInformation, "寫入完成"
Dim JavaVer,HomePath,EnvPath,Temp
EnvPath ="HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\"
JavaVer = WshShell.RegRead("HKLM\SOFTWARE\JavaSoft\Java Runtime Environment\CurrentVersion")
HomePath = WshShell.RegRead("HKLM\SOFTWARE\JavaSoft\Java Runtime Environment\"+JavaVer+"\JavaHome")
Temp = WshShell.RegRead(EnvPath+"Path")
WshShell.RegWrite EnvPath+"Path", Temp+";"+HomePath+"\bin","REG_EXPAND_SZ"
WshShell.RegWrite EnvPath+"ClassPath",".;"+HomePath+"\lib", "REG_SZ"
WshShell.RegWrite EnvPath+"JAVA_HOME", HomePath, "REG_SZ"
WshShell.RegWrite EnvPath+"JRE_HOME", HomePath, "REG_SZ"
MsgBox "Java環境變數設定完成!", vbInformation, "寫入完成"
Sun, 15 Jul 2018 15:44:22 +0800
Java they actually the perfections of the games are on the java script and the software for the every tangent on the effects. Infects on the writers that are only of the essay writers uk are need java programming shifts.
Wed, 11 Mar 2020 15:38:30 +0800
I really like your blog. Great article. It's most evident, people should learn before they are able to 파워볼