ActiveDsからメールアドレスを取得する方法

解決


とも  2010-02-09 06:45:17  No: 146737

ADに設定されているメールアドレスの情報を取得しようと四苦八苦しています。
以下のようにしてユーザーは取得できるのですが、IADsUser にあるメールアドレスの内容を表示されません。
使い方が間違っているのでしょうか?

ActiveDs.IADsUser = GetObject("WinNT://ドメイン/ユーザID,user")


オショウ  2010-02-09 10:26:59  No: 146738

多分、これじゃ〜ないかな?

http://garfie.weblogs.jp/life_of_dev/2008/12/activedirecto-1.html

以上。


aetos  2010-02-09 18:58:33  No: 146739

> IADsUser にあるメールアドレスの内容を表示されません。

とはどういう状態?

IADsUser::get_EmailAddress では取得できませんか?


aetos  2010-02-09 18:59:04  No: 146740

間違えた…ここ VB 掲示板だった。
先の投稿は忘れてください。


魔界の仮面弁士  2010-02-09 20:27:58  No: 146741

> ActiveDs.IADsUser = GetObject("WinNT://ドメイン/ユーザID,user")

WinNTプロバイダでは、ActiveDs.IADsUser.EmailAddress や
ActiveDs.IADsUser.Get("EMailAddress") は利用できないようです。
http://blogs.wankuma.com/chuki/archive/2008/04/10/132523.aspx

代わりに、LDAP の方を使ってみてください。

GetObject("LDAP://CN=Osawa, CN=Users, DC=example, DC=co, DC=jp")
GetObject("LDAP://CN=テスト ユーザー,CN=Users,DC=Sample,DC=local")

あるいは、

Dim ds As New DataSet
Dim adp As New OleDb.OleDbDataAdapter( _
    "<LDAP://CN=Users,DC=ドメイン,DC=local>;(objectClass=person);cn,mail,SAMAccountName;subtree", _
    "Provider=ADSDSOObject")
adp.Fill(ds, "Table1")

とか。
http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/sept05/hey0929.mspx

ただし .NET から扱う場合には、System.DirectoryServices 名前空間を
利用した方がよいかと思います。

Using de As New DirectoryEntry("LDAP://CN=Users,DC=ドメイン,DC=local")
    Using ds As New DirectorySearcher(de)
        ds.Filter = "(&(objectClass=person)samAccountName=アカウント名)"
        Dim ret As SearchResult = ds.FindOne()
        MsgBox(ret.GetDirectoryEntry().Properties("mail").Value)
    End Using
End Using

# LDAP:// や Filter の部分は適宜書き換えてください。


とも  2010-02-09 20:59:11  No: 146742

オショウさん、aetosさん、魔界の仮面弁士さんありがとうございます!
解決しました!!
いろいろやり方があるんですね。
勉強します。

今回はSystem.DirectoryServices を使って解決しました。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加