方法を列挙するには ADSI でサイトとサーバーを Exchange で接続します。

重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。

200726
この資料は、アーカイブされました。これは "現状のまま" で提供され、更新されることはありません。
概要
Visual Basic で次のサンプル コードは、ADSI LDAP プロバイダーのオブジェクトを使用して接続されているサイトと Exchange 組織内のサーバーすべてを列挙するを示しています。 このコードを使用するには少なくとも 1 つの Exchange 5. 5 サーバーに接続されているサイトでが必要です。 最新 ADSI クライアント ランタイム (バージョン 2. 0 またはより優れた) システムにインストールされていることもあります。
詳細

問題の再現手順

  1. 新しい 標準 EXE Visual Basic プロジェクト を開きます。
  2. モジュール を追加します。
  3. アクティブな DS タイプ ライブラリ への参照を作成します。
  4. Sub Main スタートアップ オブジェクト を設定します。
  5. コピーし、 モジュール に次のサンプル コードを貼り付けます。
' Sample to enumerate sites and servers in an Exchange Organization' using ADSi objects   Option Explicit   Sub Main()   Dim objOrg As IADsContainer   Dim objOU As IADsContainer   Dim objConfig As IADsContainer   Dim objServers As IADsContainer   Dim obj As IADs   ' Replace "Server" with the name of any Exchange 5.5 server in one of   ' the connected sites you want to enumerate.   Set objOrg = GetObject("LDAP://Server")   Debug.Print objOrg.Name   ' filter passes organizationalUnit and any classes derived from it   ' such as View-Root   objOrg.Filter = Array("organizationalUnit")   For Each objOU In objOrg    With objOU    ' Test that the most derived class is organizationalUnit    If objOU.Class = "organizationalUnit" Then        Debug.Print "Site: " + .Name        objOU.Filter = Array("Container")        For Each objConfig In objOU            With objConfig            ' Test for cn=Configuration (root container)            If .Name = "cn=Configuration" Then                ' In case configuration might have non-containers                .Filter = Array("Container")                For Each objServers In objConfig                    With objServers                    ' Test for cn=Servers inside of Configuration container                    If .Name = "cn=Servers" Then                        .Filter = Array("Computer")                        For Each obj In objServers                            With obj                            Debug.Print Chr(9) & "Server: " & .Name                            Debug.Print Chr(9) & "ADsPath: "; .ADsPath                            End With                        Next obj                    End If                    End With                Next objServers            End If            End With        Next objConfig    End If    End With   Next objOU   Debug.Print "End Enumeration"   End Sub				
関連情報
ADSI 2. 0 のバージョンについて 『 MSDN のプラットフォーム SDK セクション 1997 年 10 月日後ください。 ADSI は、次の Web サイトも: http://msdn.microsoft.com/en-us/library/aa772170.aspx

警告: この資料は、自動翻訳されています

プロパティ

文書番号:200726 - 最終更新日: 01/05/2015 08:44:13 - リビジョン: 4.0

  • Microsoft Platform SDK January 2000 Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Exchange Server 2003 Software Development Kit
  • Microsoft Exchange Server 5.5 Standard Edition
  • Microsoft Active Directory Service Interfaces 2.0
  • kbnosurvey kbarchive kbhowto kbapi kbmsg kbdswmanage2003swept kbmt KB200726 KbMtja
フィードバック