%ProgramFiles%\SAP\SAPsetup %SapSrcDir%\CAB NO C:\UNDEFINED C:\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 Development Kit\1.3" ElseIf szMajorVersion = "1.4" Then strVersionKey = "HKLM\SOFTWARE\JavaSoft\Java Development Kit\1.4" ElseIf szMajorVersion = "1.5" Then strVersionKey = "HKLM\SOFTWARE\JavaSoft\Java Development Kit\1.5" Else If szMinorVersion = "" Then strVersionKey = "HKLM\SOFTWARE\JavaSoft\Java Development Kit\" & szMajorVersion Else strVersionKey = "HKLM\SOFTWARE\JavaSoft\Java Development Kit\" & szMajorVersion & "_" & szMinorVersion End If End If strJavaHomeEntry = strVersionKey & "\JavaHome" If NWEngine.Shell.RegKeyExist( strVersionKey ) Then strJdkHome = NWEngine.Shell.GetRegValue( strJavaHomeEntry ) If strJdkHome <> "" Then strJavaExe = strJdkHome & "\bin\java.exe" NWEngine.Context.Log.Write "Scriptlet : Searching for " & strJavaExe & " ..." If NWEngine.Shell.FileExist( strJavaExe ) Then NWEngine.Context.Log.Write "Scriptlet : Java Development Kit detected." bSearchForJavaHome = vbTrue NWEngine.Variables.AppendDefaultValue "JdkHome", strJdkHome End If End If End If End Function ]]> C:\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 "JreHome", strJreHome End If End If End If End Function ]]> C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED UNDEFINED UNDEFINED UNDEFINED ProxyName:ProxyPort UNDEFINED