Добавление прав на почтовые ящики exhange 2010

Доброго времени суток!
Есть задача, предоставить группе domain\fullaccess доступа на все почтовые ящики exchange 2010. Т.е. посмотреть, если ли у группы "full access" доступ на почтовый ящик, если нет - добавить
Получилось смастерить такой скрипт, но мне кажется как-то я тут переборщил и можно сделать гораздо проще.

Код:

$mailbox_list = Get-Mailbox -ResultSize Unlimited

foreach ($mailbox in $mailbox_list) {

    $flag = 0

    write-host '$mailbox: ' $mailbox.Alias -ForegroundColor yellow

    [string]$user = $mailbox.alias

    $permission_list = Get-MailboxPermission -Identity "$user"

    foreach ($item in $permission_list) {

        #write-host $item.user -ForegroundColor cyan

        [string]$str = $item.user

        if ($str -eq "domain\fullaccess") {

            $flag = 1

            #write-host $item.user OK -ForegroundColor green

            write-host OK -ForegroundColor green

            break

        }

    }

    if ($flag -eq 0) {

        write-host ERROR -ForegroundColor red

        Add-MailboxPermission -Identity $mailbox.Alias -User "domain\fullaccess" -AccessRights fullaccess -InheritanceType all

    }

}

Подскажите, можно ли как-то оптимизировать скрипт или может как-то проще выполнить данную задачу?