UNDEFINED 0 szMinorVersion = "0" & iMinorVersion If bSearchForJavaHome( szMajorVersion, szMinorVersion ) Then bSearchForJavaMinorVersion = vbTrue Exit Function Else iMinorVersion = iMinorVersion - 1 End If Loop If bSearchForJavaHome( szMajorVersion, "" ) Then bSearchForJavaMinorVersion = vbTrue End If End Function Function bSearchForJavaHome( szMajorVersion, szMinorVersion ) bSearchForJavaHome = vbFalse If szMajorVersion = "1.3" Then strVersionKey = "HKLM\SOFTWARE\JavaSoft\Java Runtime Environment\1.3" ElseIf szMajorVersion = "1.4" Then strVersionKey = "HKLM\SOFTWARE\JavaSoft\Java Runtime Environment\1.4" ElseIf szMajorVersion = "1.5" Then strVersionKey = "HKLM\SOFTWARE\JavaSoft\Java Runtime Environment\1.5" Else If szMinorVersion = "" Then strVersionKey = "HKLM\SOFTWARE\JavaSoft\Java Runtime Environment\" & szMajorVersion Else strVersionKey = "HKLM\SOFTWARE\JavaSoft\Java Runtime Environment\" & szMajorVersion & "_" & szMinorVersion End If End If strJavaHomeEntry = strVersionKey & "\JavaHome" If NWEngine.Shell.RegKeyExist( strVersionKey ) Then strJreHome = NWEngine.Shell.GetRegValue( strJavaHomeEntry ) If strJreHome <> "" Then strJavaExe = strJreHome & "\bin\java.exe" NwEngine.Context.Log.Write "Scriptlet : Searching for " & strJavaExe & " ..." If NwEngine.Shell.FileExist( strJavaExe ) Then NwEngine.Context.Log.Write "Scriptlet : Java Runtime Environment detected." bSearchForJavaHome = vbTrue NwEngine.Variables.AppendDefaultValue "JreHomeForIshMed", strJreHome NwEngine.Variables.Persistent( "JreHomeForIshMed" ) = vbFalse End If End If End If End Function ]]>