It is possible... you only have to do it another way...
query AD for the object that matches a certain sAMAccountName
-------------------------------------------------------------------
sDomainDNSW2Kx = "ADCORP.LAN"
ssAMAccountName = "JORGE"
Set oConnection = CreateObject("ADODB.Connection")
Set oCommand = CreateObject("ADODB.Command")
oConnection.Provider = "ADsDSOObject"
oConnection.Open "ADs Provider"
Set oCommand.ActiveConnection = oConnection
sQuery = "SELECT DistinguishedName FROM 'LDAP://" & sDomainDNSW2Kx & "' WHERE
sAMAccountName = '" & ssAMAccountName & "'"
oCommand.CommandText = sQuery
Set oResults = oCommand.Execute
sObjDN = oResults.Fields("DistinguishedName")
-------------------------------------------------------------------
cheers,
Jorge
________________________________
From: ActiveDir-owner@xxxxxxxxxxxxxxxxxx on behalf of Burkes, Jeremy
[Contractor]
Sent: Wed 11/30/2005 9:05 PM
To: ActiveDir@xxxxxxxxxxxxxxxxxx
Subject: RE: [ActiveDir] VBSCRIPT ADSI IADs Get Method
Nevermind, just found the answer to my own question, and it is no, must use the
persons CN, no other attributes are accepted, good to know. Thanks for the
potential help.
Jeremy
________________________________
From: ActiveDir-owner@xxxxxxxxxxxxxxxxxx
[mailto:ActiveDir-owner@xxxxxxxxxxxxxxxxxx] On Behalf Of Burkes, Jeremy
[Contractor]
Sent: Wednesday, November 30, 2005 3:02 PM
To: ActiveDir@xxxxxxxxxxxxxxxxxx
Subject: [ActiveDir] VBSCRIPT ADSI IADs Get Method
Everyone,
I am trying to write a vbscript to connect to a user account using
the samaccountname attribute to update some info. Is this even possible and if
so can someone provide a code sample, I would think it would look something
like this for Test in the Microsoft domain:
LDAP://sAMAccountName=Test, OU=Users,DC=Microsoft,DC=COM or
LDAP://sAMAccountName=Test,CN=Users,DC=Microsoft,DC=COM
Then again, maybe this is not even possible. If not should I use
ADO instead even though I am returning 1 record with each query, seems
inefficient way to me when I can just use an ADSI pointer.
Jeremy
--------------------------
Jeremy Burkes
System Analyst/MIS SPHQ
jeremy.burkes.ctr@xxxxxxxxxxxx
PH: 202-764-1270 Fax: 202-764-1503
This e-mail and any attachment is for authorised use by the intended
recipient(s) only. It may contain proprietary material, confidential
information and/or be subject to legal privilege. It should not be copied,
disclosed to, retained or used by, any other party. If you are not an intended
recipient then please promptly delete this e-mail and any attachment and all
copies and inform the sender. Thank you.
<<winmail.dat>>
|
