Hi All,

First let me tell you my scenario. I am a technician at a secondary school. We have a medium sized network with AD, running server 2003 and XP clients

I am trying to create a very simple VB6 executable that will reset a students password and force a password change at next logon.

I have designed the very simple form: see attached
Here is the code:

Private Sub cmdExit_Click()
End Sub

Private Sub cmdSubmit_Click()

    Dim objOU, objUser, objRootDSE
    Dim strContainer, strDNSDomain, strPassword
    Dim intPwdValue

    'Bind to Active Directory Domain
    Set objRootDSE = GetObject("LDAP://RootDSE")
    strDNSDomain = objRootDSE.get("DefaultNamingContext")

    strContainer = "OU=Domain Users, "
    strPassword = "P@ssw0rd"
    strContainer = strContainer & strDNSDomain

    'Here we force a change of password at next logon
    intPwdValue = 0

    'objUser = (txtStuNum.Text)
    Set objOU = GetObject("LDAP://" & strContainer)
    objUser = (txtStuNum.Text)
    objUser.SetPassword strPassword
    objUser.Put "PwdLastSet", intPwdValue

End Sub

When I run it, I enter the student's number in the text box and click submit, then and error is thrown at me.

"Run-time error '424': Object required"

When I debug, the "objUser.SetPassword strPassword" line is highlighted in yellow.

Any help to get this working would be greatly appreciated.

Cheers for looking,


What you are trying to do via VB can be done by the net admin with a few mouse clicks... Then there is the potential that this could be so misused...

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.