设置JDK等环境变量.vbs

L_Welcome_MsgBox_Title_Text = "Windows Scripting Host 范例 Microsoft提供"

JAVA_HOME = "D:\Program Files\Java\jdk1.6.0_13"
PATH_ADD = "%JAVA_HOME%\bin;%JAVA_HOME%\jre\bin"
CLASSPATH = ".;%JAVA_HOME%\lib;%JAVA_HOME%\lib\tools.jar"

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

'----------添加 JAVA_HOEM ---------------
If WshShell.Environment("System").Item("JAVA_HOME") <>"" Then
	ShowMsg(WshShell.Environment("System").Item("JAVA_HOME"))
Else
	WSHShell.Environment("System").Item("JAVA_HOME") = JAVA_HOME
End If

'------------------修改 Path -----------
If InStr(WshShell.Environment("System").Item("Path"),PATH_ADD)>0 Then
	ShowMsg(WshShell.Environment("System").Item("Path"))
Else
	WSHShell.Environment("System").Item("Path") = WSHShell.Environment("System").Item("Path")+";" + PATH_ADD
End If

'----------添加  CLASSPATH --------------
If WshShell.Environment("System").Item("CLASSPATH") <>"" Then
	ShowMsg(WshShell.Environment("System").Item("CLASSPATH"))
Else
	WSHShell.Environment("System").Item("CLASSPATH") = CLASSPATH
End If




'-------------------------------------定义方法------------------------------------
Sub ShowMsg(strText)
	MsgBox strText, vbInformation, L_Welcome_MsgBox_Title_Text
End Sub