一段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 = &quot;&quot; ' JDK HOMEConst JAVA_HOME = &quot;&quot;' --------------------------------------------------------------------------------  ' 定义相关变量Dim sTomcatHomeDim sJavaHomeDim sClassPathDim sPath ' 创建 Shell 对象，以便操作系统环境变量Dim wsh, envSystem, shell, selFolder, selFolderItemSet wsh = WScript.CreateObject(&quot;WScript.Shell&quot;)Set envSystem = wsh.Environment(&quot;system&quot;)Set shell = CreateObject(&quot;Shell.Application&quot;)   ' 如果没有指定 TOMCAT_HOME 则弹出浏览目录窗口让用户选择一个If TOMCAT_HOME = &quot;&quot; Then    Set selFolder = shell.BrowseForFolder(0, &quot;请选择 TOMCAT_HOME 目录：&quot; & _    vbCrLf & &quot;如：C:\apache-tomcat-5.5.20&quot;, 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 = &quot;&quot; Then    Set selFolder = shell.BrowseForFolder(0, &quot;请选择 JAVA_HOME 目录：&quot; & _    vbCrLf & &quot;如：C:\Program Files\Java\jdk1.5.0_06&quot;, 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 = &quot;.;&quot; & _             &quot;%JAVA_HOME%\lib\tools.jar;&quot; & _             &quot;%JAVA_HOME%\lib\dt.jar;&quot; & _             &quot;%JAVA_HOME%\lib\mysql-connector-java-3.0.14-production-bin.jar;&quot; & _             &quot;%CATALINA_HOME%\common\lib\servlet-api.jar;&quot; & _             &quot;%CATALINA_HOME%\common\lib\struts.jar;&quot; ' 得到原来的 path 系统环境变量，再加上 %CATALINA_HOME%\common\lib;%JAVA_HOME%\bin;sPath = envSystem(&quot;PATH&quot;)If InStr(1, LCase(sPath), &quot;%catalina_home%\common\lib&quot;) < 1 Then    sPath = &quot;%CATALINA_HOME%\common\lib;&quot; & sPathEnd IfIf InStr(1, LCase(sPath), &quot;%java_home%\bin&quot;) < 1 Then    sPath = &quot;%JAVA_HOME%\bin;&quot; & sPathEnd If ' 再次请用户确认之后再进行修改If MsgBox(&quot;正准备将您的 JAVA_HOME 系统环境变量设置为：&quot; & vbCrlf & _    sJavaHome & vbCrlf & vbCrlf & _    &quot;正准备将您的 CATALINA_HOME,TOMCAT_HOME 系统环境变量设置为：&quot; & vbCrlf & _    sTomcatHome & vbCrlf & vbCrlf & _    &quot;正准备将您的>    sClassPath & vbCrlf & vbCrlf & _    &quot;正准备将您的 PATH 系统环境变量设置为：&quot; & vbCrlf & _    sPath & vbCrlf & vbCrlf & _    &quot;您确定要继续吗？&quot;, vbYesNo + vbQuestion + vbDefaultButton2, &quot;收集信息完成，正准备设置环境变量……&quot;)  vbYes Then     WScript.QuitEnd If  ' 设置系统环境变量envSystem(&quot;TOMCAT_HOME&quot;) = sTomcatHomeenvSystem(&quot;CATALINA_HOME&quot;) = sTomcatHomeenvSystem(&quot;JAVA_HOME&quot;) = sJavaHomeenvSystem(&quot;CLASSPATH&quot;) = sClassPathenvSystem(&quot;PATH&quot;) = sPath MsgBox &quot;环境变量已经设置成功!&quot;, vbinformation set wsh = nothing