You can try working with this:
 Code:
Function User_PWReset($_UserID)

  Dim $_objUser, $_Default

  $_objUser = getobject('WinNT://' + $_UserID  + ',user')

  If $_objUser
    $_Default = 'D3f@u!T'         ; default password
    $_objUser.PasswordExpired = 1
    $_objUser.setPassword($_Default)
    $_objUser.SetInfo
  EndIf

  $User_PWReset = Not @ERROR  
  Exit @ERROR

EndFunction
_________________________
Actually I am a Rocket Scientist! \:D