Database Search

TechHome

• !!DISCLAIMER!!
• AD Syncronization
• Add Computer to an Active Directory Group
• ADSI COM Find Primary Group
• ADSI COM List Groups
• ADSI Create Group
• ADSI Extender Security Descriptor Sample
• ADSI Get OU Properties
• ADSI Get Subgroups of Group
• ADSI List Group Names and Email Property
• ADSI Primer
• ADSI Query String Creator
• Create a Mail Enabled Contact
• Create Enable and Disable User Account
• Create Exchange 2000 User Account
• Create IIS Virtual Directory
• Create User in AD with CSV file
• Delete Computer Account
• Determine if a WS and a server are in the same AD Site
• Determine LastLogin
• DsGetDcName
• Figure out User Account Attributes
• Get a list of users and write out to CSV file
• Get all Domain printers
• Get Date User Account was Created
• Get Nested User Groups
• Get TCP IP Configuration From Each Domain Controller
• Get User Information From Another Domain
• Getting E-Mail Address for all users in OU
• Group Exist
• Hierarchically Adding Users to Groups
• JoinDomain
• List ADSI Paths of Groups and their Members
• List All Servers in the Current Domain
• List Users
• OLE COM dsGetMemGrps Alternative
• Recursive DsGetMemGrp Example
• REmove User from Printer Object
• Set Home Directory for User
• Translate NT Name to LDAP Path
• Traverse OU and Generate a Report of Objects
• Useful ADSI Site server functions

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Getting E-Mail Address for all users in OU

; Search for all users with an email address.
sAdsiPath = "LDAP://shamrock/dc=jclass,dc=org"
sFilter   = " (&(&(objectClass=user)(objectCategory=person))(mail=*))"
lUsers    = dsFindPath(sAdsiPath,  sFilter)

; Report
nCount = ItemCount(lUsers, @TAB)
For i = 1 To nCount

   ; Get the samAccountName and Email address.
   sPath = ItemExtract( i, lUsers, @TAB )
   sUserName  = dsGetProperty(sPath, "samAccountName")
   sEmailAddr = dsGetProperty(sPath, "mail")

   sResult = StrCat("User Name: ", sUserName, @CRLF, "Email Address: ", sEmailAddr, @CRLF)
   Message(sPath, sResult)
Next

Article ID:   W16814

File Created: 2007:07:03:14:26:22

Last Updated: 2007:07:03:14:26:22