На главную :: DiamondSteel-ArtНаписать письмо...Карта сайтаПоиск по сайту

На главную :: DiamondSteel-Art

Прежде чем загрузить файл на сервер, сосчитай до ста.
Прежде чем стереть его - до тысячи.

Полезное

   Назад 

Восстановление группы доменных администраторов в группе локальных администраторов



Бывают ситуации, когда необходимо дать пользователю права локального администратора.

Всё бы ничего, но иногда попадаются пользователи считающие своим долгом обезопасить рабочую станцию, на которой он работает от системных администраторов.

Делают они это просто - удаляют группу Domain Admins из группы локальных администраторов.

Вот с этим мы и будем бороться.


'*******************************************'
'                                           '
' Скрипт предназначен для восстановления    '
' группы доменных администраторов в группе  '
' локальных администраторов                 '
'                                           '
' (c) DiamondSteel                          '
'                                           '
'*******************************************'

' Предполагается, что скрипт запускается из доменных политик при загрузке.
CompName = "."
DomainName = "domain.lan."        ' Полное имя домена.
DomainGroupName = "Domain Admins" ' Группа доменных администраторов

' Очень часто в организации установленны как англоязычные так и
' локализованные клиенские операционные системы.
' Находим нужную группу локальных администраторов

Set Container = GetObject("WinNT://" & CompName)
Container.Filter = Array("Group")

For Each Group In Container
    if(Group.Name="Администраторы")then
        LocalGroupName = "Администраторы"
    end if

    if(Group.Name="Administrators")then
        LocalGroupName = "Administrators"
    end if
Next

' Делаем своё грязное дело.

On Error Resume Next
Set oGroupLocal = GetObject("WinNT://" & CompName & "/" & LocalGroupName & ",group")
Set oGroupDomain = GetObject("WinNT://" & DomainName & "/" & DomainGroupName & ",group")

oGroupLocal.Add(oGroupDomain.AdsPath)
oGroupLocal.SetInfo

Set oGroupLocal = Nothing
Set oGroupDomain = Nothing

'*******************************************'


Любую фотографию представленную на этом сайте можно купить, как в качестве готового отпечатка, так и в электронном виде, для последующей переработки. Просто свяжитесь со мной.

Система Orphus Яндекс.Метрика

  © DiamondSteel-Art  [ pgt: 0.002 sec. ]      Использование материалов сайта разрешено только с письменного разрешения автора