マイナーでもいいよね??

殆どVB系、でも .NET じゃない VB は知らないよん

目次

Blog 利用状況

書庫

日記カテゴリ

グループのメンバの取得と表示

ドメインのグループのメンバには、ユーザ、グループ、コンピュータ、外部のセキュリティプリンシパルがいます。

メンバは ADSI の IADsGroup.Members メソッドで取得します。このメソッドの戻り値の型は IADsMembers で、IEnumerable を継承してるので For Each で回せます。(ユーザの所属するグループを取得する ADSI の IADsUser.Groups メソッドと同じ)

ユーザやコンピュータのプライマリグループになっていると、そのユーザやコンピュータはメンバに含まれないので、別途取得する必要があります。

また、外部のセキュリティプリンシパルは名前が SID 表記になるので、読み取り可能な名前に変換します。

サンプルアプリではメンバの名前と所属パス(ファイルでいうフォルダパス)を取得します。

Windows アプリは文字列の配列から ListViewItem を作成して ListView に追加してます。

Web アプリは DataRow を作成して DataTable に追加し、GridView にバインドしてます。

 

まずは IADsGroup.Members メソッドで取得できるメンバの処理はこんな感じです。

※System.Security.Principal 名前空間をインポートします。

対象のグループを group(IADsGroup 型) とすると、

VB

For Each member As IADs In group.Members()

  Dim objectType = DirectCast([Enum].Parse(GetType(CategoryType), member.Class, True), CategoryType)

  If objectType = CategoryType.ForeignSecurityPrincipal Then  '外部のセキュリティプリンシパルの時

    Dim objectSid = DirectCast(member.Get("objectSid"), Byte())

    Dim sid = New SecurityIdentifier(objectSid, 0'SID

    Dim account = DirectCast(sid.Translate(GetType(NTAccount)), NTAccount'アカウントに変換

    文字列の配列の要素 0 または DataRow.Item(0) = account.Value  'NT AUTHORITY\○○ => ToString メソッドでも同じ

  Else    '外部のセキュリティプリンシパル以外の時

    文字列の配列の要素 0 または DataRow.Item(0) = member.Get("cn").ToString()

  End If

  文字列の配列の要素 1 または DataRow.Item(1) = DirectoryAccess.GetBelongPath(member)   '所属パスを取得

  ListView に項目を追加 または DataTable に行を追加

Next

 

C#

foreach (IADs member in group.Members())

  var objectType = (CategoryType)Enum.Parse(typeof(CategoryType), member.Class, true);

  if (objectType == CategoryType.ForeignSecurityPrincipal)  //外部のセキュリティプリンシパルの時

  {

    var objectSid = (byte[])member.Get("objectSid");

    var sid = new SecurityIdentifier(objectSid, 0);   //SID

    var account = (NTAccount)sid.Translate(typeof(NTAccount));  //アカウントに変換

    文字列の配列の要素 0 または DataRow[0] = account.Value;  //NT AUTHORITY\○○ => ToString メソッドでも同じ

  }

  else  //外部のセキュリティプリンシパル以外の時

  {

    文字列の配列の要素 0 または DataRow[0] = member.Get("cn").ToString();

  }

  文字列の配列の要素 1 または DataRow[1] = DirectoryAccess.GetBelongPath(member);  //所属パスを取得

  ListView に項目を追加 または DataTable に行を追加

}

 

プライマリグループのメンバはこんな感じで処理します。

DirectoryAccess.GroupTokens プロパティには、DirectoryAccess.GetGroups メソッドでグループの一覧を取得した際に、そのグループの PrimaryGroupToken の値/グループ名 の組のリストが格納されているので、対象のグループの名前から PrimaryGroupToken の値を導出。

この PrimaryGroupToken の値を引数として DirectoryAccess.GetPrimaryGroupMemberEntries メソッドで対象のグループのメンバの DirectoryEntry コレクションを取得。(ユーザまたはコンピュータの属性「primaryGroupID」の値 = PrimaryGroupToken の値)

この DirectoryEntry の Path プロパティの値/SchemaClassName プロパティの値から CategoryType にパースした値の組(メンバのLDAPパスとオブジェクトの種類の組)をコレクション(Dictionary)として作成。

※参照:DirectoryAccessクラスに追加したグループ関連のメソッド(VBC#

このコレクションを primaryMembers とすると、

VB

For Each member In primaryMembers   'プライマリグループになっているメンバ数分

  文字列の配列の要素 0 または DataRow.Item(0) = DirectoryAccess.PathToCn(member.Key)   '名前を取得

  文字列の配列の要素 1 または DataRow.Item(1) = DirectoryAccess.GetBelongPath(member.Key)   '所属パスを取得

  ListView に項目を追加 または DataTable に行を追加

Next

 

C#

foreach (var member in primaryMembers)  //プライマリグループになっているメンバ数分

{

  文字列の配列の要素 0 または DataRow[0] = DirectoryAccess.PathToCn(member.Key);  //名前を取得

  文字列の配列の要素 1 または DataRow[1] = DirectoryAccess.GetBelongPath(member.Key);  //所属パスを取得

  ListView に項目を追加 または DataTable に行を追加

}

 

画面はこちらです。(Windows アプリ、Web アプリとも)

 

それから DirectoryEntry.SchemaClassName = IADs.Class で、DirectoryEntry.Path = IADs.ADsPath です。

投稿日時 : 2013年8月29日 23:53

コメントを追加

# bracciale cartier viti imitazione prezzo 2018/03/16 6:10 deinwlqgefsaonyzgeijf@hotmal.com

Environs an example is not the predominating means of influencing another, it is the only means.

# This is a topic which is near to my heart... Best wishes! Where are your contact details though? 2019/04/04 12:51 This is a topic which is near to my heart... Best

This is a topic which is near to my heart... Best
wishes! Where are your contact details though?

# Thanks designed for sharing such a good idea, post is pleasant, thats why i have read it fully 2019/05/29 11:52 Thanks designed for sharing such a good idea, post

Thanks designed for sharing such a good idea, post is pleasant, thats why i have read it fully

# Wow that was unusual. I just wrote an extremely long comment but after I clicked submit my comment didn't show up. Grrrr... well I'm not writing all that over again. Anyways, just wanted to say great blog! 2019/08/19 18:27 Wow that was unusual. I just wrote an extremely lo

Wow that was unusual. I just wrote an extremely long comment but after I
clicked submit my comment didn't show up. Grrrr...
well I'm not writing all that over again. Anyways, just wanted to say
great blog!

# It's in fact very difficult in this active life to listen news on Television, thus I simply use the web for that reason, and get the latest news. 2019/09/09 3:12 It's in fact very difficult in this active life to

It's in fact very difficult in this active life to listen news on Television, thus I simply use the web for that reason, and get the latest news.

# kwfXPnpJbyDZLKO 2021/07/03 2:57 https://amzn.to/365xyVY

When I open up your Feed it seems to be a ton of junk, is the issue on my part?

# erectile performance 2021/07/06 15:15 is hydroxychloroquine safe

hydrocholorquine https://plaquenilx.com/# hydrochloraquine

# ivermectin usa price 2021/09/28 12:32 MarvinLic

stromectol south africa http://stromectolfive.online# stromectol ivermectin 3 mg

# ivermectin drug 2021/11/01 11:07 DelbertBup

ivermectin 1% cream generic https://stromectolivermectin19.com/# ivermectin 6
ivermectin cream canada cost

# ivermectin cost canada 2021/11/03 9:44 DelbertBup

ivermectin cost canada http://stromectolivermectin19.com/# ivermectin generic cream
ivermectin rx

# prednisone 5 mg brand name https://prednisonesnw.com/#
cost of prednisone 2021/11/13 9:35 Prednisone

prednisone 5 mg brand name https://prednisonesnw.com/#
cost of prednisone

# ksxlrffwunjb 2021/11/26 7:13 cegogqex

does hydroxychloroquine cause hair loss https://chloroquinehydro.com/

# generic pills 2021/12/05 12:53 JamesDat

http://genericpillson.online/# generic ed pills from canada dapoxetine

# bimatoprost buy 2021/12/11 21:11 Travislyday

http://baricitinibrx.com/ barinat

# careprost bimatoprost for sale 2021/12/13 11:43 Travislyday

https://stromectols.com/ stromectol 0.5 mg

# buy careprost in the usa free shipping 2021/12/15 2:10 Travislyday

https://baricitinibrx.com/ where to buy baricitinib

# bimatoprost generic 2021/12/15 20:36 Travislyday

https://plaquenils.com/ buy plaquenil 10mg

# stromectol tab 3mg 2021/12/16 17:34 Eliastib

aemfdk https://stromectolr.com ivermectin 18mg

# doxycycline 100mg price https://doxycyline1st.com/
order doxycycline 2022/02/26 9:14 Jusidkid

doxycycline 100mg price https://doxycyline1st.com/
order doxycycline

# clomid dosage http://clomidus.store/ 2022/04/12 12:29 Clomids

clomid dosage http://clomidus.store/

# canine prednisone 5mg no prescription http://prednisonefast.site/ 2022/04/16 22:24 Prednisone

canine prednisone 5mg no prescription http://prednisonefast.site/

# furosemide https://buylasix.icu/
lasix 100 mg tablet 2022/06/24 16:43 LasixRx

furosemide https://buylasix.icu/
lasix 100 mg tablet

# clomid 100 mg tablet https://clomidonline.icu/ 2022/07/08 13:09 Clomidj

clomid 100 mg tablet https://clomidonline.icu/

# ロレックス ヨットマスター 人気 2022/07/14 7:02 rkypms@msn.com

激安ブランド直営店
1.最も合理的な価格で商品を消費者に提供致します。
2.弊社の商品品数大目で、商品は安めです!商品現物写真。
3.数量制限無し、一個の注文も、OKです。
4.1個も1万個も問わず、誠心誠意対応します。
5.不良品の場合、弊社が無償で交換します。不明点、疑問点等があれば、ご遠慮なく言って下さい。
以上よろしくお願いいたします
休業日: 365天受付年中無休

# Pepcid https://allpharm.store/ 2022/07/21 21:38 AllPharm

Pepcid https://allpharm.store/

# cheap pet meds without vet prescription: https://medrxfast.com/ 2022/08/03 18:41 MedsRxFast

cheap pet meds without vet prescription: https://medrxfast.com/

# prednisone 40 mg rx https://deltasone.icu/
prednisone 4mg 2022/08/22 9:18 Prednisone

prednisone 40 mg rx https://deltasone.icu/
prednisone 4mg

# metformin 1 000mg https://glucophage.top/
buy metformin on line 2022/08/23 7:27 Niujsdkj

metformin 1 000mg https://glucophage.top/
buy metformin on line

# cheap erectile dysfunction https://ed-pills.xyz/
medications for ed 2022/09/17 19:30 EdPills

cheap erectile dysfunction https://ed-pills.xyz/
medications for ed

# doxycycline monohydrate https://buydoxycycline.icu/ 2022/10/08 11:40 Doxycycline

doxycycline monohydrate https://buydoxycycline.icu/

#  https://clomidforsale.site/ 2022/11/13 14:04 ForSale

https://clomidforsale.site/

# prednisone in canada https://prednisonepills.site/
purchase prednisone from india 2022/11/30 0:34 Prednisone

prednisone in canada https://prednisonepills.site/
purchase prednisone from india

# the best ed pill https://cheapestedpills.com/
otc ed pills 2022/12/10 16:13 CheapPills

the best ed pill https://cheapestedpills.com/
otc ed pills

# Test, just a test 2022/12/16 14:11 candipharm.com

canadian customs pills vitamins http://candipharm.com/#

# Величию государя способствуют необычные распоряжения внутри государства, подобные тем, которые приписываются мессеру Бернабо да Милано, иначе говоря, когда кто-либо совершает что-либо значительное в гражданской жизни, дурное или хорошее, то этого челове 2023/03/28 15:44 Величию государя способствуют необычные распоряже

Величию государя способствуют необычные распоряжения внутри государства, подобные тем, которые приписываются мессеру Бернабо да Милано, иначе говоря,
когда кто-либо совершает
что-либо значительное в гражданской
жизни, дурное или хорошее, то
этого человека полезно награждать
или карать таким образом, чтобы
событие это помнилось как можно дольше.
Но самое главное для государя ? постараться всеми своими поступками создать себе славу великого человека,
наделенного выдающимся умом. Как вернуть интерес к
жизни: 11 шагов

# Величию государя способствуют необычные распоряжения внутри государства, подобные тем, которые приписываются мессеру Бернабо да Милано, иначе говоря, когда кто-либо совершает что-либо значительное в гражданской жизни, дурное или хорошее, то этого челове 2023/03/28 15:44 Величию государя способствуют необычные распоряже

Величию государя способствуют необычные распоряжения внутри государства, подобные тем, которые приписываются мессеру Бернабо да Милано, иначе говоря,
когда кто-либо совершает
что-либо значительное в гражданской
жизни, дурное или хорошее, то
этого человека полезно награждать
или карать таким образом, чтобы
событие это помнилось как можно дольше.
Но самое главное для государя ? постараться всеми своими поступками создать себе славу великого человека,
наделенного выдающимся умом. Как вернуть интерес к
жизни: 11 шагов

# Величию государя способствуют необычные распоряжения внутри государства, подобные тем, которые приписываются мессеру Бернабо да Милано, иначе говоря, когда кто-либо совершает что-либо значительное в гражданской жизни, дурное или хорошее, то этого челове 2023/03/28 15:45 Величию государя способствуют необычные распоряже

Величию государя способствуют необычные распоряжения внутри государства, подобные тем, которые приписываются мессеру Бернабо да Милано, иначе говоря,
когда кто-либо совершает
что-либо значительное в гражданской
жизни, дурное или хорошее, то
этого человека полезно награждать
или карать таким образом, чтобы
событие это помнилось как можно дольше.
Но самое главное для государя ? постараться всеми своими поступками создать себе славу великого человека,
наделенного выдающимся умом. Как вернуть интерес к
жизни: 11 шагов

# Величию государя способствуют необычные распоряжения внутри государства, подобные тем, которые приписываются мессеру Бернабо да Милано, иначе говоря, когда кто-либо совершает что-либо значительное в гражданской жизни, дурное или хорошее, то этого челове 2023/03/28 15:45 Величию государя способствуют необычные распоряже

Величию государя способствуют необычные распоряжения внутри государства, подобные тем, которые приписываются мессеру Бернабо да Милано, иначе говоря,
когда кто-либо совершает
что-либо значительное в гражданской
жизни, дурное или хорошее, то
этого человека полезно награждать
или карать таким образом, чтобы
событие это помнилось как можно дольше.
Но самое главное для государя ? постараться всеми своими поступками создать себе славу великого человека,
наделенного выдающимся умом. Как вернуть интерес к
жизни: 11 шагов

# Нововводитель встречает врагов во всех тех, кому жилось хорошо при прежних порядках, и приобретает только очень робких сторонников в тех, чье положение должно при этих нововведениях улучшиться. 5 способов вернуть интерес к работе и увлечениям 2023/03/28 19:45 Нововводитель встречает врагов во всех тех, кому ж

Нововводитель встречает врагов во всех тех,
кому жилось хорошо при прежних порядках, и
приобретает только очень робких
сторонников в тех, чье положение
должно при этих нововведениях улучшиться.
5 способов вернуть интерес к работе и увлечениям

# Нововводитель встречает врагов во всех тех, кому жилось хорошо при прежних порядках, и приобретает только очень робких сторонников в тех, чье положение должно при этих нововведениях улучшиться. 5 способов вернуть интерес к работе и увлечениям 2023/03/28 19:45 Нововводитель встречает врагов во всех тех, кому ж

Нововводитель встречает врагов во всех тех,
кому жилось хорошо при прежних порядках, и
приобретает только очень робких
сторонников в тех, чье положение
должно при этих нововведениях улучшиться.
5 способов вернуть интерес к работе и увлечениям

# Нововводитель встречает врагов во всех тех, кому жилось хорошо при прежних порядках, и приобретает только очень робких сторонников в тех, чье положение должно при этих нововведениях улучшиться. 5 способов вернуть интерес к работе и увлечениям 2023/03/28 19:46 Нововводитель встречает врагов во всех тех, кому ж

Нововводитель встречает врагов во всех тех,
кому жилось хорошо при прежних порядках, и
приобретает только очень робких
сторонников в тех, чье положение
должно при этих нововведениях улучшиться.
5 способов вернуть интерес к работе и увлечениям

# Нововводитель встречает врагов во всех тех, кому жилось хорошо при прежних порядках, и приобретает только очень робких сторонников в тех, чье положение должно при этих нововведениях улучшиться. 5 способов вернуть интерес к работе и увлечениям 2023/03/28 19:46 Нововводитель встречает врагов во всех тех, кому ж

Нововводитель встречает врагов во всех тех,
кому жилось хорошо при прежних порядках, и
приобретает только очень робких
сторонников в тех, чье положение
должно при этих нововведениях улучшиться.
5 способов вернуть интерес к работе и увлечениям

# order prednisone 10mg - https://prednisonesale.pro/# 2023/04/22 4:38 Prednisone

order prednisone 10mg - https://prednisonesale.pro/#

# canada rx https://pillswithoutprescription.pro/# 2023/05/16 9:35 PillsPro

canada rx https://pillswithoutprescription.pro/#

# order prednisone online no prescription https://prednisonepills.pro/# - 50mg prednisone tablet 2023/06/04 21:23 Prednisone

order prednisone online no prescription https://prednisonepills.pro/# - 50mg prednisone tablet

# ï»¿paxlovid https://paxlovid.life/# paxlovid price 2023/07/25 20:33 Paxlovid

paxlovid https://paxlovid.life/# paxlovid price

# natural remedies for ed https://edpills.ink/# - cheap ed pills 2023/07/27 0:54 EdPills

natural remedies for ed https://edpills.ink/# - cheap ed pills

# juicydatessites 2023/08/09 13:21 WayneGurry

best sites dating: https://datingtopreview.com/# - online free dating service

# farmacie on line spedizione gratuita 2023/09/26 13:06 Archieonelf

https://farmaciabarata.pro/# farmacias online seguras en espaГ±a

# internet apotheke 2023/09/26 13:07 Williamreomo

http://onlineapotheke.tech/# versandapotheke versandkostenfrei
online apotheke deutschland

# п»їonline apotheke 2023/09/26 23:35 Williamreomo

https://onlineapotheke.tech/# п»?online apotheke
п»?online apotheke

# п»їonline apotheke 2023/09/27 1:59 Williamreomo

https://onlineapotheke.tech/# versandapotheke deutschland
internet apotheke

# online apotheke preisvergleich 2023/09/27 3:23 Williamreomo

http://onlineapotheke.tech/# versandapotheke versandkostenfrei
internet apotheke

# п»їonline apotheke 2023/09/27 5:34 Williamreomo

https://onlineapotheke.tech/# online apotheke gГ?nstig
versandapotheke

# gГјnstige online apotheke 2023/09/27 7:15 Williamreomo

http://onlineapotheke.tech/# versandapotheke deutschland
online apotheke deutschland

# п»їonline apotheke 2023/09/27 8:53 Williamreomo

http://onlineapotheke.tech/# online apotheke gГ?nstig
gГ?nstige online apotheke

# online apotheke gГјnstig 2023/09/27 11:46 Williamreomo

http://onlineapotheke.tech/# internet apotheke
online apotheke deutschland

# acquistare farmaci senza ricetta 2023/09/27 13:03 Archieonelf

http://farmaciaonline.men/# farmacia online piГ№ conveniente

# farmacie online sicure 2023/09/27 18:12 Rickeyrof

acheter sildenafil 100mg sans ordonnance

# buy doxycycline 100mg 2023/10/09 0:27 GaylordPah

Always attuned to global health needs. https://edpillsotc.store/# cheap ed pills

# canada mail order prescriptions 2023/10/16 20:29 Dannyhealm

Their online refill system is straightforward. https://mexicanpharmonline.com/# pharmacies in mexico that ship to usa

# canadian prescription prices 2023/10/16 21:34 Dannyhealm

They never compromise on quality. https://mexicanpharmonline.com/# mexican mail order pharmacies

# pharmacies online canada 2023/10/16 23:09 Dannyhealm

Actual trends of drug. https://mexicanpharmonline.shop/# mexican border pharmacies shipping to usa

# п»їpaxlovid 2023/10/24 7:16 LarryNef

http://stromectol.icu/# minocycline price

# buy paxlovid online https://paxlovid.bid/ Paxlovid buy online 2023/10/25 23:00 Paxlovid

buy paxlovid online https://paxlovid.bid/ Paxlovid buy online

# paxlovid india 2023/10/27 6:08 LarryNef

https://stromectol.icu/# minocycline 50 mg pills

# ヤフオク カルティエ時計 2023/11/07 17:25 vvxadus@live.jp

時計をご提供し、安心と信頼ができる老舗です。
ブランド激安セール通販専門店 消費者の皆様が;
安心してお買い物ができる「ブランドレプリカ品激安ショッピングサイト
▲信用第一、高品質 安心 最低価格保証
★歓迎光臨★送料無料(日本全国)
ヤフオク カルティエ時計 https://www.bagtojapan.com/product/3161.htm

# mexico drug stores pharmacies 2023/11/16 9:14 DavidFap

https://canadapharm.top/# canadian drug stores

# pills for ed 2023/11/21 16:13 WilliamApomb

https://tadalafil.trade/# tadalafil for sale from india

# canada pharmacies online prescriptions 2023/12/01 3:47 MichaelBum

http://claritin.icu/# ventolin 4 mg tablets

# migliori farmacie online 2023 https://farmaciait.pro/ acquistare farmaci senza ricetta 2023/12/04 10:15 Farmacia

migliori farmacie online 2023 https://farmaciait.pro/ acquistare farmaci senza ricetta

# best ed treatment pills https://edpills.tech/# treatments for ed 2023/12/23 8:13 EdPills

best ed treatment pills https://edpills.tech/# treatments for ed

# re: グループのメンバの取得と表示 2024/05/01 3:39 35.01hrxypb313wrtw0wg62n8tqdg@mail5u.pw

quo omnis quia occaecati fugit et perferendis cum blanditiis vel quis molestias totam deleniti et eum. reiciendis ut et sit quo eius neque eum.

タイトル
名前
URL
コメント