home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 November / PCWorld_2005-11_cd.bin / software / temacd / ppsee / PPSeeSetup.exe / ppsee.vbs < prev    next >
Text File  |  2005-09-25  |  3KB  |  80 lines
  1. ' ===================================================================
  2. ' runJ4Win.vbs version 0.93 - general starting script 
  3. ' for a Java application on MS Windows 98, ME, 2000, XP, 95+WSH, NT+WSH.
  4. ' 
  5. ' Copyright (C) 1993-1994 Pavel Ponec, e-mail:ppsee@centrum.cz
  6. ' Home Page: http://pponec.net/ppsee/runj4/index.htm
  7. ' 
  8. ' This program is free software; you can redistribute it and/or modify
  9. ' it under the terms of the GNU General Public License as published by
  10. ' the Free Software Foundation version 2 of the License.
  11. ' This program is distributed in the hope that it will be useful,
  12. ' but WITHOUT ANY WARRANTY.
  13. ' Please read bin/license-gpl.txt for the full details. A copy of the GPL may 
  14. ' be found at http://www.gnu.org/licenses/gpl.txt .
  15. '
  16. ' A History:
  17. ' rel. 0.92  - 2003/11/30 - The first public version
  18. ' rel. 0.93  - 2004/08/09 - Modified for PPSee java program
  19. '
  20. ' Usage: wscript ppsee.vbs 
  21. ' ===================================================================
  22.  
  23. ' Modify path to file "javaw.exe" in case you can't run the application.
  24. java = "C:\Program Files\Java\jre1.5.0_04\bin\javaw.exe" 
  25.  
  26. ' Maximal Memory Alocation:
  27. parameter = "-Xmx128m"
  28.  
  29. ' Java Archive:
  30. jarName = "bin\PPSee.jar"
  31.  
  32. ' Default Image Editor Path:
  33. imageEdit = ""
  34.  
  35. ' === CORE: ===
  36. Sub error(ByVal enable)
  37.   If enable Then
  38.     Wscript.Echo "WARNING from ""ppsee.vbs"" script:" & vbCrLf & vbCrLf & "File """ & java & """ was not found! " _
  39.     & vbCrLf & "Ensure you have installed a Java Runtime" _
  40.     & vbCrLf & "or try to modify a ""java"" variable in the script." _
  41.     & vbCrLf & "See ""read-me.html"" file for more information."  _
  42.     & vbCrLf & vbCrLf & "Java Runtime download page: http://java.com/download/"
  43.     WScript.Quit(1)
  44.   End If
  45. End Sub
  46.  
  47. set shell = WScript.CreateObject("Wscript.Shell")
  48. set fso   = WScript.CreateObject("Scripting.FileSystemObject")
  49. javax = java
  50. if not fso.FileExists(javax) then
  51.   jreg  = "HKLM\Software\JavaSoft\Java Runtime Environment\"
  52.   on error resume next
  53.   javax = shell.RegRead(jreg & "CurrentVersion")
  54.   error(Err.Number<>0)
  55.   javax = shell.RegRead(jreg & javax & "\JavaHome") & "\bin\javaw.exe"
  56.   error(Err.Number<>0)
  57.   On Error Goto 0
  58.   error(not fso.FileExists(javax))
  59. end if
  60. ' HTML Viewer
  61. htmlView = "HKLM\SOFTWARE\Classes\HTTP\shell\open\command\"
  62. htmlView = shell.RegRead(htmlView)
  63. htmlView = Replace (htmlView , """", "'")
  64. ' htmlView = Left(htmlView, InstrRev(htmlView, " "))
  65. imageEdit = Replace (imageEdit, """", "'")
  66. parameter = parameter & " " & "-DhtmlView=""" & htmlView & """ -DimageEdit=""" & imageEdit & """"
  67. ' User Parameters:
  68. paru = ""
  69. Set args = Wscript.Arguments
  70. For i = 0 to args.Count-1
  71.    paru = paru & " """ & args(i) & """" 
  72. Next
  73. path = WScript.ScriptFullName
  74. path = Left(path, InstrRev(path, "\"))
  75. param = """" & javax & """ " & parameter & " -jar """ & path & jarName & """" & paru
  76. shell.Run(param) 
  77. ' === EOF ===
  78.  
  79.  
  80.