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