Список всех групп пользователя

[Defence Профиль]

Проблема в том, как получить группы в которые пользователь входит неявно. Допустим есть группа Apps, в нее входит группа SomeApp, в нее входит пользователь. Нужно чтобы выдавались обе группы.
Скрипт, который выводит явные группы ниже, как его нужно изменить?

On Error Resume Next
set wshNetwork = WScript.CreateObject( "WScript.Network")
Set wshShell = WScript.CreateObject("WScript.Shell")

do while wshNetwork.username = ""
WScript.Sleep 250
Loop

user = wshNetwork.username
domain = wshNetwork.userdomain

WScript.echo "Logging on " & ucase(domain) & "\" & user & "..."
adspath = "WinNT://" & domain & "/" & user
set adsobj = GetObject(adspath)
Set ListGroup = "Список групп пользователя:" & VbCrLf
For Each prop In adsobj.groups
ListGroup = ListGroup & prop.name & " " & prop.description & VbCrLf
Next
WScript.echo ListGroup

[Defence Профиль]

Понятно...

Нечаянно сегодня нашел пример. А раз есть пример остальное сделаю. Возможно кому-то поможет, вот линк на сайт http://www.rlmueller.net/ . Может кто для себя найдет полезное. Там примеры удобно сгрупированы.

[niarbrnd Профиль]

Выложи плиз пример сюда по своему же вопросу, у меня сайт как-то криво открывается