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
При входе скрипт должен отрабатывать следующий алгоритм:
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