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

文書翻訳 文書翻訳
文書番号: 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 - 最終更新日: 2009年3月3日 - リビジョン: 4.0
この資料は以下の製品について記述したものです。
  • Microsoft Platform SDK January 2000 Edition
  • Microsoft Visual Basic 5.0 Learning Edition?を以下の環境でお使いの場合
    • Microsoft Windows NT 4.0
    • Microsoft Windows 95
  • Microsoft Visual Basic 5.0 Professional Edition?を以下の環境でお使いの場合
    • Microsoft Windows NT 4.0
    • Microsoft Windows 95
  • Microsoft Visual Basic 5.0 Enterprise Edition?を以下の環境でお使いの場合
    • Microsoft Windows NT 4.0
    • Microsoft Windows 95
  • Microsoft Exchange Server 2003 Software Development Kit?を以下の環境でお使いの場合
    • Microsoft Windows NT 4.0
    • Microsoft Windows 95
  • Microsoft Exchange Server 5.5 Standard Edition
  • Microsoft Active Directory Service Interfaces 2.0
キーワード:?
kbhowto kbapi kbmsg kbdswmanage2003swept kbmt KB200726 KbMtja
機械翻訳の免責
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB:200726
Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。

フィードバック

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com