asp如何修改WINNT的登录密码？

如何修改NT的登录密码？

    代码见下：

<％
Sub ChangeUserPassword(Computer,UserName,oldPassword,newPassword)
    Dim adsUser,foundErr,ErrMsg
    On Error Resume Next
    foundErr=False
    ErrMsg=""
    Set adsUser=GetObject("WinNT://"+Computer+"/"+UserName+",user")
    If Err.Number<>0 Then
        foundErr=True
        ErrMsg="噢,用户名没找到!"
        Err.Clear
    Else
        adsUser.ChangePassword oldPassword, newPassword
        adsUser.SetInfo
        If Err.Number<>0 Then
          foundErr=True
          ErrMsg=Now & ". Error Code: " & Hex(Err) & " - " & Err.Description & "<br>"
          Err.Clear
        End If
    End If
    If Not foundErr Then
        objContext.SetComplete
        Response.Write "<font class=""A2"" size=""2"" face=""Arial""><b>恭喜,密码修改成功! </b><br><br>"
        Response.Write "<input type=""button"" class=""A1"" name=""b2"" value=""返回"" 
onclick=""window.location.replace('default.asp');"">"
        Response.Write "</font>"
    Else
        objContext.SetAbort
        Response.Write "<font class=""A2"" size=""2"" face=""Arial""><b>旧密码错误!请重新输入.</b><br><br>"&ErrMsg
        Response.Write "<input type=""button"" class=""A1"" name=""b2"" value=""返回"" 
onclick=""history.back();"">"
        Response.Write "</font>"
    End If
    Set adsUser=Nothing
End Sub 
response.write "NT的密码现已改为intels!"
Computer="rzgs"
UserName="songyanhao"
oldPassword="song"
newPassword="intels"
ChangeUserPassword Computer,UserName,oldPassword,newPassword
％>