Try this:
strOU = "ou=one, ou=two, ou=three, ou=us, dc=where, dc=pvt "
strUser = InputBox ("Enter User Name")
strPassword = " p...@550rd1<mailto:p...@550rd1>"
On Error Resume Next
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 3000
objCommand.CommandText = _
"<LDAP://" & strOU & ">;" & _
"(&(objectclass=user)(objectcategory=person)(samAccountName=" &
strUser & "));" & _
"adspath,distinguishedname,sAMAccountName;subtree"
Set objRecordSet = objCommand.Execute
If Not objRecordSet.EOF then
objRecordSet.MoveFirst
End If
fullPath = objRecordSet.Fields("distinguishedname").Value
Set objUser = GetObject("LDAP://" + fulPath)
objUser.SetPassword strPassword
objUser.Put "PwdLastSet", -1
objUser.SetInfo
If Err.Number <> 0 Then
MsgBox "Error: An Incorrect User Name Was Entered!"
Err.Clear
Else
MsgBox "The Password Has Been Changed For " & "\" & UCase(strUser)
End If
Curtis McKay
Network Administrator
Belleville Township High School District 201
[email protected]<mailto:[email protected]>
From: [email protected]
[mailto:[email protected]] On Behalf Of Bill Purcell
Sent: Monday, August 23, 2010 9:39 AM
To: Tech-Geeks Mailing List
Subject: Re: [tech-geeks] password reset
I think the container is Bill Purcell
but I tried billp and Bill Purcell it gives the error Error: An Incorrect User
Name Was Entered
Thanks
On Mon, Aug 23, 2010 at 9:19 AM, McKay, Curtis
<[email protected]<mailto:[email protected]>> wrote:
Is the person’s user name their container name? For our student’s that’s true,
but for faculty it’s not.
Example, my user name is “cmckay” but my container name is “McKay, Curtis”. If
that’s the case we can still work through it.
Curtis McKay
Network Administrator
Belleville Township High School District 201
[email protected]<mailto:[email protected]>
From:
[email protected]<mailto:[email protected]>
[mailto:[email protected]<mailto:[email protected]>]
On Behalf Of Bill Purcell
Sent: Monday, August 23, 2010 9:10 AM
To: [email protected]<mailto:[email protected]>
Subject: [tech-geeks] password reset
What is wrong with this script?
I want to be able to have someone reset password to
p...@550rd1<mailto:p...@550rd1> and make them change it next login...
strUser = InputBox ("Enter User Name")
strPassword = " p...@550rd1<mailto:p...@550rd1>"
On Error Resume Next
Set objUser = GetObject("LDAP://cn=strUser, ou=one, ou=two, ou=three, ou=us,
dc=where, dc=pvt")
objUser.SetPassword strPassword
objUser.Put "PwdLastSet", -1
objUser.SetInfo
If Err.Number <> 0 Then
MsgBox "Error: An Incorrect User Name Was Entered!"
Err.Clear
Else
MsgBox "The Password Has Been Changed For " & "\" & UCase(strUser)
End If
TIA
--
Bill Purcell
ROE #10
| Subscription info at http://www.tech-geeks.org<http://www.tech-geeks.org/> |
--
Bill Purcell
ROE #10
| Subscription info at http://www.tech-geeks.org |
