안녕하세요, Scripting Guy! - 포리스트에 있는 모든 도메인의 목록을 어떻게 구할 수 있습니까?

On Error Resume Next
Const ADS_SCOPE_SUBtrEE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBtrEE 
objCommand.CommandText = _
    "SELECT Name FROM 'GC://dc=fabrikam, dc=com' WHERE objectCategory='domain'"  
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    Wscript.Echo objRecordSet.Fields("Name").Value
    objRecordSet.MoveNext
Loop

Active Directory 검색 스크립트에 대한 약간의 경험이 있다면 이 샘플 코드는 매우 익숙할 것입니다. 그러나 Active Directory 검색 스크립트에 경험이 별로 없거나 전혀 없다면 Scripting Guys의 "Active Directory 파헤치기" 웹 캐스트(영문)를 살펴보는 것이 좋습니다. 또한 Active Directory 검색은 강력하고 유용한 도구이기 때문에 이 내용을 살펴볼 가치가 있습니다. 이 외에도 Scripting Guys 웹 캐스트는 언제나 볼 가치가 있습니다.

Active Directory에 바인딩하는 경우에만 주의하면 됩니다. 여기서는 글로벌 카탈로그를 검색하려는 것이므로 글로벌 카탈로그 공급자를 사용해야 합니다. 그러므로 바인딩 문자열에서 LDAP:을 지정하는 대신 다음과 같이 GC:을 지정합니다.

"SELECT Name FROM 'GC://dc=fabrikam, dc=com' WHERE objectCategory='domain'"

이 점만 제외하면 이 스크립트는 매우 간단하고 짧으며 포리스트에 있는 모든 도메인의 목록을 반환할 것입니다.