Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Темы - itpro

Страницы: [1]
1
Флейм / Перенесено: Power Shell
« : 05 Ноябрь 2019, 07:39:10 »

2
Простой SCCM запрос для построения списка ПК, на которых отсутствует определенное обновление. В данном примере стоится список компьютеров с Windows XP, на которых отсутствует обновление от шифровальщика WCry.
 
Цитировать
select SMS_R_System.ResourceId, SMS_R_System.ResourceType, SMS_R_System.Name, SMS_R_System.SMSUniqueIdentifier, SMS_R_System.ResourceDomainORWorkgroup, SMS_R_System.Client from  SMS_R_System inner join SMS_G_System_OPERATING_SYSTEM on SMS_G_System_OPERATING_SYSTEM.ResourceId = SMS_R_System.ResourceId where SMS_R_System.Name not in (select SMS_R_System.Name from  SMS_R_System inner join SMS_G_System_ADD_REMOVE_PROGRAMS on SMS_G_System_ADD_REMOVE_PROGRAMS.ResourceID = SMS_R_System.ResourceId where SMS_G_System_ADD_REMOVE_PROGRAMS.DisplayName like "%KB4012598%") and SMS_G_System_OPERATING_SYSTEM.Caption like "%XP%"

3
Оставлю тут как заметку для себя.

Чтобы в Exchange запустить перенос всех активных почтовых баз с определенного сервера на другие сервера DAG (например обслуживание сервера в профилактику), используем команду
Move-ActiveMailboxDatabase -server msk-maibox1

4
Так все версии IE ниже 11 сняты с поддержки, возникла необходимость построения SCCM коллекций с компьютерами по разным версиям браузера Internet Explorer.
Пример SCCM запроса для построения коллекции компьютеров с Internet Explorer 11:
Цитировать
select SMS_R_SYSTEM.ResourceID,SMS_R_SYSTEM.ResourceType,SMS_R_SYSTEM.Name,SMS_R_SYSTEM.SMSUniqueIdentifier,SMS_R_SYSTEM.ResourceDomainORWorkgroup,SMS_R_SYSTEM.Client from SMS_R_System inner join SMS_G_System_SoftwareFile on SMS_G_System_SoftwareFile.ResourceID = SMS_R_System.ResourceID inner join SMS_G_System_OPERATING_SYSTEM on SMS_G_System_OPERATING_SYSTEM.ResourceID = SMS_R_System.ResourceID where SMS_G_System_SoftwareFile.FilePath like "%\\Program Files\\Internet Explorer\\" and SMS_G_System_SoftwareFile.FileName like "iexplore.exe" and SMS_G_System_SoftwareFile.FileVersion like "11.%"


5
Оставлю тут 2 vba скрипта для документа Excel.
Первый позволяет найти и выделить разным цветом все английские и русские буквы в выделенных ячеек.
Второй заменяет русские буквы на аналогичные по написанию латинские.
ЗЫ. Скрипты мне понадобились для поиска и исправления некорректно забитых пользователеями в Excel MAC адресов. В данных пользователи путали английские и русские ьувы, вместо 0 ставил О, вместо 6 - б (Б) и т.п. В таблице было порядка 1000 записей, так что вручную это исправить было не реально.

Sub Color_RUS_LAT() ' Выделяет русские символы в выделенном диапазоне [color=green]ЗЕЛЁНЫМ[/color], латинские - [color=red]КРАСНЫМ[/color]
If TypeName(Selection) <> "Range" Then Exit Sub
Dim iCell As Range, rRange As Range, i%, ASCII%, iColor%
On Error GoTo eXXit
Set rRange = Intersect(Selection, ActiveSheet.UsedRange)
If rRange Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each iCell In rRange
For i = 1 To Len(iCell)
ASCII = Asc(Mid(iCell, i, 1))
If (ASCII >= 192 And ASCII <= 255) Then iColor = 10 'цвет символов РУС
If (ASCII >= 65 And ASCII <= 90) Or (ASCII >= 97 And ASCII <= 122) Then iColor = 5 'цвет символов LAT
iCell.Characters(Start:=i, Length:=1).Font.ColorIndex = iColor
Next i
Next iCell
rRange.Select
Application.ScreenUpdating = True
eXXit: End Sub

Sub Repair_LAT() ' замена русских буквы на такие же по начертанию латинские
If TypeName(Selection) <> "Range" Then Exit Sub
Dim arrENG(): arrENG = Array("C", "0", "0", "0", "0", "c", "E", "e", "T", "O", "o", "p", "P", "A", "a", "H", "K", "k", "X", "x", "B", "M")
Dim arrRUS(): arrRUS = Array("С", "O", "o", "О", "о", "с", "Е", "е", "Т", "О", "о", "р", "Р", "А", "а", "Н", "К", "к", "Х", "х", "В", "М")
Dim i%
For i = 0 To UBound(arrENG)
Intersect(Selection, ActiveSheet.UsedRange).Replace _
What:=arrRUS(i), _
Replacement:=arrENG(i), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
Next i
End Sub


6
Искал для себя решение, позволяющее организовать запрет на удаление данных из определенной таблицы MySQL.
Остановился на решении с помощью триггера MySQL, который срабатывает перед попыткой удалить (BEFORE DELETE) строку из таблицы table_name:
DELIMITER //
CREATE TRIGGER table_name_before_del_tr
BEFORE DELETE
   ON table_name FOR EACH ROW
   BEGIN
         SIGNAL SQLSTATE '45000' SET MESSAGE_TEXT = 'DELETE canceled';
END; //
DELIMITER ;
Оставлю тут на память...

7
SCCM агент после установки не получает политики с сервера. В логах такие ошибки:
ClientIDManagerStartup.log
RegTask: Server rejected registration request: 3

PolicyEvaluator.log
Failed to trigger Machine settings update (80070057)

MP_RegistrationManager.log
Certificate issued to ‘SMS’ has expired.

Решение:
Удаление обоих просроченных сертификатов SMS в MMC  консоли “Certificates” в разделе SMS > Certificates
После этого нужно выполнить repair SCCM клиента и он доже корректно зарегистрироваться на MP.

8
Поделюсь опытом...
Сегодня на одном из компьютеров столкнулся с ошибкой при подключении через Remote Tools к клиенту с агентом SCCM 2007. Ошибка:
"Remote control is disabled"
В настройках сайта Remote control включен, на всех остальных клиентах подключение по Remote Tools  все работает, инвентаризационная информация с клиента предается, политики приезжают. Но вот подключения по rc нет!
Попытался удалить клиент:
%windir%\system32\ccmsetup\ccmsetup /uninstallпереустановить его заново
ccmsetup.exe SMSMP=serv-man01 SMSSITECODE=001 SMSFSP=serv-man01результат тот же.
В итоге начал сравнивать настройки реестра на разных машинах, и обнаружил, что на проблемном ПК значение ключа [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SMS\Client\Client Components\Remote Control]
"Enabled"= 0 , а на нормальной 1!
Поменял на 1 и подключение заработало!

9
Флейм / Анекдоты о сисадминах
« : 30 Август 2012, 07:14:08 »
В этом топике предлагаю публиковать забавные истории из жизни сисадминов и анекдоты.


Страницы: [1]