Skip to content
@JaredMeredith

@JaredMeredith

Learn. Share. Repeat.

  • 16Peronalities
  • Builder Profile 10
  • My CliftonStrengths Top 34
  • My Top 5 Themes
  • Resume

Tag: unlock

Active Directory, Programming, VB, Web, Web Service

Unlock Or SetPassword For An Active Directory Account Within A Web Application (VB)

05/22/201504/25/2016 Jared Meredith

Wrote a variation of this for different purposes over the past few months. You can get creative and put it in a web service or within your web application. You would also want to send a lot of the initial variables in through ByVal when you call the Function or Method.

Dim user As String = "yourdomain/userToUnlock"
Dim pwd As String = "userToUnlockPW"
Dim de As DirectoryEntry = Nothing
Dim ds As DirectorySearcher = Nothing
Dim url As String = "LDAP://111.11.111.1111/dc=yourdomain,dc=com"
de = New DirectoryEntry(url)
de.Username = "yourdomain/authorizedADuser"
de.Password = "authorizedADuserPW"
de.AuthenticationType = AuthenticationTypes.Secure Or AuthenticationTypes.ServerBind Or AuthenticationTypes.Sealing
ds = New DirectorySearcher(de)
ds.SearchRoot = de
ds.Filter = String.Format("(&(objectClass=user)(objectCategory=person)(sAMAccountName={0}))", user)
ds.PropertiesToLoad.Add("userAccountControl")
Dim result As SearchResult = ds.FindOne
If Not result Is Nothing Then
de = result.GetDirectoryEntry
de.RefreshCache()
de.Properties("LockOutTime").Value = 0
de.Properties("userAccountControl").Value = &H200
de.Invoke("SetOption", New Object() {6, 6})
de.Invoke("SetOption", New Object() {7, 1})
de.Invoke("SetPassword", New Object() {pwd})
de.CommitChanges()
de.Close()
End If

Help me out and share!

  • Click to email this to a friend (Opens in new window)
  • Click to print (Opens in new window)
  • Click to share on LinkedIn (Opens in new window)
  • Click to share on Facebook (Opens in new window)
  • Click to share on Twitter (Opens in new window)
  • Click to share on Reddit (Opens in new window)
  • Click to share on Tumblr (Opens in new window)
  • More
  • Click to share on Pinterest (Opens in new window)
  • Click to share on Pocket (Opens in new window)
  • Click to share on Telegram (Opens in new window)
  • Click to share on WhatsApp (Opens in new window)
  • Click to share on Skype (Opens in new window)

Like this:

Like Loading...
Tagged account, active directory, password, SetPassword, unlock, userAccountControl, vb

About Me

Jared Meredith

Jared Meredith

Executive Director of Enterprise Architecture, Project Management Office, and Strategic Governance with extensive background in helping business partners envision and design enterprise architecture that drives amazing experiences with high availability. I love to take current problems or technical challenges while bringing people together to align solutions and strategy to provide the best technical path for how we can work to achieve goals with technology.

Personal Links

  • LinkedIn Profile
  • @JaredMeredith

View Full Profile →

Enter your email address to follow this blog and receive notifications of new posts by email.

Join 73 other followers

Why did I start the site…?

I started this site mainly as a place where I can put any gotchas and snafus I find along the way to better help the development community. I hope it helps as time goes on.

Questions? Comments?

If you have a question about a post then please leave a comment. I'll reply on the comment to keep all answers for everyone to see. If you have a private technical inquiry unrelated to any posts, please direct it to jared.meredith@live.com.

The Latest

  • Presentation Now Available: The Power of Cross-Platform Automated Web-Based Testing in CICD Pipelines
  • TLDR: Reflection + Pain = Progress
  • Join me for “Healthcare Technology During COVID-19” by KTech
  • Communications during coronavirus and a socially distant remote workforce
  • Going to Codestock? Come see me!

Categories

Create a website or blog at WordPress.com
  • Follow Following
    • @JaredMeredith
    • Join 73 other followers
    • Already have a WordPress.com account? Log in now.
    • @JaredMeredith
    • Customize
    • Follow Following
    • Sign up
    • Log in
    • Report this content
    • View site in Reader
    • Manage subscriptions
    • Collapse this bar
loading Cancel
Post was not sent - check your email addresses!
Email check failed, please try again
Sorry, your blog cannot share posts by email.
%d bloggers like this: