dn-name in ad by vbs

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

dn-name in ad by vbs

Logged in as: Guest

arrSession:exec spGetSession 2,2,3157

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

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> dn-name in ad by vbs
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

dn-name in ad by vbs - 5/30/2005 1:32:55 AM

blaufrack

Posts: 1
Score: 0
Joined: 5/30/2005
From:
Status: offline

HI folks,

i got this samplescript from Microsoft:
'=================================================
On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = _
"SELECT distinguishedName FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectCategory='user' " & _
"AND sAMAccountName='kenmyer'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Wscript.Echo objRecordSet.Fields("distinguishedName").Value
objRecordSet.MoveNext
Loop
'=================================================

but, i don?t want searching for "kenmayer", i?m trying using a variable for this.
e.g. "AND sAMAccountName= & 'variable'"

Can anyone help me?

Greetz
der blaue Frack

Post #: 1

Re: dn-name in ad by vbs - 5/30/2005 5:36:29 AM

tnoonan

Posts: 364
Score: 0
Joined: 12/14/2004
From:
Status: offline

Token posted this a while back

Option Explicit

Dim conn, cmd, rs, user, query, pat
If WScript.Arguments.Count = 0 Then
WScript.Echo "Usage: " & WScript.Name & " <Full Name>"
WScript.Quit
Else
pat = WScript.Arguments.Unnamed(0)
End If
Set conn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
conn.provider = "adsdsoobject"
conn.open "active directory provider"
cmd.activeconnection = conn
cmd.commandtext = "<LDAP://" & GetObject("LDAP://rootdse").Get("defaultnamingcontext") & ">;(&(objectcategory=person)(objectclass=user)(|(DisplayName=*" & pat & "*)(givenName=*" & pat & "*)(middleName=*" & pat & "*)(sn=*" & pat & "*)) );sAMAccountName;subtree"
Set rs = cmd.Execute
If rs.eof Then
WScript.Echo
WScript.Echo "No users matched """ & pat & """ are found."
Else
WScript.Echo
WScript.Echo rs.recordcount & " user(s) found matching """ & pat & """."
WScript.Echo
Do Until rs.eof
WScript.Echo "UserID: " & rs("sAMAccountName")
rs.movenext
Loop
End If

(in reply to blaufrack)

Post #: 2

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

All Forums >> [Scripting] >> WSH & Client Side VBScript >> dn-name in ad by vbs

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