Another LDAP Search Template

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Another LDAP Search Template

Logged in as: Guest

arrSession:exec spGetSession 2,16,48443

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Another LDAP Search Template
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Another LDAP Search Template - 6/18/2007 7:15:29 AM

DiGiTAL.SkReAM

Posts: 1139
Score: 6
Joined: 9/6/2005
From: Florida, USA
Status: offline

This is the template that I use to perform my searches, when I need DNs, Ous, etc.

WScript.Echo fGetADField(oNet.UserName,"distinguishedName","sAMAccountName")

Function fGetADField(sKeyData,sReturnField,sKeyField)
'Returns the data requested, or nothing if no data found
'sKeyData should be the information that is being used as a unique
'value to query on.  Some value that is unique to the particular record you are looking For
'sReturnField is the name of the field which contains the data that you are trying to 
'pull out of active directory
'sKeyField is the field that contains the unique data from sKeyData
    'These two lines create the objects used for interfacing with ADO
    Set oConnection = CreateObject("ADODB.Connection")
    Set oCommand =   CreateObject("ADODB.Command")
    'This sets the Provider parameter for the initial connection to ADO
    oConnection.Provider = "ADsDSOObject"
    oConnection.Open "Active Directory Provider"
    'This sets which connection to use when running your ADO query, as you
    'can have more than one ADO connection object
    Set oCommand.ActiveConnection = oConnection
    'This line builds the query command that will be passed to ADO.
    'Notice that it is very close to SQL.
    oCommand.CommandText = "Select " & sReturnField & " from 'LDAP://" & GetObject("LDAP://RootDSE").Get("DefaultNamingContext") & "' WHERE " & sKeyField & "='" & sKeyData & "'"
    'Page size parameter.  Determines the max # of records to return at one time.
    oCommand.Properties("Page Size") = 1000
    'SearchScope parameter.  0 = this exact key, 1 = one level down, 2 = entire subtree.
    oCommand.Properties("Searchscope") = 2
    'Turning on error checking, in case no records were returned.
    On Error Resume Next 
          'Actually runs the query
          Set oRecordSet = oCommand.Execute
          'selects the first record that was returned by the query
          oRecordSet.MoveFirst
          'Captures the Err.Number value for use in error checking
          iErr = Err.Number
    'Turns off error checking
    On Error GoTo 0
          'If the query works, iErr will have the value of zero.  If it is anything else, then
          'an error happened and we exit the function
          If iErr <> 0 Then Exit Function 
    'Set the returned value for the function to the value of the returned field
    fGetADField = oRecordSet.Fields(sReturnField).Value
End Function

EDIT: Added a bit of documentation
EDIT AGAIN: Modified to always use RootDSE

< Message edited by DiGiTAL.SkReAM -- 8/5/2007 12:48:46 PM >

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

Revisions: 2 | Post #: 1

RE: Another LDAP Search Template - 6/18/2007 12:14:59 PM

wanghuok

Posts: 17
Score: 0
Joined: 10/13/2005
Status: offline

good!,but i don't understand a lot

(in reply to DiGiTAL.SkReAM)

Post #: 2

RE: Another LDAP Search Template - 6/19/2007 12:57:26 AM

DiGiTAL.SkReAM

Posts: 1139
Score: 6
Joined: 9/6/2005
From: Florida, USA
Status: offline

quote:

ORIGINAL: wanghuok

good!,but i don't understand a lot

I documented the function a bit. I didn't originally do so because there have been a few AD templates posted, but hey, no worries.

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to wanghuok)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Another LDAP Search Template

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts