一段VBS脚本设置你的JDK+TOMCAT环境变量
'=================================================================================' 名称：Tomcat5.5.20 + jdk1.5.0_06 + struts1.2 系统环境变量设置程序' 功能：本程序自动设置 TOMCAT_HOME, CATALINA_HOME, JAVA_HOME,>' 境变量如果您以前已经设置过相关环境变量，本程序将覆盖相关设置，如果用到了' Struts，将将相关文件复制到 %TOMCAT_HOME%\Common\lib 下面。' 作者：HLDGAOFENG' 日期：2008-09-17'=================================================================================' 修改这两个常量为你自己的路径，如果为空，将在运行时提示你选择路径。' --------------------------------------------------------------------------------' TOMCAT HOMEConst TOMCAT_HOME = "" ' JDK HOMEConst JAVA_HOME = ""' --------------------------------------------------------------------------------' 定义相关变量Dim sTomcatHomeDim sJavaHomeDim sClassPathDim sPath ' 创建 Shell 对象，以便操作系统环境变量Dim wsh, envSystem, shell, selFolder, selFolderItemSet wsh = WScript.CreateObject("WScript.Shell")Set envSystem = wsh.Environment("system")Set shell = CreateObject("Shell.Application") ' 如果没有指定 TOMCAT_HOME 则弹出浏览目录窗口让用户选择一个If TOMCAT_HOME = "" Then Set selFolder = shell.BrowseForFolder(0, "请选择 TOMCAT_HOME 目录：" & _ vbCrLf & "如：C:\apache-tomcat-5.5.20", 0, ssfDRIVES) If selFolder Is Nothing Then WScript.Quit Set selFolderItem = selFolder.Self sTomcatHome = selFolderItem.Path Else sTomcatHome = TOMCAT_HOMEEnd If ' 如果没有指定 JAVA_HOME 则弹出浏览目录窗口让用户选择一个If JAVA_HOME = "" Then Set selFolder = shell.BrowseForFolder(0, "请选择 JAVA_HOME 目录：" & _ vbCrLf & "如：C:\Program Files\Java\jdk1.5.0_06", 0, ssfDRIVES) If selFolder Is Nothing Then WScript.Quit Set selFolderItem = selFolder.Self sJavaHome = selFolderItem.Path Else sJavaHome = JAVA_HOMEEnd If '>' .;d:\struts\commons-logging.jar;d:\struts\antlr.jar;d:\struts\jakarta-oro.jar;d:\struts\commons-digester.jar;D:\struts\commons-validator.jar;D:\struts\struts.jar;D:\struts\commons-beanutils.jarsClassPath = ".;" & _ "%JAVA_HOME%\lib\tools.jar;" & _ "%JAVA_HOME%\lib\dt.jar;" & _ "%JAVA_HOME%\lib\mysql-connector-java-3.0.14-production-bin.jar;" & _ "%CATALINA_HOME%\common\lib\servlet-api.jar;" & _ "%CATALINA_HOME%\common\lib\struts.jar;" ' 得到原来的 path 系统环境变量，再加上 %CATALINA_HOME%\common\lib;%JAVA_HOME%\bin;sPath = envSystem("PATH")If InStr(1, LCase(sPath), "%catalina_home%\common\lib") < 1 Then sPath = "%CATALINA_HOME%\common\lib;" & sPathEnd IfIf InStr(1, LCase(sPath), "%java_home%\bin") < 1 Then sPath = "%JAVA_HOME%\bin;" & sPathEnd If ' 再次请用户确认之后再进行修改If MsgBox("正准备将您的 JAVA_HOME 系统环境变量设置为：" & vbCrlf & _ sJavaHome & vbCrlf & vbCrlf & _ "正准备将您的 CATALINA_HOME,TOMCAT_HOME 系统环境变量设置为：" & vbCrlf & _ sTomcatHome & vbCrlf & vbCrlf & _ "正准备将您的> sClassPath & vbCrlf & vbCrlf & _ "正准备将您的 PATH 系统环境变量设置为：" & vbCrlf & _ sPath & vbCrlf & vbCrlf & _ "您确定要继续吗？", vbYesNo + vbQuestion + vbDefaultButton2, "收集信息完成，正准备设置环境变量……")vbYes Then WScript.QuitEnd If' 设置系统环境变量envSystem("TOMCAT_HOME") = sTomcatHomeenvSystem("CATALINA_HOME") = sTomcatHomeenvSystem("JAVA_HOME") = sJavaHomeenvSystem("CLASSPATH") = sClassPathenvSystem("PATH") = sPath MsgBox "环境变量已经设置成功!", vbinformation set wsh = nothing
页:
[1]