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 This script will enumerate user and groups on a Active Directory Domain. There a few different usages for the script. You can enumerate all users or all groups. You can also enumerate just the users in a certain group. All the information is written to a comma delimited text file, except the enumeration of groups. Script Usage: Enum Users: cscript users.vbs /ad:[AD Domain] /group:"[GroupName]" Enum All Groups: cscript users.vbs /ad:[AD Domain] /group:"list" Enum All Users: cscript users.vbs /ad:[AD Domain] /group:"all" Email Address To Send Sample Code To: @    '**************************************************** ' Script Witten by Larry Heintz ' April 2006 www.windowsadminscripts.com ' This script will enumerate user and groups on a ' Active Directory Domain. There a few different ' usages for the script. You can enumerate all users ' or all groups. You can also enumerate just the users ' in a certain group. ' All the information is written to a comma delimited ' text file, except the enumeration of groups. ' ' Script Usage: ' Enum Users: cscript users.vbs /ad:[AD Domain] /group:"[GroupName]" ' Enum All Groups: cscript users.vbs /ad:[AD Domain] /group:list ' Enum All Users: cscript users.vbs /ad:[AD Domain] /group:all '**************************************************** Dim args,ad,group,logPath Set args = Wscript.Arguments.Named ad = args.Item("ad") group = lcase(args.Item("group")) logPath = getLogPath() if wscript.arguments.count = 0 then wscript.echo "Script Usage:" wscript.echo "Enum Users: cscript users.vbs /ad:[AD Domain] /group:""[GroupName]""" wscript.echo "Enum All Groups: cscript users.vbs /ad:[AD Domain] /group:list" wscript.echo "Enum All Users: cscript users.vbs /ad:[AD Domain] /group:all" else if ad = "" then ad = getDomainName() else ad = ad end if if group = "" then group = "users" elseif group = lcase("all") then Call enumUsers(ad) wscript.quit elseif group = lcase("list") then Call enumGroups(ad) wscript.quit else group = group end if Call enumUsersGroup(ad,group) end if Function enumUsers(ad) On Error Resume Next Dim objusers,euser,count count = 0 wscript.echo "Starting script..." Set objusers = GetObject("WinNT://" & ad) if not (errorChecking (ad)) then objusers.filter = Array("user") For Each euser in objusers count = count + 1 Call writetoLog(euser.name,"N/A",ad) wscript.echo euser.name next end if Set objgroup = nothing wscript.echo "" wscript.echo "There are " & count & " Users on " & ucase(ad) & " AD Domain" wscript.echo "Ending script..." End Function Function enumUsersGroup(ad,group) On Error Resume Next Dim objgroup,member,count count = 0 wscript.echo "Starting script..." Set objgroup = GetObject("WinNT://" & ad & "/" & group & ",group") if not (errorChecking (ad)) then for each member in objgroup.members count = count + 1 Call writetoLog(member.name,group,ad) wscript.echo member.name & "," & group next end if Set objgroup = nothing wscript.echo "" wscript.echo "There are " & count & " Users in the " & ucase(group) & " group on " & ucase(ad) & " AD Domain" wscript.echo "Ending script..." End Function Function enumGroups(ad) On Error Resume Next Dim objgroup,egroup,count count = 0 wscript.echo "Starting script..." Set objgroup = GetObject("WinNT://" & ad) if not (errorChecking (ad)) then objgroup.filter = Array("group") For Each egroup in objgroup count = count + 1 wscript.echo egroup.name next end if Set objgroup = nothing wscript.echo "" wscript.echo "There are " & count & " Groups on " & ucase(ad) & " AD Domain" wscript.echo "Ending script..." End Function Function writetoLog(username,group,ad) Dim FSO,objFSOwriteline Set FSO = CreateObject("Scripting.FileSystemObject") Set objFSOwriteline = FSO.OpenTextFile(logPath & "\users_" & ad & ".txt", 8,True) objFSOwriteline.WriteLine(username & "," & group) 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 Function getComputer() Dim objNet Set objNet = WScript.CreateObject("WScript.Network") getComputer = objNet.ComputerName Set objNet = Nothing End Function Function getDomainName() Dim QConfigSet, qsetreturn Set QConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & getComputer() & "\root\cimv2").ExecQuery("SELECT * FROM Win32_ComputerSystem") For Each qsetreturn In QConfigSet getDomainName = qsetreturn.domain Next Set QConfigSet = Nothing End Function Function errorChecking(ad) errorChecking = False if err.number <> 0 then wscript.echo "Unable to connect to " & ucase(ad) & " AD Domain" err.Clear () errorChecking = True end if end Function Click HERE to download this script. Copyright 2006 WindowsAdminScripts.com all rights reserved.