Changing a password using ADSI.

Set oUser = GetObject("WinNT://machinename/username")
oUser.ChangePassword "oldpassword", "newpassword"
oUser.SetInfo
Set oUser = Nothing

If (err.number <> 0) Then
    It Failed!
Else
    It was suclearcase/" target="_blank" >ccessful!
End if

原文转自：http://www.ltesting.net