none
登録ユーザーのアカウントなどの列挙方法について RRS feed

  • 質問

  • いつもお世話様です。

    PCの登録ユーザーのアカウントなどを列挙するために次のようなテストコード

    を書いてみましたが、以前はこれで列挙されていたようだったのですが、

    先日やってみたところ何も現れませんでした。DirectoryEntry の取得方法

    その子エントリーの取得方法などでどこかが不正なのでしょうか?

    よろしければご指導を賜りたく、何卒よろしくお願いします。

     

    Imports System.DirectoryServices

            Dim DE1 as DirectoryEntry = New DirectoryEntry("WinNT://MyPC,computer")

            Try
                Dim ChildrenCount As Integer
                ChildrenCount = DE1.Children.SchemaFilter.Count
                If ChildrenCount > 0 Then
                    For Each child As DirectoryEntry In DE1.Children
                        Debug.Print("SchemaClassName:" + child.SchemaClassName + "  Name:" + child.Name)
                    Next child
                Else
                    Debug.Print("(No Children)")
                End If
            Catch ex As Exception
                Debug.Print(ex.Message)
            End Try

    2008年2月11日 5:30

回答

すべての返信

  • アクティブディレクトリ関係は詳しくないので参考になりそうなものの紹介のみです

     

    <参考>

    アクティブディレクトリのユーザーリストを取得する方法

    2008年2月13日 12:19
  • C.Johnさんこんにちは、参考サイトのご教示大変ありがとうございました。

    どうもこの中にある[参照]の設定がされていなかったためのようでした。

    それではまたよろしくお願いします!ありがとうございました!

     

    ------

    修正追記します、すみません。もう一度見たところ、これは参照設定されていました。

    ご教示頂いたサイトのサンプルではChilldのEntryが出てくるので早合点しました(汗;

    されていなければコード上でエラーになるはずでした。どうも原因はChildrenCount

    を見ていたせいで、これを行うとどういうわけか常にゼロになるようでした。

     

    ご指導ありがとうございました。またよろしくお願いします。

    ------

     

    2008年2月14日 2:50