用ADSI无法改NT密码？

[堆堆]

我用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”

[Un1]

把
Set o = GetObject("WinNT:")
改成：
Set o = New IADsOpenDSObject
行不行？

[堆堆]

还不行！~_~

[堆堆]

我已经解决！ Thank You!

[cyberking]

怎么解决的？能告诉我吗