ADSI를 사용하여 Exchange 사이트 및 서버 열거 방법 연결됨

기술 자료 번역 기술 자료 번역
기술 자료: 200726 - 이 문서가 적용되는 제품 보기.
모두 확대 | 모두 축소

이 페이지에서

요약

다음 샘플 코드에서는 Visual Basic에서 ADSI LDAP 공급자는 개체를 사용하여 모든 연결된 사이트 및 Exchange 조직의 서버를 열거할 보여 줍니다. 이 코드를 사용하려면 연결된 사이트에서 Exchange 5.5 서버가 하나 있어야 합니다. 또한 시스템에 설치된 최신 ADSI 클라이언트 런타임 버전 2.0 또는 더 나은 있어야 합니다.

추가 정보

문제를 재현하기 위한 단계

  1. 표준 EXE Visual Basic 프로젝트 를 엽니다.
  2. 모듈 추가.
  3. Active 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 정보는 후 1997년 10월 MSDN 플랫폼 SDK 섹션에 포함되어 있습니다. ADSI 다음 웹 사이트에서 사용할 수도 있습니다: http://msdn.microsoft.com/en-us/library/aa772170.aspx

속성

기술 자료: 200726 - 마지막 검토: 2009년 3월 3일 화요일 - 수정: 4.0
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Platform Software Development Kit-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
키워드:?
kbmt kbdswmanage2003swept kbapi kbhowto kbmsg KB200726 KbMtko
기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

피드백 보내기

 

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