$=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

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