Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
ADSI LDAP CDO
 | |
|
- 1129 OleInitiate Initiate Failed Using an LDAP Path
- Add Domain User to Local Group
- ADSI COM Example - Check User Logons
- ADSI COM Example - Delete a Computer
- ADSI COM Example - Delete a User
- ADSI COM Example - Get User Properties
- ADSI COM Example - List Connected Sessions
- ADSI COM Example - Upload a Photo
- ADSI Create Groups and Users Example
- ADSystemInfo Interface
- CDO Exchange 2000 Requirements
- CDO Collections and Global Address Book
- CDO Collections and Personal Address Book
- CDO Exchange Mailbox size
- CDO IMailBoxStore Interface
- Converting Active Directory Thumbnailphotos to File
- Create an AD User and an Exchange 2k Mailbox
- Create Exchange Distribution List Using CDO
- Create Mailbox - Exchange 2000 - CDO - ADSI
- Get a user certificate
- List Groups a User Belongs To
- List of AD Domains
- List User Paths on Default Domain
- Search Exchange-Outlook Infostores with CDO
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
List of AD Domains
Keywords: List of Active Directory ADSI AD Domains
Question:
I need to get a list of AD domains from the rootDSE to allow admins to select the domain they wish to view objects in. How can I accomplish this.Answer:
strFilter = "(NETBIOSName=*)" objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open("Active Directory Provider") objRootDSE = GetObject("LDAP://RootDSE") cNC = objRootDSE.Get("configurationNamingContext") STRING = "<LDAP://" : cNC : ">;" : strFilter : ";" : "dnsroot,ncname;subtree" objRecordSet = objConnection.Execute(STRING) While !objRecordSet.EOF ncname = objRecordSet.Fields("ncname").Value dnsroot = objRecordSet.Fields("dnsroot").Value dnsroot = dnsroot[ArrInfo(dnsroot, 1 )-1] Pause('dns root',dnsroot) objRecordSet.MoveNext EndWhile Exit
Article ID: W18053
Filename: List of AD Domains.txt
File Created: 2011:09:20:11:10:28
Last Updated: 2011:09:20:11:10:28