PDA

View Full Version : Listing the Computers list in a specific OU in a active directory



buffdaemon_l
09-04-2008, 01:27 PM
I have two OUs OU=Student and OU=Teachers and my root OU is LDAP://dc=test,dc=labs,dc=edu
in the Student OU i have three computers named Std1,Std2,Std3 and three computers in Teachers OU named Tea1,Tea2,Tea3
I am writing a VBA script in Excel in which i want to display my Computers in that OU in a excel spreadsheets.
Computer Name Description OU
Std1 Student Computers Student
Std2 Student Computers Student
...................List goes on.......list of all computers in Student OU and Teachers OU
This is my script but its not working can anyone help me?

Added VBA Tags to code.
~Oorang
Sub ListDomains()

Dim objNameSpace
Dim Domain
Dim ou
Dim pcs
Set objNameSpace = GetObject("LDAP://dc=test,dc=labs,dc=edu")
For Each objDomain In objNameSpace
ou = objDomain.Name
objDomain.Filter = Array("Computer")

For Each objComputer In objDomain
pcs = objComputer.Name
Dim i
For i = 0 To pcs.Count - 1
Cells(i, 1) = pcs
Next
Next
Next

End Sub

Oorang
09-12-2008, 09:03 AM
It's difficult to respond to this without being able to work in the same environment. What errors are you encountering? At which line?