home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / multimedia / ppsee / PPSeeSetup.exe / ppsee.vbs < prev    next >
Text File  |  2006-11-13  |  3KB  |  83 lines
  1. ' ===================================================================
  2. ' runJ4Win.vbs version 0.94 - general starting script 
  3. ' for a Java application on MS Windows 98, ME, 2000, XP, 95+WSH, NT+WSH.
  4. ' 
  5. ' Copyright (C) 2003-2006 Paul Ponec, e-mail:ppsee2@gmail.com
  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 Lesser General Public License as published by
  10. ' the Free Software Foundation version 2.1 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-lgpl.txt for the full details. A copy of the LGPL may 
  14. ' be found at http://www.gnu.org/licenses/lgpl.txt .
  15. '
  16. ' A History:
  17. ' rel. 0.92  - 2003/11/30 - The first public version under GPL License
  18. ' rel. 0.93  - 2004/08/09 - Modified for PPSee java program
  19. ' rel. 0.93b - 2004/10/30 - Error function was created
  20. ' rel. 0.94  - 2006/02/02 - Released under LGPL License
  21. '
  22. ' Usage: wscript.exe ppsee.vbs [ppsee parameters]
  23. ' ===================================================================
  24.  
  25. ' Modify path to file "javaw.exe" in case you can't run the application.
  26. java = "" ' "C:\Program Files\Java\jre1.5.0_06\bin\javaw.exe" 
  27.  
  28. ' Maximal Memory Alocation:
  29. parameter = "-Xmx180m -Xms96m"
  30.  
  31. ' Java Archive:
  32. jarName = "bin\PPSee.jar"
  33.  
  34. ' User Parameters:
  35. paru = ""
  36.  
  37. ' Default Image Editor Path:
  38. imageEdit = ""
  39.  
  40. ' === CORE: ===
  41. Sub error(ByVal enable)
  42.   If enable Then
  43.     Wscript.Echo "WARNING from ""ppsee.vbs"" script:" & vbCrLf & vbCrLf & "File """ & java & """ was not found! " _
  44.     & vbCrLf & "Ensure you have installed a Java Runtime" _
  45.     & vbCrLf & "or try to modify a ""java"" variable in the script." _
  46.     & vbCrLf & "See ""read-me.html"" file for more information."  _
  47.     & vbCrLf & vbCrLf & "Java Runtime download page: http://java.com/download/"
  48.     WScript.Quit(1)
  49.   End If
  50. End Sub
  51.  
  52. set shell = WScript.CreateObject("Wscript.Shell")
  53. set fso   = WScript.CreateObject("Scripting.FileSystemObject")
  54. javax = java
  55. if Len(javax)=0 Or not fso.FileExists(javax) then
  56.   jreg  = "HKLM\Software\JavaSoft\Java Runtime Environment\"
  57.   on error resume next
  58.   javax = shell.RegRead(jreg & "CurrentVersion")
  59.   error(Err.Number<>0)
  60.   javax = shell.RegRead(jreg & javax & "\JavaHome") & "\bin\javaw.exe"
  61.   error(Err.Number<>0)
  62.   On Error Goto 0
  63.   error(not fso.FileExists(javax))
  64. end if
  65. ' HTML Viewer
  66. htmlView = "HKLM\SOFTWARE\Classes\HTTP\shell\open\command\"
  67. htmlView = shell.RegRead(htmlView)
  68. htmlView = Replace (htmlView , """", "'")
  69. ' htmlView = Left(htmlView, InstrRev(htmlView, " "))
  70. imageEdit = Replace (imageEdit, """", "'")
  71. parameter = parameter & " " & "-DhtmlView=""" & htmlView & """ -DimageEdit=""" & imageEdit & """"
  72. Set args = Wscript.Arguments
  73. For i = 0 to args.Count-1
  74.    paru = paru & " """ & args(i) & """" 
  75. Next
  76. path = WScript.ScriptFullName
  77. path = Left(path, InstrRev(path, "\"))
  78. param = """" & javax & """ " & parameter & " -jar """ & path & jarName & """ " & paru
  79. shell.Run(param) 
  80. ' === EOF ===
  81.  
  82.  
  83.