用ADSI无法改NT密码?
堆堆 2000-03-28 12:16:00 我用VB6开发一程序,想修改NT用户的密码。我找到一个用ADSI来修改的程序。但程序无法运行,源程序如下:
Dim o As IADsOpenDSObject
Dim usr As IADsUser
If (txtNewPassword <> txtConfirmPassword) Then '如新密码与确认密码不符时
MsgBox "New and Confirm passwords must be the same"
End If
Set o = GetObject("WinNT:") ’程序运行到此出错
Set usr = o.OpenDSObject("WinNT://" & txtDomain & "/" & txtUserName, txtUserName, txtOldPassword, 1)
usr.ChangePassword txtOldPassword, txtNewPassword
MsgBox ("Your password has been changed")
Exit Sub
错误提示为:“-2147221020 Automation error Invalid Syntax”