Solved

Script to export computer accounts from an OU and all child OUs

Posted on 2007-04-05
14
1,840 Views
Last Modified: 2009-12-16
I'm looking for a VB script that will export the computer accounts in an OU and child OU's to a txt file.
It needs to be able to drill down to the child OU's.

Can anyone help?

Thanks!
0
Comment
Question by:trarthur
  • 7
  • 3
  • 3
  • +1
14 Comments
 
LVL 10

Expert Comment

by:mcrossland
Comment Utility
Do you want it to pull email addresses also?
0
 
LVL 30

Assisted Solution

by:LauraEHunterMVP
LauraEHunterMVP earned 125 total points
Comment Utility
Try the adfind utility, a free command-line utility from www.joeware.net

Sample syntax to export all computer objects in an entire domain would look like this:

adfind -default -f (objectcategory=computer) dn
0
 
LVL 5

Author Comment

by:trarthur
Comment Utility
@mcrossland - I don''t need email addresses.  I just need the computer account names.

@LauraEHunterMVP - Thanks.  I'll check it out.  I forgot about joeware.  Do you happen to know if you can configure adfind to start at a specific OU and recurse through its child OU's?
0
 
LVL 30

Expert Comment

by:LauraEHunterMVP
Comment Utility
By default any search will recurse down through its starting point.

The -default switch will start at the domain root of the currently-logged-on domain.  If you want to start searching at the "BLAH" OU, add the -rb switch for "Relative base."

adfind -default -rb ou=BLAH ... and the rest of the command is the same.
0
 
LVL 67

Expert Comment

by:sirbounty
Comment Utility
Here's a vbscript I had for doing that for users...I've attempted to modify it for computers...should report back from the top domain down through all OU levels...



'EnumOUs.vbs
Dim objFSO, strFileName, RptFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFileName="C:\Output.csv"
Set RptFile = objFSODim objFSO, strFileName, RptFile

Set objFSO = CreateObject("Scripting.FileSystemObject")
strFileName="C:\Output.csv"
Set RptFile = objFSO.CreateTextFile(strFileName)

Dim objRoot, objDomain
Set objRoot = GetObject("LDAP://RootDSE")
Set objDomain = GetObject("LDAP://" & objRoot.Get("defaultNamingContext"))

EnumOUs(objDomain.ADsPath)
RptFile.Close
Set RptFile=Nothing
Set objUsers=Nothing
Set objOUs=Nothing
Set objDomain=Nothing
Set objRoot=Nothing
Set objFSO=Nothing
wscript.quit

Sub EnumOUs(adspath)
    Dim objOUs, OU
    Set objOUs = GetObject(adspath)
    objOUs.Filter = Array("OrganizationalUnit")
    Call EnumPCs(objOUs.ADsPath)
    For Each OU In objOUs
        RptFile.WriteLine Replace(Ucase(OU.Name), "OU=", "")
        Call EnumOUs(OU.ADsPath)
    Next
End Sub

Sub EnumPCs(adspath)
    Dim objPCs, PC
    Set objPCs= GetObject(adspath)
    objUsers.Filter = Array("Computer")
    RptFile.WriteLine
    For Each PC In objPCs
            RptFile.WriteLine PC.Name
    Next
    RptFile.WriteLine
End Sub
0
 
LVL 5

Author Comment

by:trarthur
Comment Utility
Thanks Laura.  It mostly works.  I'm getting ALL objects in the specified OU.  Groups, user accounts.
I'm sure there is a switch I'm not setting correctly.

AdFind.exe -default -rb ou=OU1 (objectcategory=computer) -dn
0
 
LVL 30

Expert Comment

by:LauraEHunterMVP
Comment Utility
Sorry, I typoed. (Was entering the command off the top of my head without testing syntax, my bad.)

Add a "-f" in front of the (objectcategory=computer) bit.  "-f" is the switch to specify an LDAP filter of computer objects only, without it you'll get all objects returned as you're seeing.
0
Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

 
LVL 5

Author Comment

by:trarthur
Comment Utility
Perfect!  That was it!  Thank you!!
0
 
LVL 5

Author Comment

by:trarthur
Comment Utility
SirBounty - if I wanted to use your script, how would I modify it to start at a specific OU and work its way down just that OU?
0
 
LVL 67

Accepted Solution

by:
sirbounty earned 375 total points
Comment Utility
Sure - just change it here:....the objDomain line below is all...

'EnumOUs.vbs
Dim objFSO, strFileName, RptFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFileName="C:\Output.csv"
Set RptFile = objFSODim objFSO, strFileName, RptFile

Set objFSO = CreateObject("Scripting.FileSystemObject")
strFileName="C:\Output.csv"
Set RptFile = objFSO.CreateTextFile(strFileName)

Dim objDomain
Set objDomain = GetObject("LDAP://OU=YourOU,DC=YourDC,DC=com")) '<<<<Change this to the parent OU >>>>>>

EnumOUs(objDomain.ADsPath)
RptFile.Close
Set RptFile=Nothing
Set objUsers=Nothing
Set objOUs=Nothing
Set objDomain=Nothing
Set objRoot=Nothing
Set objFSO=Nothing
wscript.quit

Sub EnumOUs(adspath)
    Dim objOUs, OU
    Set objOUs = GetObject(adspath)
    objOUs.Filter = Array("OrganizationalUnit")
    Call EnumPCs(objOUs.ADsPath)
    For Each OU In objOUs
        RptFile.WriteLine Replace(Ucase(OU.Name), "OU=", "")
        Call EnumOUs(OU.ADsPath)
    Next
End Sub

Sub EnumPCs(adspath)
    Dim objPCs, PC
    Set objPCs= GetObject(adspath)
    objUsers.Filter = Array("Computer")
    RptFile.WriteLine
    For Each PC In objPCs
            RptFile.WriteLine PC.Name
    Next
    RptFile.WriteLine
End Sub
0
 
LVL 5

Author Comment

by:trarthur
Comment Utility
SirBounty - thanks!

I'm getting an error though:

Untitled1.vbs(49, 5) Microsoft VBScript runtime error: Object required: 'objComputers'

Line 49 = objComputers.Filter = Array("Computer")

Here is the script:

'EnumOUs.vbs
Dim objFSO, strFileName, RptFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFileName="C:\Output.csv"
Set RptFile = objFSO.CreateTextFile(strFileName)

Dim objDomain
Set objDomain = GetObject("LDAP://OU=foo,DC=bar,DC=net") '<<<<Change this to the parent OU >>>>>>

EnumOUs(objDomain.ADsPath)
RptFile.Close
Set RptFile=Nothing
Set objUsers=Nothing
Set objOUs=Nothing
Set objDomain=Nothing
Set objRoot=Nothing
Set objFSO=Nothing
Set objComputers=Nothing

wscript.quit

Sub EnumOUs(adspath)
    Dim objOUs, OU
    Set objOUs = GetObject(adspath)
    objOUs.Filter = Array("OrganizationalUnit")
    Call EnumPCs(objOUs.ADsPath)
    For Each OU In objOUs
        RptFile.WriteLine Replace(Ucase(OU.Name), "OU=", "")
        Call EnumOUs(OU.ADsPath)
    Next
End Sub

Sub EnumPCs(adspath)
    Dim objPCs, PC
    Set objPCs= GetObject(adspath)
    objComputers.Filter = Array("Computer")
    RptFile.WriteLine
    For Each PC In objPCs
            RptFile.WriteLine PC.Name
    Next
    RptFile.WriteLine
End Sub

0
 
LVL 5

Author Comment

by:trarthur
Comment Utility
SirBounty - Nevermind, I found the issue.  objComputers was never declared.  I changed it to objPCs and it runs like a champ.  Thanks!
0
 
LVL 67

Expert Comment

by:sirbounty
Comment Utility
:^)  Glad to hear it.
0
 
LVL 5

Author Comment

by:trarthur
Comment Utility
Thanks to both LauraEHunterMVP and SirBounty for helping out.  Different options for essentially the same result.  I'm going to split the points since both offered a solution.  The VBscript gets more since that was what I'm looking for.  Thanks again folks!

For the others who may run across this thread looking to solve the same problem I had, here is a summary.

VBscript solution:

'EnumOUComputers.vbs

Dim objFSO, strFileName, RptFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFileName="C:\Output.csv"  '<<<<Change this to the output name and location of your choice >>>>>>
Set RptFile = objFSO.CreateTextFile(strFileName)

Dim objDomain
Set objDomain = GetObject("LDAP://OU=foo,DC=bar,DC=com") '<<<<Change this to the parent OU >>>>>>

EnumOUs(objDomain.ADsPath)
RptFile.Close
Set RptFile=Nothing
Set objUsers=Nothing
Set objOUs=Nothing
Set objDomain=Nothing
Set objRoot=Nothing
Set objFSO=Nothing
Set objComputers=Nothing

wscript.quit

Sub EnumOUs(adspath)
    Dim objOUs, OU
    Set objOUs = GetObject(adspath)
    objOUs.Filter = Array("OrganizationalUnit")
    Call EnumPCs(objOUs.ADsPath)
    For Each OU In objOUs
        RptFile.WriteLine Replace(Ucase(OU.Name), "OU=", "")
        Call EnumOUs(OU.ADsPath)
    Next
End Sub

Sub EnumPCs(adspath)
    Dim objPCs, PC
    Set objPCs= GetObject(adspath)
    objPCs.Filter = Array("Computer")
    RptFile.WriteLine
    For Each PC In objPCs
            RptFile.WriteLine PC.Name
    Next
    RptFile.WriteLine
End Sub


adfind solution:

AdFind.exe -default -rb ou=FOO -f "objectcategory=computer" -dn

Replace FOO with the OU you wish to enumerate.

The AdFind .exe can be found at www.joeware.net

0

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Learn about cloud computing and its benefits for small business owners.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now