VBS/WSH/JS - VBScript для проверки является ли юзер членом одной из групп в OU

VBS/WSH/JS - VBScript для проверки является ли юзер членом одной из групп в OU

Новый участник

Сообщения: 1
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать

Суть вопроса. В AD есть OU где лежат группы, для каждого юзера, если он является админом, создается персональная группа и в ней хранятся админовская учетка и юзерская.
При входе скрипт должен отрабатывать следующий алгоритм:
1. Получает все группы в которых он включен. (администраторская учетная запись)
2. Скрипт смотрит, является ли он членом одной из групп в OU (OU статичная всегда, меняется только CN групп)
3. Если он находит группу он берет из нее значение атрибута wWWhomepage(оно 100% есть, в другом скрипте сделал) и сует в атрибуты учетной записи (администраторской) homeDirectory

Вот собственно что мне удалось сделать, а точнее мало...я просто получил все группы в которых есть учетка:

Код:

Option Explicit

Dim wsxNetwork
Set wsxNetwork = CreateObject("WScript.Network")

Dim sDomain, sUser
sDomain = wsxNetwork.UserDomain
sUser = wsxNetwork.UserName

Dim objUser
Set objUser = GetObject("WinNT://" & sDomain & "/" &sUser)

Dim sGroupNames

Dim objGroup
For Each objGroup In objUser.Groups
    sGroupNames = sGroupNames & objGroup.Name & vbCrLf

Next

MsgBox sGroupNames

Отправлено: 15:51, 16-07-2014