Querying Active Directory (Win 2k, Office 2k)

Topic

New Reply

Hi folks

I found this section of script useful.. sourced from FreeVBCode.com
My question is this ..
How can I return information from AD based on input which is user intials ? Assume that a unique combo of initals is used .
‘==============================
Set oRoot = GetObject(“LDAP://rootDSE”)
‘work in the default domain
sDomain = oRoot.Get(“defaultNamingContext”)
Set oDomain = GetObject(“LDAP://” & sDomain)
sBase = “”
‘Only get user name requested
sFilter = “(&(objectCategory=person)(objectClass=user)(name=” _
& LoginName & “))”
‘ ———————————
‘can we modify the line above for user initials
‘———————————

sAttribs = “adsPath”
sDepth = “subTree”

sQuery = sBase & “;” & sFilter & “;” & sAttribs & “;” & sDepth

conn.Open _
“Data Source=Active Directory Provider;Provider=ADsDSOObject”

Set rs = conn.Execute(sQuery
‘===========================

Thanks in advance

Geof

Reply | Quote

Replies

Hi Geof,
As far as I know AD does not store user initials as an attribute type, so you would either need a translation table so that you can input user initials but actually look up user names, or you would need to parse the initials and do a search using something like:

sFilter = "(&(objectCategory=person)(objectClass=user) _
(&(name="& strInitial1 & "*)(sn="&strInitial2&"*))"

assuming 2 initials in a unique combination.
(Note: that’s air code so I can’t guarantee it’s correct syntax!)
HTH.

Reply | Quote

Thanks for the help Rory
Will let you know how I get on

Cheers
Geof

Reply | Quote

“Air Code”
I like that term. For compilation in the mind only. Output results will vary.

Reply | Quote