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 OU's on a Active Directory Domain Controller This script will connect to the AD DC and enumerate all OU's (Organization Units) and the users and the users description field in the OU. It will also log' the OU's and all users in the OU. Script Usage: cscript enumou.vbs /dc:"[AD Domain Conroller]" Email Address To Send Sample Code To: @    '**************************************************** ' Script Witten by Larry Heintz ' October 2006 www.windowsadminscripts.com ' This script will connect to the AD DC and enumerate ' all OU's (Organization Units) and the users and the ' users description field in the OU. It will also log ' the OU's and all users in the OU. '**************************************************** Dim logPath,args,adstring Set args = Wscript.Arguments.Named adstring = trim(args.item("DC")) logPath = getLogPath() if wscript.arguments.count = 0 then Call usage() wscript.quit elseif adstring = "" then Call usage() wscript.quit elseif args.exists("DC") then Call enumGroups(getLDAP(adstring)) else Call usage() wscript.quit end if Function getLDAP(adstring) Dim temp,temp2 temp = split(adstring,".") for i = 0 to ubound(temp) temp2 = temp2 & "DC=" & temp(i) & "," next getLDAP = left(temp2,(len(temp2)-1)) End Function Function enumGroups(getLDAP) Dim objgroup,egroup,count count = 0 wscript.echo "Starting script..." Set objgroup = GetObject("LDAP://" & getLDAP) getOUs (objgroup) Set objgroup = nothing wscript.echo "" wscript.echo "Ending script..." End Function Sub getOUs (Adomain) For each ou in Adomain If ou.Class = "organizationalUnit" Then writetoOUList(ou.distinguishedName) enumUsersGroup(ou.distinguishedName) 'wscript.echo ou.distinguishedName 'Uncomment start of line if you to see text getOUs (ou) End If Next End Sub Function enumUsersGroup(ou) Dim objgroup,member,count Dim temp,temp1 Set objgroup = GetObject("LDAP://" & ou) temp = split(ou,",") temp1 = split(temp(0),"=") objgroup.Filter = Array("User") For Each objItem in objgroup 'Wscript.Echo objItem.CN & "," & objItem.Description & "," & temp1(1) 'Uncomment start of line if you to see text Call writetoLog(objItem.CN,objItem.Description,temp1(1)) Next Set objgroup = nothing End Function Function writetoOUList(ou) Dim FSO,objFSOwriteline Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FileExists(logPath & "\OU_List.txt") = True Then Set objFSOwriteline = FSO.OpenTextFile(logPath & "\OU_List.txt", 8,True) objFSOwriteline.WriteLine(ou) objFSOwriteline.close Else Set objFSOwriteline = FSO.CreateTextFile(logPath & "\OU_List.txt") objFSOwriteline.WriteLine(ou) objFSOwriteline.close End If Set objFSOwriteline = nothing Set FSO = nothing End Function Function writetoLog(username,description,group) Dim FSO,objFSOwriteline Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FileExists(logPath & "\" & group & ".txt") = True Then Set objFSOwriteline = FSO.OpenTextFile(logPath & "\" & group & ".txt", 8,True) objFSOwriteline.WriteLine(username & "," & description) objFSOwriteline.close Else Set objFSOwriteline = FSO.CreateTextFile(logPath & "\" & group & ".txt") objFSOwriteline.WriteLine(username & "," & description) objFSOwriteline.close End If 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 usage() wscript.echo "Script Usage:cscript enumou.vbs /dc:""[AD Domain Conroller]""" End Function Click HERE to download this script. Copyright 2006 WindowsAdminScripts.com all rights reserved.