|
Компьютерный форум OSzone.net » Серверные продукты Microsoft » Windows Server 2008/2008 R2 » 2008 R2 - [решено] objUser.memberOf не дает список групп |
|
2008 R2 - [решено] objUser.memberOf не дает список групп
|
Пользователь Сообщения: 50 |
Есть скрипт:
var WshShell = WScript.CreateObject ("WScript.Shell"); objSysInfo = WScript.CreateObject("ADSystemInfo"); WScript.Echo (objSysInfo.UserName); objUser = GetObject('LDAP://' + objSysInfo.UserName); WScript.Echo ("Logon script: " + objUser.scriptPath); WScript.Echo ("User logon name: " + objUser.userPrincipalName); arrGroup = objUser.GetEx("memberOf"); for (i=0; i<arrGroup.length; i++) {Wscript.Echo (arrGroup.item(i)); objGroup = GetObject('LDAP://' + arrGroup.item(i)); Wscript.Echo(objGroup.cn); } |
|
Отправлено: 19:42, 09-06-2014 |
Пользователь Сообщения: 50
|
Профиль | Отправить PM | Цитировать Сам же и решил, точнее нашел решение:
http://sirlagz.net/2011/01/04/query-...ive-directory/ Правильно скрипт должен выглядеть так: var WshShell = WScript.CreateObject ("WScript.Shell"); objSysInfo = WScript.CreateObject("ADSystemInfo"); objUser = GetObject('LDAP://' + objSysInfo.UserName); var arrGroup = VBArray(objUser.GetEx("memberOf")).toArray(); for (i=0; i<arrGroup.length; i++) {objGroup = GetObject('LDAP://' + arrGroup[i]); WScript.Echo(objGroup.cn); } |
Отправлено: 20:43, 09-06-2014 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Win32 API - Список пользователей в группе безопасности или список групп для пользователя. | bmt | Программирование и базы данных | 0 | 22-05-2014 17:41 | |
PowerShell - Список всех групп АД и пользователей в них | Авиация | Скриптовые языки администрирования Windows | 2 | 11-05-2014 10:51 | |
Интерфейс - [решено] Не дает переименовать/переместить папку/файл + не работают ножницы | .ExeRun | Microsoft Windows 7 | 11 | 17-08-2011 14:16 | |
Не получается вычистить трояны Beagle, Bagle не дает работать антивирусам | bankomat | Лечение систем от вредоносных программ | 25 | 20-01-2010 18:04 |
|