powershell 安装-Excel的加载项

Posted 2021-05-23

## Path to the Excel addin
$ExceAddin = '/R "F:\Applic\NtRand_Excel_Addin\NtRand330_x86.xll'
## Registry key to check
$regPath = 'HKCU:\\Software\Microsoft\Office\14.0\Excel\Options'

$regKeyExists = $false
Function Test-RegistryValue {
     param
     (
         [Object]
         $RegKey,

         [Object]
         $RegName
     )

    Get-ItemProperty $RegKey $RegName -ErrorAction SilentlyContinue | Out-Null
    $?
}

$regName = 'OPEN'
if (Test-RegistryValue -Regkey $regPath -RegName $regName) {

    $regValue = (Get-ItemProperty -Path $regPath).$regName
    if ($regValue -match 'NtRand_Excel_Addin') {
        $regKeyExists = $true
    }
}
else {
    ## OPEN key does not exist.
    ## Create the OPEN key and set the value to the Excel addin
    Set-ItemProperty -Path $regPath -Name $regName -Value $ExceAddin
    $regKeyExists = $true
}

$openCounter = 1
while ($regKeyExists -eq $false)
{
    $regName = "OPEN$openCounter"
    if (Test-RegistryValue -Regkey $regPath -RegName $regName) {
        $regValue = (Get-ItemProperty -Path $regPath).$regName
        if ($regValue -match 'NtRand_Excel_Addin') {
            $regKeyExists = $true
        }
    }
    else {
        ## OPENx key does not exist.
        ## Create the OPENx key and set the value to the Excel addin
        Set-ItemProperty -Path $regPath -Name $regName -Value $ExceAddin
        $regKeyExists = $true
    }
    ## The next OPENx value
    $openCounter++
}