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
Indlæg senest redigeret d. 19.04.2007 14:43 af Bruger #8719