Dim UserID, UserPWD
UserID = [userID]
UserPWD = [password]
Dim LDAP, LDAPHandle
Dim LDAPString, OU1, OU2, Domain, DomainExt, DC
DC = "[ServerName]:[PortNo]"
Domain = "[DomainName]"
DomainExt = "[DomainEXT]"
OU1 = "[OU1]"
OU2 = "[OU2]"
LDAPString = "LDAP://[ServerName]:[PortNo]/OU=PD,OU=[OU1],DC=[Domain],DC=[DomainEXT]"
Set LDAP = GetObject("LDAP:")
Set LDAPHandle = LDAP.OpenDSObject(LDAPString, UserID, UserPWD, 1)
Forall ADObject In Container
Select Case ADObject.Class
Case "user"
UserName = ADObject.sAMAccountName 'get the UserName
StrHomeFolder = ADObject.homeDirectory 'get the home directory path
OU = Container.Name 'get the OU user account is housed In
Case "organizationalUnit" ', "container"
[repeat function]
End Select