FULFILLED %ProgramFiles%\SAP\FrontEnd SAP GUI Default SAP GUI Default UNDEFINED "" Then szMsOfficeVersion = 14 End If ElseIf NwEngine.Shell.RegKeyExist("HKLM\SOFTWARE\Microsoft\Office\12.0\Outlook\InstallRoot") Then szMsOfficeDir = NwEngine.Shell.GetRegValue ("HKLM\SOFTWARE\Microsoft\Office\12.0\Outlook\InstallRoot\Path") If szMsOfficeDir <> "" Then szMsOfficeVersion = 12 End If ElseIf NwEngine.Shell.RegKeyExist("HKLM\SOFTWARE\Microsoft\Office\11.0\Outlook\InstallRoot") Then szMsOfficeDir = NwEngine.Shell.GetRegValue ("HKLM\SOFTWARE\Microsoft\Office\11.0\Outlook\InstallRoot\Path") If szMsOfficeDir <> "" Then szMsOfficeVersion = 11 End If ElseIf NwEngine.Shell.RegKeyExist("HKLM\SOFTWARE\Microsoft\Office\10.0\Outlook\InstallRoot") Then szMsOfficeDir = NwEngine.Shell.GetRegValue ("HKLM\SOFTWARE\Microsoft\Office\10.0\Outlook\InstallRoot\Path") If szMsOfficeDir <> "" Then szMsOfficeVersion = 10 End If ElseIf NwEngine.Shell.RegKeyExist("HKLM\SOFTWARE\Microsoft\Office\9.0\Outlook\InstallRoot") Then szMsOfficeDir = NwEngine.Shell.GetRegValue ("HKLM\SOFTWARE\Microsoft\Office\9.0\Outlook\InstallRoot\Path") If szMsOfficeDir <> "" Then szMsOfficeVersion = 9 End If Else If NwEngine.Shell.RegKeyExist("HKLM\SOFTWARE\Microsoft\Office\8.0") Then szMsOfficeDir = NwEngine.Shell.GetRegValue ("HKLM\SOFTWARE\Microsoft\Office\8.0\BinDirPath") If szMsOfficeDir <> "" Then szMsOfficeVersion = 8 End If End If End If NwEngine.Context.Log.Write "Script: szMsOfficeDir = " & szMsOfficeDir NwEngine.Context.Log.Write "Script: szMsOfficeVersion = " & szMsOfficeVersion If szMsOfficeVersion <> "" Then intMsOfficeVersion = CInt(szMsOfficeVersion) If intMsOfficeVersion > 12 Then NwEngine.Context.Log.Write "Variable-Script-Action: Installation prerequisites for Calendar Synchronisation for Microsoft Outlook not fulfilled." bFulFilled = vbFalse End If Else NwEngine.Context.Log.Write "Variable-Script-Action: Installation prerequisites for Calendar Synchronisation for Microsoft Outlook not fulfilled." bFulFilled = vbFalse End If If bFulFilled Then NwEngine.Context.Log.Write "Variable-Script-Action: Installation prerequisites for Calendar Synchronisation for Microsoft Outlook are fulfilled." NwEngine.Variables.AppendDefaultValue "Pre_CalSync", "FULFILLED" End If ]]>