Reset Password på NT Domæne

Er der nogen der kan hjælpe mig med hvordan jeg får lavet et program der kan gå ind og skifte eller reset'e password på et NT domæne. Jeg har så jeg kan i active directory men jeg skal også bruge så jeg kan på en gammel NT.

Har lavet reference til Active DS Library
Kode til at skifte i AD

Private Sub cmdOK_Click()

Dim o As IADsOpenDSObject
Dim usr As IADsUser

On Error GoTo ErrMsg

If (txtNewPassword <> txtConfirmPassword) Then
   MsgBox "Passwords skal være ens"
   txtConfirmPassword.SetFocus
   Exit Sub
End If


    Set o = GetObject("WinNT:")
    Set usr = o.OpenDSObject("WinNT://" & txtDomain & "/" & txtUserName & ",user", "txtAdminName", "txtAdminPassword", 1)


usr.SetPassword txtNewPassword
MsgBox ("Password has been reset")
ResetFields
Exit Sub

ErrMsg:
  MsgBox ("Error: " & Err.Number & " " & Err.Description)
  txtUserName.SetFocus

End Sub