%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 ]]> 0.0.0.0 UNDEFINED 0 Then strJavaUpdate = Mid (szJre6Version, strUnderscorePos + 1 ) Else strJavaUpdate = 0 End If NwEngine.Context.Log.Write "Script JRE6x86: Found Update " & strJavaUpdate If NwEngine.Shell.RegKeyExist("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre6Version) Then Dim strJre6Path strJre6Path = NwEngine.Shell.GetRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre6Version & "\JavaHome") If NwEngine.Shell.FileExist(strJre6Path & "\bin\java.exe") Then NwEngine.Context.Log.Write "Script JRE7x86: Found JRE 6 in " & strJre6Path NwEngine.Variables.AppendDefaultValue "Jre6Home", strJre6Path Dim strJre6VersionWOUpdate If strUnderscorePos > 0 Then strJre6VersionWOUpdate = Left(szJre6Version, strUnderscorePos - 1) Else strJre6VersionWOUpdate = szJre6Version End If NwEngine.Variables.AppendDefaultValue "Jre6Version", strJre6VersionWOUpdate & "." & strJavaUpdate Else NwEngine.Context.Log.Write "Script JRE7x86: JRE 6 path '" & strJre6Path & "\bin\java.exe' could not be found!" End If Else NwEngine.Context.Log.Write "Script JRE6x86: Java6FamilyVersion is set to " & szJre6Version & ", but registry key HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre6Version & " could not be found." NwEngine.Context.Log.Write "Script JRE6x86: Maybe your JRE 6 installation is defect" End If Else NwEngine.Context.Log.Write "Script JRE6x86: Oracle JRE 1.6.0 is not installed!" End If ]]> 0.0.0.0 UNDEFINED 0 Then strJavaUpdate = Mid (szJre6x64Version, strUnderscorePos + 1 ) Else strJavaUpdate = 0 End If NwEngine.Context.Log.Write "Script JRE6x64: Found Update " & strJavaUpdate If NwEngine.Shell.RegKeyExist("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre6x64Version) Then Dim strJre6x64Path strJre6x64Path = NwEngine.Shell.GetRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre6x64Version & "\JavaHome") If NwEngine.Shell.FileExist(strJre6x64Path & "\bin\java.exe") Then NwEngine.Context.Log.Write "Script JRE6x64: Found JRE 6 in " & strJre6x64Path NwEngine.Variables.AppendDefaultValue "Jre6x64Home", strJre6x64Path Dim strJre6x64VersionWOUpdate If strUnderscorePos > 0 Then strJre6x64VersionWOUpdate = Left(szJre6x64Version, strUnderscorePos - 1) Else strJre6x64VersionWOUpdate = szJre6x64Version End If NwEngine.Variables.AppendDefaultValue "Jre6x64Version", strJre6x64VersionWOUpdate & "." & strJavaUpdate Else NwEngine.Context.Log.Write "Script JRE6x64: JRE 6 path '" & strJre6x64Path & "\bin\java.exe' could not be found!" End If Else NwEngine.Context.Log.Write "Script JRE6x64: Java6FamilyVersion is set to " & szJre6x64Version & ", but registry key HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre6x64Version & " could not be found." NwEngine.Context.Log.Write "Script JRE6x64: Maybe your JRE 6 x64 installation is defect" End If Else NwEngine.Context.Log.Write "Script JRE6x64: Oracle JRE 1.6.0 is not installed!" End If NwEngine.Shell.Use64BitHive = "false" End If ]]> 0.0.0.0 UNDEFINED 0 Then strJavaUpdate = Mid (szJre7Version, strUnderscorePos + 1 ) Else strJavaUpdate = 0 End If NwEngine.Context.Log.Write "Script JRE7x86: Found Update " & strJavaUpdate If NwEngine.Shell.RegKeyExist("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre7Version) Then strJre7Path = NwEngine.Shell.GetRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre7Version & "\JavaHome") If NwEngine.Shell.FileExist(strJre7Path & "\bin\java.exe") Then NwEngine.Context.Log.Write "Script JRE7x86: Found JRE 7 in " & strJre7Path NwEngine.Variables.AppendDefaultValue "Jre7Home", strJre7Path If strUnderscorePos > 0 Then strJre7VersionWOUpdate = Left(szJre7Version, strUnderscorePos - 1) Else strJre7VersionWOUpdate = szJre7Version End If NwEngine.Variables.AppendDefaultValue "Jre7Version", strJre7VersionWOUpdate & "." & strJavaUpdate Else NwEngine.Context.Log.Write "Script JRE7x86: JRE 7 path '" & strJre7Path & "\bin\java.exe' could not be found!" End If Else NwEngine.Context.Log.Write "Script JRE7x86: Java7FamilyVersion is set to " & szJre7Version & ", but registry key HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre7Version & " could not be found." NwEngine.Context.Log.Write "Script JRE7x86: Maybe your JRE 7 installation is defect" End If Else NwEngine.Context.Log.Write "Script JRE7x86: Oracle JRE 1.7.0 is not installed!" End If ]]> 0.0.0.0 UNDEFINED 0 Then strJavaUpdate = Mid (szJre7Version, strUnderscorePos + 1 ) Else strJavaUpdate = 0 End If NwEngine.Context.Log.Write "Script JRE7x64: Found Update " & strJavaUpdate If NwEngine.Shell.RegKeyExist("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre7Version) Then strJre7Path = NwEngine.Shell.GetRegValue("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre7Version & "\JavaHome") If NwEngine.Shell.FileExist(strJre7Path & "\bin\java.exe") Then NwEngine.Context.Log.Write "Script JRE7x64: Found JRE 7 in " & strJre7Path NwEngine.Variables.AppendDefaultValue "Jre7x64Home", strJre7Path If strUnderscorePos > 0 Then strJre7VersionWOUpdate = Left(szJre7Version, strUnderscorePos - 1) Else strJre7VersionWOUpdate = szJre7Version End If NwEngine.Variables.AppendDefaultValue "Jre7x64Version", strJre7VersionWOUpdate & "." & strJavaUpdate Else NwEngine.Context.Log.Write "Script JRE7x64: JRE 7 path '" & strJre7Path & "\bin\java.exe' could not be found!" End If Else NwEngine.Context.Log.Write "Script JRE7x64: Java7FamilyVersion is set to " & szJre7Version & ", but registry key HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\" & szJre7Version & " could not be found." NwEngine.Context.Log.Write "Script JRE7x64: Maybe your JRE 7 installation is defect" End If Else NwEngine.Context.Log.Write "Script JRE7x64: Oracle JRE 1.7.0 is not installed!" End If NwEngine.Shell.Use64BitHive = "false" End If ]]> C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED C:\UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED 0 Then NwEngine.Context.Log.Write "Script: .NET Framework Version 3.5 (32 Bit) is installed in Version " & szRegKeyDotNetFrameworkVersion & " with SP " & szRegKeyDotNetFrameworkSP NwEngine.Variables.AppendDefaultValue "DotNetV35SP1", "EXISTING" Else NwEngine.Context.Log.Write "Script: Warning: .NET Framework is installed in Version " & szRegKeyDotNetFrameworkVersion & " without ServicePack" End If End If ]]> UNDEFINED 0 Then NwEngine.Context.Log.Write "Script: .NET Framework Version 3.5 (64 Bit) is installed in Version " & szRegKeyDotNetFrameworkVersion & " with SP " & szRegKeyDotNetFrameworkSP NwEngine.Variables.AppendDefaultValue "DotNetV35SP1x64", "EXISTING" Else NwEngine.Context.Log.Write "Script: Warning: .NET Framework is installed in Version " & szRegKeyDotNetFrameworkVersion & " without ServicePack" End If End If NwEngine.Shell.Use64BitHive = "false" End If ]]> UNDEFINED UNDEFINED 4.5.0") Then NwEngine.Context.Log.Write "Script: .NET Framework Version 4.5 Client Profile (32 Bit) exists in version " & szVersion & "." NwEngine.Variables.AppendDefaultValue "DotNetV4ClientProfile", "EXISTING" NwEngine.Variables.AppendDefaultValue "DotNetV45ClientProfile", "EXISTING" Else NwEngine.Context.Log.Write "Script: .NET Framework Version 4 Client Profile (32 Bit) exists in version " & szVersion & "." NwEngine.Variables.AppendDefaultValue "DotNetV4ClientProfile", "EXISTING" End If End If ]]> UNDEFINED UNDEFINED 4.5.0") Then NwEngine.Context.Log.Write "Script: .NET Framework Version 4.5 Client Profile (64 Bit) exists in version " & szVersion & "." NwEngine.Variables.AppendDefaultValue "DotNetV4ClientProfilex64", "EXISTING" NwEngine.Variables.AppendDefaultValue "DotNetV45ClientProfilex64", "EXISTING" Else NwEngine.Context.Log.Write "Script: .NET Framework Version 4 Client Profile (64 Bit) exists in version " & szVersion & "." NwEngine.Variables.AppendDefaultValue "DotNetV4ClientProfilex64", "EXISTING" End If End If NwEngine.Shell.Use64BitHive = "false" End If ]]> UNDEFINED UNDEFINED 4.5.0") Then NwEngine.Context.Log.Write "Script: .NET Framework Version 4.5 Client Profile (32 Bit) exists in version " & szVersion & "." NwEngine.Variables.AppendDefaultValue "DotNetV4FullProfile", "EXISTING" NwEngine.Variables.AppendDefaultValue "DotNetV45FullProfile", "EXISTING" Else NwEngine.Context.Log.Write "Script: .NET Framework Version 4 Client Profile (32 Bit) exists in version " & szVersion & "." NwEngine.Variables.AppendDefaultValue "DotNetV4FullProfile", "EXISTING" End If End If ]]> UNDEFINED UNDEFINED 4.5.0") Then NwEngine.Context.Log.Write "Script: .NET Framework Version 4.5 Client Profile (64 Bit) exists in version " & szVersion & "." NwEngine.Variables.AppendDefaultValue "DotNetV4FullProfilex64", "EXISTING" NwEngine.Variables.AppendDefaultValue "DotNetV45FullProfilex64", "EXISTING" Else NwEngine.Context.Log.Write "Script: .NET Framework Version 4 Client Profile (64 Bit) exists in version " & szVersion & "." NwEngine.Variables.AppendDefaultValue "DotNetV4FullProfilex64", "EXISTING" End If End If NwEngine.Shell.Use64BitHive = "false" End If ]]> ProxyName:ProxyPort UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED UNDEFINED 0 Then ExecuteRegExp = true regExpString = matchesObject(0).Value Else ExecuteRegExp = false End If End Function Function CheckProduct(registryKey, counter, bits) Dim officeProductArrayItem For Each officeProductArrayItem in officeProductArray Dim doExecute doExecute = False If bits = officeProductArrayItem(3) Or officeProductArrayItem(3) = "Both" Then doExecute = True End If Dim strVarIsSet strVarIsSet = NwEngine.Variables.GetValue(officeProductArrayItem(1)) If strVarIsSet = "UNDEFINED" Then If doExecute And ExecuteRegExp(registryKey, officeProductArrayItem(2)) Then counter = counter + 1 NwEngine.Context.Log.Write "OfficeScript: Found " & officeProductArrayItem(0) NwEngine.Variables.AppendDefaultValue officeProductArrayItem(1), "TRUE" If IsGivenVariableAnOfficeVariable(officeProductArrayItem(1)) = "True" Then PrintInstalledOfficeParts officeProductArrayItem(2), officeProductArrayItem(4) End If End If End If Next End Function Function LogInstalledProducts(bitness, counter) If counter > 0 Then NwEngine.Context.Log.Write "OfficeScript: Found " & counter & " " & bitness & " Bit Office Product(s)" If bitness = 64 Then NwEngine.Variables.AppendDefaultValue "MSO2010Is64Bit", "TRUE" Else NwEngine.Variables.AppendDefaultValue "MSO2010Is64Bit", "FALSE" End If Else NwEngine.Context.Log.Write "OfficeScript: No " & bitness & " Bit Office Products found" End if End Function NwEngine.Context.Log.Write "OfficeScript: Checking for 32 Bit Office Products..." Dim registryKey Dim count32BitProducts count32BitProducts = 0 For Each registryKey in NwEngine.Shell.EnumRegKeys("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall") On Error Resume Next CheckProduct registryKey, count32BitProducts, "32" Next LogInstalledProducts 32, count32BitProducts If %WOW64MODE% = true Then NwEngine.Context.Log.Write "OfficeScript: Checking for 64 Bit Office Products..." NwEngine.Shell.Use64BitHive = vbTrue Dim count64BitProducts count64BitProducts = 0 For Each registryKey in NwEngine.Shell.EnumRegKeys("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall") On Error Resume Next CheckProduct registryKey, count64BitProducts, "64" Next NwEngine.Shell.Use64BitHive = vbFalse LogInstalledProducts 64, count64BitProducts Else NwEngine.Context.Log.Write "OfficeScript: Skipping 64 Bit Office Product checks, System is a 32 Bit OS" End If ]]> 0