SAPIEN Solutions

'
' ScriptingAnswers.com Essentials - by Don Jones
'
' Targeting AD
' This shows how to target every user, computer,
' or OU in AD and do something to each. You
' just pop your code into the DoObject subroutines.

'connect to the root of AD
Dim rootDSE, domainObject
Set rootDSE=GetObject("LDAP://RootDSE")
domainContainer = rootDSE.Get("defaultNamingContext")
Set oDomain = GetObject("LDAP://" & domainContainer)

'start with the domain root
WorkWithObject oDomain

Sub DoObject_User(strName)
'your code goes here - strName
'is a user name. If you don't care
'about users, just leave this empty.
End Sub

Sub DoObject_Computer(strName)
'your code goes here - strName
'is a computer name. If you don't care
'about computers, just leave this empty.
End Sub

Sub WorkWithObject(oContainer)
Dim oADObject
For Each oADObject in oContainer
Select Case oADObject.Class
Case "user"
'oADObject represents a USER object;
'do something with it
DoObject_User oADObject.cn
Case "computer"
'oADObject represents a COMPUTER object;
'do something with it
DoObject_Computer oADObject.cn
Case "organizationalUnit" , "container"
'oADObject is an OU or container…
'go through its objects
WorkWithObject(oADObject)
End select
Next
End Sub