'---------------------------------
'使用说明：将此vbs文件放到jdk所在的文件夹里，运行即可。只图个方便，让高手见笑了。
'如：jdk所在目录为c:\jdk1.4,则此vbs的路径为c:\jdk1.4\CreateEnvForJava.vbs
'将以下代码保存为VBS
'--------------------------------------

On Error Resume Next 
Dim oWshShell, sOldPath, sNewPath 
dim sJavaHome,sClassPath
Set oWshShell = WScript.CreateObject("WScript.shell") 
'取得原来的path设置
sOldPath=oWshShell.RegRead("HKLM\SYSTEM\ControlSet001\Control\Session Manager\Environment\path") 
'取得当前文件夹的位置，把此vbs放在jdk所在的目录里，即为jdk的路径
sJavaHome=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName)-1)
'msgbox (sJavaHome)
if instr(soldpath,sjavaHome)=0 then
    sNewPath=sOldPath+sJavaHome + "\bin;" 
    oWshShell.RegWrite "HKLM\SYSTEM\ControlSet001\Control\Session Manager\Environment\path", sNewPath, "REG_SZ" 
    msgbox (sJavaHome & "已经成功添加到了环境目录。") 
else
    msgbox("jdk的Path环境变量:" & chr(13)+ chr(10) & sjavahome & "已经存在，不用再添加")
end if

'新建环境变量CLASSPATH,(完全重写，无论是否存在)

sclassPath=".;" & sJavaHome & "\lib\dt.jar;" & sjavahome & "\lib\tools.jar;" & sjavahome & "\bin"
call owshshell.regwrite("HKLM\SYSTEM\ControlSet001\Control\Session Manager\Environment\CLASSPATH",sClasspath)

set owshshell=nothing