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 successful!
End if