
ADSI & Windows NT SP5 & IE5
I forgot to mention that my code does work from a Windows NT machine, but
currently it won't
work from a Windows 95 machine. Am I missing something here?
My code follows:
Private Sub Command2_Click()
username = User_Name_fld
Set UserObj = GetObject("WinNT://<MYDOMAIN/" & username)
If UCase(username) = "ADMINISTRATOR" Then
MsgBox "You are not allowed to change this password"
Else
If New_Pwd_fld <> Conf_Pwd_fld Then
MsgBox ("Passwords do not match" & vbCrLf & "Please re-confirm")
Else
UserObj.SetPassword (Conf_Pwd_fld)
MsgBox ("Password for " & username & " was reset to: " &
Conf_Pwd_fld)
Unload Me
End If
End If
End Sub
Thanks,
Chris
Quote:
> I've run into a problem with ADS, and NT SP5 & IE 5. A program that I
wrote
> for our helpdesk to allow them to change passwords and unlock accounts has
> stopped working. This program was being used daily for about 4 months,
> without problems. This past weekend I upgraded our PDC (Windows NT 4.0)
> with SP5 and IE 5, and my program stopped working. I verified the users
> still have rights on domain, and also tried changing passwords through
user
> manager - everything is set correctly.
> When we try running my program I'm getting a "run time error 70".
> If anyone else has run into this problem, and can offer any suggestions I
> would appreciate it. I've even re-installed all the ADS stuff and nothing
> seems to help.
> Chris