Войти

Показать полную графическую версию : VBScript для проверки является ли юзер членом одной из групп в OU


denyme@vk
16-07-2014, 15:51
Суть вопроса. В 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




© OSzone.net 2001-2012