Active Directory Query 1

[LonnieJohnson]

Does anyone have code or a model of a procedure that will allow me to query members of the Active Directory?

ProDev, MS Access Applications
Visit me at ==>

http://www.prodev.us

May God bless you beyond your imagination!!!

 

[CautionMP]

Add a reference to Active DS Type Library (activeds.tlb) to your VBA project, this will allow you to query Active Directory. Here is a small routine that will allow you to return a users Full Name as listed in AD.

[navy]Public Function[/navy] ADsFullName() [navy]As String[/navy]
[navy]Dim[/navy] objIADsUser [navy]As[/navy] ActiveDs.IADsUser
[navy]Dim[/navy] strUserID [navy]As String[/navy], strComputerName [navy]As String[/navy]
strComputerName = Environ$("COMPUTERNAME")
strUserID = Environ$("USERNAME")
Set objIADsUser = GetObject("WinNT://" & _
  strComputerName & "/" & strUserID & ",user")
ADsFullName = objIADsUser.FullName
Set objIADsUser = [navy]Nothing[/navy]
[navy]End Function[/navy]

Hope this helps,
CMP

 

[Zion7]

Nice stuff CMP! *