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

Суть вопроса. В 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