Powershell on Блог Агапова Максима

Access. Не возможно открыть базу данных, файл уже используется

Tue, 11 Jan 2022 08:52:00 +0000

Посвящается бедолагам, кто любит ставить свежие обновления Office. В середине декабря, вышло обновление KB5002104 (Office 2013) и KB5002099 (Office 2016) которое закрывало уязвимость ядра при подключении к базе данных Microsoft Jet Red. Но имело одну известную проблему с совместным доступом к файлу базы данных Access на сетевом диске или DFS.

Microsoft выпустили заплатку для Office 2013 KB2965317 и Office 2016 KB4484211, но к несчастью, они решали проблему только для файлов расположенных в сети по UNC-путям. Статус выхода обновлений можно посмотреть тут.

Как счастливый обладатель файлового сервера на DFS, для меня единственным решением оказалось удалить обновления KB5002104 и KB5002099.

SNMP. Собираем данные о принтерах

Tue, 30 Nov 2021 11:49:00 +0000

Пригодится в хозяйстве, без установки дополнительного ПО, библиотек и прочего.

Скрипт собирает данные по SNMP-протоколу о всех принтерах с сервера печати.

$printSRV = 'printsrv.kondor.ru'
$getPrinters = Get-Printer -ComputerName $printSRV | Where-Object {$_.Name -like "IN*"} | Select-Object Name, PortName
$result = @()
foreach ($printer in $getPrinters) {
 $SNMP = New-Object -ComObject olePrn.OleSNMP
 $SNMP.open($printer.PortName,'public',1,1000)
 $result += @(
 [PSCustomObject]@{'Имя принтера' = $printer.Name; 
 'Всего страниц напечатано' = $SNMP.get('.1.3.6.1.2.1.43.10.2.1.4.1.1');
 'Осталось копий' = $SNMP.Get('.1.3.6.1.2.1.43.11.1.1.9.1.1');
 'Серийный номер' = $SNMP.Get('.1.3.6.1.2.1.43.5.1.1.17.1');
 'Модель принтера' = $SNMP.Get('.1.3.6.1.4.1.11.2.3.9.4.2.1.1.3.1')})
 $SNMP.Close()
}
$result.GetEnumerator() | Sort-Object 'Всего страниц напечатано'

Готовый скрипт можно взять тут

Intraservice. Работаем через API

Sat, 26 Dec 2020 11:34:00 +0000

Попробуем парсить обращения из Intraservice при помощи Powershell. Пригодится, когда надо регулярно и быстро доставать инфу, имея на руках только номер обращения. Опишу основные действия, хотя это всё есть в официальной документации. Мне пригодилось в части автоматизации составления документов на печать из данных, полученных из обращения.

Сперва посмотрим, какие данные можем получить из заявки через API в формате json через веб-браузер. Для этого переходим по адресу сервера/api/task/номер_заявки

SCCM. Дубликаты GUID

Fri, 11 Jan 2019 08:31:00 +0000

Столкнулся с проблемой, когда после развёртывания образов с Windows 7 при помощи клонирования, в консоли System Center Configuration Manager (SCCM) отображались не все машины. Оказалось, что под одним уникальным идентификатором (GUID), с которого снимался образ, кроются несколько компов. Чтобы решить проблему, надо сгенерировать новый GUID для всех проблемных машин.

Запускаем cmd под администратором и выполняем следующие шаги:

# Останавливаем службу CCM-клиента
net stop ccmexec
# Удаляем файл конфигурации клиента
del c:\windows\SMSCFG.INI
# Удаляем сертификаты SCCM
certutil -delstore SMS SMS

# Удаляем клиент SCCM, ждём пока завершится процесс ccmsetup.exe (примерно 5 минут)
c:\windows\ccmsetup\ccmsetup.exe /uninstall
# Удаляем рабочий каталог
del c:\windows\ccm /q
# Удаляем ветки в реестре
reg delete "HKLM\SOFTWARE\Microsoft\CCMSetup" /f
reg delete "HKLM\SOFTWARE\Microsoft\SMS" /f

# Ставим клиент снова
C:\Windows\ccmsetup\ccmsetup.exe

При установке ccm-клиента в логах C:\Windows\ccmsetup\Logs\ccmsetup.log может выпадать ошибка

ErrorMessages:
Setup was unable to compile the file DiscoveryStatus.mof

Сталкивался с таким в 100% случаев при обновлении с Windows 8.1 на 10. Делаем

cd C:\Program Files\Microsoft Policy Platform
mofcomp ExtendedStatus.mof

# Ставим клиент снова
C:\Windows\ccmsetup\ccmsetup.exe

Автонастройка Outlook с использованием Office Customization Tool и GPO

Mon, 16 Apr 2018 07:47:00 +0000

Решил довести до ума настройку почтового клиента для новых пользователей. В результате имеем полностью сконфигурированный профиль для подключения к почтовому серверу. Пользователю остается только ввести пароль. Берем в расчет то, что в AD профиле пользователя указан почтовый адрес. Еще потребуется учетная запись для доступа к LDAP (подойдет любая с правами Пользователь домена). Для создания файла автонастройки профиля Outlook в формате *.prf потребуется дистрибутив Office Professional.

Заходим в корень установки и запускаем

setup.exe \admin

Переходим во вкладку Outlook>Профиль Outlook
Выставляем все как на скриншоте

Затем в Outlook>Добавление учетных записей>Добавить
Заполняем настройки подключения. Можно на скорую руку, в последствии все равно можно подправить в блокноте.

Переходим в Outlook>Экспорт параметров и сохраняем *.prf
Открываем файл блокнотом, смотрим Section 5

[Account1]
UniqueService=No
AccountName=%username%
POP3Server=mail.ya.ru
SMTPServer=mail.ya.ru
POP3UserName=%mail%
EmailAddress=%mail%
POP3UseSPA=0
DisplayName=%cname%
ReplyEMailAddress=
SMTPUseAuth=1
SMTPAuthMethod=0
ConnectionType=0
LeaveOnServer=0x0
POP3UseSSL=1
ConnectionOID=MyConnection
POP3Port=995
ServerTimeOut=60
SMTPPort=465
SMTPSecureConnection=1

Параметр SMTPSecureConnection - это галочка "Использовать шифрование" SSL. Возможные параметры:

0 нет
1 для SSL2 для TLS
3 для Auto

Подробное описание всех параметров

Как видим, в файле использованы переменные %username%, %mail% и %cname%. Если %username% - это системная переменная окружения уже указана в системе, то %mail% и %cname% мы добавим в пользовательские переменные при помощи powershell скрипта. Я нашел скрипт, без использования модуля activedirectory, так как его импорт занимает много времени, да еще его надо как-то раскидать на все рабочие станции. Долго.

Скрипт берет параметры mail и name учетной записи AD авторизованного пользователя и создает переменную %mail% и %cname%.

Clear-Host
$dn = New-Object System.DirectoryServices.DirectoryEntry ("LDAP://servername:389/dc=domain,dc=com","LDAPUser@domain.com","pa$$w0rd")
$user2Find = [Security.Principal.WindowsIdentity]::GetCurrent().Name -replace ".+\\"
$Rech = new-object System.DirectoryServices.DirectorySearcher($dn)
$rc = $Rech.filter = "((sAMAccountName=$user2Find))"
$rc = $Rech.SearchScope = "subtree"
$rc = $Rech.PropertiesToLoad.Add("mail");
$rc = $Rech.PropertiesToLoad.Add("name");
$theUser = $Rech.FindOne()
[Environment]::SetEnvironmentVariable("mail", $theUser.Properties["mail"] , "User")
[Environment]::SetEnvironmentVariable("cname", $theUser.Properties["name"] , "User")

Через GPO добавляем logon-скрипт в Конфигурацию пользователя. Убеждаемся, что пользователь имеет права доступа к скрипту и групповыми политиками разрешен запуск powershell-скриптов. После перезагрузки, на рабочей станции запускаем powershell и проверяем что в переменной %mail% и %cname%

$env:mail
agap0v@karelia-er.ru
$env:cname
Агапов Максим

Вернемся к файлу автонастройки. Кладем его в доступное место на файловом сервере и через ГПО создаем запись в реестре. Пример для Office 2013

[HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Setup]
"ImportPRF"="\\\\servername\\install\\Office 2013\\karelia-er.prf"

Таким образом, при первом запуске от пользователя, Outlook берёт настройки с файла и мы видим окно ввода пароля для учетной записи %mail%

Если потребуется сбросить первоначальные настройки - надо удалить все параметры из

[HKCU\Software\Microsoft\Office\15.0\Outlook\Setup]

При помощи этой же утилиты, можно настраивать и другие продукты MS. Я использовал для тихой установки Lync Client 2013

Продолжаем совершенствоваться в работе с Outlook. Используем шаблоны

Настройка Wake On Lan (WOL) при помощи Powershell

Wed, 29 Jun 2016 19:53:00 +0000

Поговорим о том, как активировать Wake On Lan (WOL) в Windows (7;8,1;10).
Сперва проверим, активирован ли режим WOL.
Через GUI - Управление компьютером > Диспетчер устройств > Сетевые адаптеры

Все сетевые адаптеры в системе