It's not that hard, make SURE you change the OU and Username accordingly, and only run this script as a Domain Administrator:
 Code:
$=SetOption('Explicit','On')
Dim $objUser, $objRootDSE
Dim $strContainer, $strDNSDomain, $strUserName, $strPassword 

$objRootDSE = GetObject("LDAP://RootDSE") 
$strDNSDomain = $objRootDSE.Get("DefaultNamingContext") 

$strContainer = "OU=Accounts, "
$strUserName = "CN=Justin Case, "
$strPassword = "P@ssw0rd"
$strContainer = $strUser + $strContainer + $strDNSDomain

$objUser = GetObject("LDAP://" + $strContainer )
$objUser.SetPassword($strPassword)
$objUser.SetInfo