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.

List Users

 Keywords: List Enumerate User Accounts Users  ADSI Active Directory AD 

; Get a list of users
; Write out user properties to a .csv file
AddExtender("wwads44i.dll")
ServerDn=dsGetProperty("LDAP://rootDSE", "serverName")
ServerName=ItemExtract(1, ServerDn, ",")
ServerName=ItemExtract(2, ServerName, "=")
ServerDn=dsGetProperty("LDAP://rootDSE", "defaultNamingContext")
ServerPath="LDAP://" : ServerName : "/" : ServerDN

handle = FileOpen("c:\ADSI.csv","WRITE")

users_in_OU = dsFindPath( ServerPath, "(&(objectcategory=Person)(objectclass=user))" )
count = ItemCount( users_in_OU, @TAB )
For xx = 1 To count
   ; User container object's path
   UserPath = ItemExtract( xx, users_in_OU, @TAB )
   ; Get properties.
   sDisplayName = dsGetProperty( UserPath, "cn" )
   sFirstName = dsGetProperty( UserPath, "givenName" )
   sLastName = dsGetProperty( UserPath, "sn" )
   sAlias = dsGetProperty( UserPath, "uid" )
   sSMTPAddr = dsGetProperty( UserPath, "mail" )
   FileWrite( handle, sDisplayName : "," : sFirstName : "," :sLastName : "," : sAlias : "," : sSMTPAddr )
Next

FileClose(handle)
Run("c:\ADSI.csv", ""))

Exit

Article ID:   W17551

Filename:   List Users.txt

File Created: 2008:07:17:08:44:22

Last Updated: 2008:07:17:08:44:22