serge21

Я есть Груут
Пикабушник
Дата рождения: 9 августа
2541 рейтинг 0 подписчиков 26 подписок 69 постов 5 в горячем
Награды:
5 лет на Пикабу
3

Настройки Word через VBA или реестр

Доброе время суток всем!

Проблема такая - есть VBA скрипт, нужно перед его запуском сделать чекбокс в настройке Word активным, как на скриншоте, а после отработки скрипта чекбокс убрать. Хотелось бы через VBA, но можно и через реестр. Версия офиса произвольная, 2007-365.

Настройки Word через VBA или реестр Vba, Microsoft Word, Windows, Компьютерная помощь
2

Ошибка при установки Exchange 19 CU14

Ошибка при установки Exchange 19 CU14 Microsoft Exchange, Системное администрирование, Помощь, Длиннопост

логи под спойлером - помогите плиз.

вводные данные, AD на 2012r2, Exchange 19 CU14 на 2019, делал по этому мануалу

https://itproblog.ru/установка-и-первоначальная-настройк-2/#...

Error:

The following error was generated when "$error.Clear();

if (!$RoleIsDatacenter -and !$RoleIsDatacenterDedicated)

{

$createNewOab = $false;

$oabName = $null;

$oabAddressList = $null;

$oabVdirs = $null;

$oabGlobalWebDistribution = $false;

$oabConfiguredAttributes = $null;

Write-ExchangeSetupLog -Info ("Looking for an existing default OAB");

$defaultOab = Get-OfflineAddressBook -DomainController:$RoleDomainController | where {$_.IsDefault};

if ($defaultOab -ne $null)

{

Write-ExchangeSetupLog -Info ("Found a default OAB: " + $defaultOab.Name + "; checking its version");

if ($defaultOab.ExchangeVersion.CompareTo([Microsoft.Exchange.Data.ExchangeObjectVersion]::Exchange2012) -lt 0)

{

$e15Oab = Get-OfflineAddressBook -DomainController:$RoleDomainController | where {$_.ExchangeVersion.CompareTo([Microsoft.Exchange.Data.ExchangeObjectVersion]::Exchange2012) -eq 0};

if ($e15Oab -eq $null)

{

Write-ExchangeSetupLog -Info ("Existing OAB is Exchange 2010 or older; will create a new OAB");

$createNewOab = $true;

$oabName = $defaultOab.Name + " (Ex2013)";

$oabAddressList = $defaultOab.AddressLists;

$oabGlobalWebDistribution = $defaultOab.GlobalWebDistributionEnabled;

$oabConfiguredAttributes = $defaultOab.ConfiguredAttributes;

}

else

{

Write-ExchangeSetupLog -Info ("Already has an existing Exchange 2013 OAB:" + $e15Oab.Name + "; will not create a new OAB");

}

}

else

{

Write-ExchangeSetupLog -Info ("Existing OAB is Exchange 2013 or newer; will not create a new OAB");

}

}

else

{

Write-ExchangeSetupLog -Info ("Did not find a default OAB; will create one");

$createNewOab = $true;

$oabName = [Microsoft.Exchange.Data.Directory.SystemConfiguration.OfflineAddressBook]::DefaultName;

$nonDefaultOabWithDefaultName = Get-OfflineAddressBook $oabName -DomainController:$RoleDomainController -ErrorAction SilentlyContinue | where {$_.IsDefault -eq $false};

if ($nonDefaultOabWithDefaultName -ne $null)

{

$createNewOab = $false;

Write-ExchangeSetupLog -Warning `

("Offline address book " + `

$nonDefaultOabWithDefaultName.Name + `

" already exists: " + `

$nonDefaultOabWithDefaultName.DistinguishedName + `

". Use administrative tools to change it to default OAB.");

}

$allGals = @(Get-GlobalAddressList -DomainController:$RoleDomainController | where {$_.IsDefaultGlobalAddressList});

if ($allGals -eq $null -or $allGals.Count -eq 0)

{

$createNewOab = $false;

Write-ExchangeSetupLog -Warning `

("Couldn't find the default global address list. The default offline address book can't be created.");

}

elseif ($allGals.Count -gt 1)

{

$createNewOab = $false;

Write-ExchangeSetupLog -Warning `

("Found " + $allGals.Count + " default global address lists. You can have only one default global address list in your organization. The default offline address book will not be created.");

}

else

{

$oabAddressList = $allGals[0];

Write-ExchangeSetupLog -Info ("OAB will be based on default GAL: " + $oabAddressList.Name);

}

}

if ($createNewOab)

{

if ($oabGlobalWebDistribution -eq $false)

{

$currentAdSiteDn = (Get-ExchangeServer $RoleFqdnOrName -DomainController:$RoleDomainController).Site.DistinguishedName;

$allOabVdirs = @(Get-OabVirtualDirectory -ADPropertiesOnly -DomainController:$RoleDomainController);

$e15MinimumServerVersion = New-Object Microsoft.Exchange.Data.ServerVersion([Microsoft.Exchange.Data.Directory.SystemConfiguration.Server]::E15MinVersion);

if ($allOabVdirs -ne $null -and $allOabVdirs.Count -gt 0)

{

foreach ($oabVdir in $allOabVdirs)

{

if ([Microsoft.Exchange.Data.ServerVersion]::Compare($oabVdir.AdminDisplayVersion, $e15MinimumServerVersion) -gt 0)

{

$oabVdirSiteDn = (Get-ExchangeServer $oabVdir.Server -DomainController:$RoleDomainController).Site.DistinguishedName;

if ($oabVdirSiteDn -eq $currentAdSiteDn)

{

$oabVdirs = $oabVdir;

break;

}

elseif ($oabVdirs -eq $null)

{

$oabVdirs = $oabVdir;

}

}

}

}

if ($oabVdirs -ne $null)

{

Write-ExchangeSetupLog -Info ("OAB will be distributed to OAB virtual directory " + $oabVdirs.Name);

}

else

{

Write-ExchangeSetupLog -Info ("Could not find any OAB virtual directories; OAB will be configured without distribution.");

}

}

try

{

Write-ExchangeSetupLog -Info ("Creating new default OAB.");

$newOab = New-OfflineAddressBook `

-Name $oabName `

-AddressLists $oabAddressList `

-VirtualDirectories $oabVdirs `

-GlobalWebDistributionEnabled $oabGlobalWebDistribution `

-IsDefault $true `

-DomainController:$RoleDomainController;

}

catch [Microsoft.Exchange.Data.Directory.ADObjectAlreadyExistsException]

{

Write-ExchangeSetupLog -Warning ("Tried to create new default OAB but the object already exists; it may have been created by another instance of setup.");

}

if ($oabConfiguredAttributes -ne $null)

{

Write-ExchangeSetupLog -Info ("Setting OAB ConfiguredAttributes to: " + $oabConfiguredAttributes);

Set-OfflineAddressBook $newOab -ConfiguredAttributes $oabConfiguredAttributes -DomainController:$RoleDomainController;

}

}

}

" was run: "Microsoft.Exchange.Data.DataValidationException: Database is mandatory on UserMailbox.

at Microsoft.Exchange.Data.Directory.ADDataSession.ObjectsFromEntries[TResult](SearchResultEntryCollection entries, String originatingServerName, IEnumerable`1 properties, ADRawEntry dummyInstance, String callerFilePath, Int32 callerFileLine, String memberName)

at Microsoft.Exchange.Data.Directory.ADGenericPagedReader`1.GetNextPage()

at Microsoft.Exchange.Data.Directory.ADGenericPagedReader`1.<GetEnumerator>d__29.MoveNext()

at System.Linq.Buffer`1..ctor(IEnumerable`1 source)

at System.Linq.Enumerable.ToArray[TSource](IEnumerable`1 source)

at Microsoft.Exchange.Data.Directory.Recipient.ADRecipientObjectSession.FindOrganizationMailboxByCapability(OrganizationCapability capability, QueryFilter optionalFilter, String callerFilePath, Int32 callerFileLine, String memberName)

at Microsoft.Exchange.Data.Directory.OrganizationMailboxHelper.InternalGetOrganizationMailboxesByCapability(IRecipientSession session, OrganizationCapability capability, QueryFilter optionalFilter)

at Microsoft.Exchange.ProvisioningAgent.NewOfflineAddressbookProvisioningHandler.FindGeneratingMailbox(String domainController, OrganizationId orgId)

at Microsoft.Exchange.ProvisioningAgent.NewOfflineAddressbookProvisioningHandler.ProvisionDefaultProperties(IConfigurable readOnlyIConfigurable)

at Microsoft.Exchange.Provisioning.ProvisioningLayer.ProvisionDefaultPropertiesImpl(Task task, IConfigurable temporaryObject, IConfigurable dataObject, Boolean checkProvisioningLayerAvailability)

at Microsoft.Exchange.Provisioning.ProvisioningLayer.ProvisionDefaultProperties(Task task, IConfigurable temporaryObject, IConfigurable dataObject, Boolean checkProvisioningLayerAvailability)

at Microsoft.Exchange.Configuration.Tasks.NewTaskBase`1.InternalStateReset()

at Microsoft.Exchange.Configuration.Tasks.Task.<ProcessRecord>b__91_1()

at Microsoft.Exchange.Configuration.Tasks.Task.InvokeRetryableFunc(String funcName, Action func, Boolean terminatePipelineIfFailed)".

Показать полностью 1
5

Разблокировка закрытых ресурсов через AdGuard - непонятки

Дано - Mac на М2, ось 14.5, Яндекс браузер и AdGuard последних версий.

Блокировка замедления ютуба включена по такому рецепту

«Устанавливаем, заходим в настройки, подраздел "Защита от трекинга" далее листаем в конец списка "Защита от DPI" - включаем.»

После этого заработали ютуб , rutor , кинозал, nnmclub, rutracker.

Я обрадовался, сделал те же самые настройки AdGuard на Win10/11. Нифига не работает. Сделал экспорт настроек на маке, импорт на винде не кушает.

Вопрос в студию - как починить на винде?

Ссылка на настройки AdGuard https://cloud.mail.ru/public/CyUy/NAMh9cTQT

6

Cisco ASA

Подскажите, какой командой в командной строке поставить сертификат по умолчанию?

в ASDM это выглядит так

Cisco ASA Cisco, Lets encrypt, Системное администрирование

Нужно для автоматической установки let's encrypt, делал по этому мануалу, всё заработало, кроме установки по умолчанию.

7

Что почитать из Бояръ-Аниме, Попаданцы, Боевое фэнтези?

Ищу качественный интересный цикл типа "Кодекс Охотника". Кодекс проглотил на одном дыхании. Желательно более 5 книг в цикле.

Из последних серий читал «Сердце Дракона», "Кодекс Охотника", "Закон джунглей", "Путь" и "Кровь"

10

Расширение емкости сети в Cisco ASA

Сразу просьба не бить за глупые вопросы, я только учусь

Есть внутренняя сеть 10.100.100.0/24. Итого имеются 254 адреса в сети, их скоро будет не хватать, надо расширить адресное пространство до /23. Или создать вторую сеть 10.100.101.0? Что является правильным выбором и как это сделать? Буду благодарен за пример конфига/мануал.

!

interface GigabitEthernet0/0

nameif outside

security-level 0

ip address 11.11.11.11 255.255.255.252

!

interface GigabitEthernet0/1

nameif lan

security-level 100

ip address 10.100.100.1 255.255.255.0

Отличная работа, все прочитано!