Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 186
  • Last Modified:

Need to view users in an OU within Active Directory.

Anyone know a quick and easy way to view all the users in a OU.  I tried using CSVDE but the txt file came out pretty garbled?

I tried finding step by step instructions, but nothing came up.

Thanks,
0
yoyoma788
Asked:
yoyoma788
  • 2
  • 2
1 Solution
 
JohnGerhardtCommented:
Sorry if this sounds obvious but why dont you use the Active Directory AD mmc snap in?
-Jaggie
0
 
yoyoma788Author Commented:
No I'm trying to give a list to our secretary.  So hopefully I could export it into a spreadsheet or something like that.

0
 
JohnGerhardtCommented:
Hi yoyoma788,

Below is a quick VB script to do what you want. It just echos out all of the users in the OU that you have selected in the varibales section at the top. If you want some help writing out to a file then give me a shout.

Just create a text file and name it ConnectToTheAD.vbs => copy and paste the script in there and edit the varibles. Run it from the command prompt with cscript.

Tell me how it goes....
-Jaggie
'Constants
Const ADS_SCOPE_SUBTREE = 2
Const adUseClient = 3
 
 
'Variables Here
OU = "YOUR OU HERE" 'Enter your OU here
strDNC = "DC=YOUR DOMAIN,DC=HERE" ' Enter your AD root here
FindWhat = "user" ' Change to either user or computer to find either users or computer in the AD
'End Variables
 
	Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand = CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
 
    Set objCommand.ActiveConnection = objConnection
	
	Set objStdOut = WScript.StdOut
 
'=================================================Main Routine Start ===============================================
 
Call QueryTheAD 'Get List from the AD
 
'=================================================Main Routine End ===============================================
 
Sub QueryTheAD
  objCommand.CommandText = "Select Name, Location from 'LDAP://" &  strDNC & "' " & "Where objectClass='"& FindWhat & "'"
  objCommand.Properties("Page Size") = 1000
  objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
  objCommand.Properties("Sort on") = "Name"
  Set objRecordSet = objCommand.Execute
 
    Do Until objRecordSet.EOF
    	MachineCount = MachineCount + 1 
    	strComputer = objRecordSet.Fields("Name").Value
    		WScript.Echo strComputer
    	objRecordSet.MoveNext
    Loop	  	
End Sub

Open in new window

0
 
yoyoma788Author Commented:
I'll give it a shot.  Thanks for the post.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now