office plugins M365 or 2016

[Heather]

For a business project we have to run one script that will detect which office version is installed (O365 or 2016), and then install 32 or 64 bits according to installed office version , detection should be from this path " HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstal", both 32 bits and 64 bits installer are provide.

Any suggestion.

 

Edited March 8, 2023 by Heather

[Jos]

What did you try that doesn't work as this seems to be pretty straightforward?

[Heather]

expandcollapse popup

;parse uninstall registry value to find installed version of MS office
    $i = 1
    $flag = True
    $office = "Not installed"
    While $flag
        $i = $i + 1
        Local $var = RegEnumKey($UninstallReg, $i)
        If @error = -1 Then ExitLoop
        If @error = 1 Then ContinueLoop
        if RegRead($UninstallReg & "\" & $var,"DisplayName") = "Microsoft Office Professional Plus 2016" Then
            $office = "MS Office Pro 2016"
            $flag = False
        ElseIf     RegRead($UninstallReg & "\" & $var,"DisplayName") = "Microsoft Office Professional Plus 2013" Then
            $office = "MS Office Pro 2013"
            $flag = False
        Else
            ContinueLoop
        EndIf
    WEnd
    _FileWriteLog($LogFile_install_mqs, "Step 2 of 3 - Info : MS office installed = " & $office)

    ;parse unistall x64 registyr key to find installed version of O365
    $i = 1
    $flag = True
    $O365 = "Not installed"
    While $flag
        $i = $i + 1
        Local $var = RegEnumKey($UninstallRegx64, $i)
        If @error = -1 Then ExitLoop
        If @error = 1 Then ContinueLoop
        If StringInStr($var,"O365ProPlusRetail") Then
            $O365 = $O365 & " - " & $var
        EndIf
    WEnd
    _FileWriteLog($LogFile_install_mqs, "Step 2 of 3 - Info : O365 installed = " & $O365)

    $InstallFlag = False

    ;No office installation is found => exit code 10
    if $office = "Not installed" And $O365 = "Not installed" then
        _FileWriteLog($LogFile_install_mqs, "Step 2 of 3 - Error : No office installation is found ... going to exit with return code 10")
        Exit(10)
    EndIf

    ; MS Office Pro 2016 x32
    if $office = "MS Office Pro 2016" and $O365 = "Not installed" Then
        _FileWriteLog($LogFile_install_mqs, "Step 2 of 3 - Info : start installation for MS Office Pro 2016 x32")
        $InstallFlag = True
        $result = RunWait($InstallDir & "\AOFFICE28SP12_0-70004974.EXE /Silent")
        If $result <> 0 Then
            _FileWriteLog($LogFile_install_mqs, "Step 2 of 3 - Error : installing SAPBusinessAnalysis ... going to exist with return code 9999")
            DirRemove($InstallDir, 1)
            Exit(9999)
        Else
            _FileWriteLog($LogFile_install_mqs, "Step 2 of 3 - Success : installation SAPBusinessAnalysis finished")
        EndIf


    ; O365 x64
    if $office = "Not installed" and StringInStr($O365,"O365ProPlusRetail") Then
        _FileWriteLog($LogFile_install_mqs, "Step 2 of 3 - Info : start installation for O365 X64")
        $InstallFlag = True
        $result = RunWait($InstallDir & "\AOFFICE28SP12_0-70004973_X64.EXE /Silent")
        If $result <> 0 Then
            _FileWriteLog($LogFile_install_mqs, "Step 2 of 3 - Error : installing SAPBusinessAnalysis failed ... going to exist with return code 9999")
            DirRemove($InstallDir, 1)
            Exit(9999)
        Else
            _FileWriteLog($LogFile_install_mqs, "Step 2 of 3 - Success : installation SAPBusinessAnalysis finished")
        EndIf


    EndIf

    IF $InstallFlag = False Then
        _FileWriteLog($LogFile_install_mqs, "Step 2 of 3 - Error : No Installation use case is supported .... going to exist with return code 40")
        Exit(40)
    EndIf

 

Edited March 8, 2023 by Jos
added codebox

[Jos]

This code isn't valid as there is no EndIf for this line. Also tell is what the issue is with this code!

if $office = "MS Office Pro 2016" and $O365 = "Not installed" Then

ps: Please use a codebox when you post code.

Edited March 8, 2023 by Jos

[Subz]

Normally to get the bit type I always check:

Reg Key: HKLM\SOFTWARE\Microsoft\Office\16.0\Outlook
Reg Value: "Bitness"
Reg Data: x86

Reg Key: HKLM64\SOFTWARE\Microsoft\Office\16.0\Outlook
Reg Value: "Bitness"
Reg Data: x64