Users/Groups Delete Disabled Users Delete Disabled Users Enum. Users Enum. Users Delete Users Add Users Enum. Groups Enum. Groups Change Groups Add Group Active Directory Enum. AD Groups Enum. AD Users List AD Users w/Prop Join AD Users NIC/IP Addresses Get IP Addresses Get IP Addresses Backup and Restore IP's Add IP's NIC Settings OS/Hardware OS Info Script OS Info Script All OS Info Script All OS System Count Hardware Info Script Hardware Info Script #1 Hardware Info Script #2 CPU Settings Enum. Printers Disk Quotas Disable Disk Quota Enable Disk Quota Disk Quota Query Disk Quota Update Shares/Files/Sessions Enum. Shares Enum. Shares Enum. All Shares Enum. Open Files Enum. Open Files Enum. Open Sessions Others Servers Uptime DNS Stuff Services Enum Services Enum Enum Processes Enum Hot Fixes MS FTP Server FTP VD Query FTP VD Delete FTP Site Enum. MS WWW Server WWW Site Enum. Enum Mime Types Enum Mime Types Application Pools Application Pool Enum Application Pool Enum Create Application Pool Create Application Pool Delete Application Pool Enum Apps in App Pool Enum App Pool Settings Move Apps Between App Pools Others IIS Component Probe IIS Status Enum SQL Dbases Backup SQL Dbases Orphan SQL Users List AD/WG My AD/WG Name My PC Name Enum AD Computers Contact Us Form SM Login Form Code Imail Login Form Code Enum. Domains in Imail Enum. Users in Imail CDONTS Component CDOSYS Component SA SMTP Component App Pool Monitor Ping and Tracert Hard Drive Monitoring Uptime Monitoring Desktop Lock CD Key Revealer MIK Restarter Site Map About the Site RSS Feeds I Read Custom Scripts Visitor #:     windowsadminscripts.com www     Script: Enumerate Active Directory Users Email Address To Send Sample Code To: @    This script will enumerate all users in a AD OU. It will display all users properties. '***************************************************************** ' Script Witten by Larry Heintz ' March 2007 www.windowsadminscripts.com ' This script will output AD Users properties. ' Pass a -c command when running script to have information saves ' to a comma delimted file. '***************************************************************** On Error Resume Next Dim logpath,strLDAP Dim strURL,strPO,strGroups,strStatus logPath = getLogPath() strLDAP = "ou=Users,DC=CHANGEME,DC=local" if wscript.Arguments.count = "0" then printlog = false elseif wscript.Arguments(0) = "-c" then printlog = True else wscript.echo "Script Usage: cscript listusers.vbs -c" wscript.echo "This will output information to a comma delimited file" wscript.echo "" wscript.echo "Script Usage: cscript listusers.vbs" wscript.echo "This will output information to screen" wscript.quit end if Set objUsers = GetObject("LDAP://" & strLDAP) objUsers.filter = Array("user") if printlog = True then writetoLog("First Name,Last Name,Display Name,Username,Office,Telephone,Email,URL,Street Address,P.O. Box,Locality,State,Postal/Zip Code,Country,Home Phone,Pager,Mobile,IP Phone,Information,Fax,Home Drive,Home Directory,TS Profile Path,Login Script,Profile Path,Account Status,Groups,Account Created,Last Modified") for each strUser in objUsers wscript.echo "First Name: " & strUser.givenName wscript.echo "Last Name: " & strUser.sn wscript.echo "Display Name: " & strUser.displayName wscript.echo "Username: " & strUser.userPrincipalName wscript.echo "Office: " & strUser.physicalDeliveryOfficeName wscript.echo "Telephone: " & strUser.telephoneNumber wscript.echo "Email: " & strUser.mail For Each strURL in strUser.url WScript.Echo "URL: " & strURL Next wscript.echo "Street Address: " & strUser.streetAddress For Each strPO in strUser.postOfficeBox WScript.echo "P.O. Box: " & strPO Next wscript.echo "Locality: " & strUser.l wscript.echo "State: " & strUser.st wscript.echo "Postal/Zip Code: " & strUser.postalCode wscript.echo "Country: " & strUser.c wscript.echo "Home Phone: " & strUser.homePhone wscript.echo "Pager: " & strUser.pager wscript.echo "Mobile: " & strUser.mobile wscript.echo "IP Phone: " & strUser.ipPhone wscript.echo "Information: " & strUser.info wscript.echo "Fax: " & strUser.facsimileTelephoneNumber wscript.echo "Home Drive: " & strUser.homeDrive wscript.echo "Home Directory: " & strUser.homeDirectory wscript.echo "TS Profile Path: " & strUser.TerminalServicesProfilePath wscript.echo "Login Script: " & strUser.scriptPath wscript.echo "Profile Path: " & strUser.ProfilePath If strUser.AccountDisabled = FALSE Then WScript.Echo "Account Status: Enabled" strStatus = "Enabled" Else WScript.Echo "Account Status: Disabled" strStatus = "Disabled" End If For Each objGroup In strUser.Groups strGroups = strGroups + right(objGroup.Name,len(objGroup.Name)-3) & ":" Next wscript.echo "Groups: " & left(strGroups,len(strGroups)-1) wscript.echo "Account Created: " & strUser.whenCreated wscript.echo "Account Modified: " & strUser.whenChanged wscript.echo "==================================" if printlog = True then writetoLog(strUser.givenName & "," & strUser.sn & "," & strUser.displayName & "," & strUser.userPrincipalName & "," & strUser.physicalDeliveryOfficeName & "," & strUser.telephoneNumber & "," & strUser.mail & "," & strURL & "," & strUser.streetAddress & "," & strPO & "," & strUser.l & "," & strUser.st & "," & strUser.postalCode & "," & strUser.c & "," & strUser.homePhone & "," & strUser.pager & "," & strUser.mobile & "," & strUser.ipPhone & "," & strUser.info & "," & strUser.facsimileTelephoneNumber & "," & strUser.homeDrive & "," & strUser.homeDirectory & "," & strUser.TerminalServicesProfilePath & "," & strUser.scriptPath & "," & strUser.ProfilePath & "," & strStatus & "," & left(strGroups,len(strGroups)-1) & "," & strUser.whenCreated & "," & strUser.whenChanged) strURL = "" strPO = "" strGroups = "" strStatus = "" next Function writetoLog(info) Dim FSO,objFSOwriteline Set FSO = CreateObject("Scripting.FileSystemObject") Set objFSOwriteline = FSO.OpenTextFile(logPath & "\users.txt", 8,True) objFSOwriteline.WriteLine(info) objFSOwriteline.close Set objFSOwriteline = nothing Set FSO = nothing End Function Function getLogPath() Dim temp,temp2 temp = split(wscript.scriptfullname,"\") for i = 0 to ubound(temp) - 1 temp2 = temp2 & temp(i) & "\" next getLogPath = temp2 End Function Copyright 2006 WindowsAdminScripts.com all rights reserved.