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

'*******************************************'
'                                           '
' Скрипт предназначен для восстановления    '
' группы доменных администраторов в группе  '
' локальных администраторов                 '
'                                           '
' (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

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