Might be able to use ADSI for this, example:

 Code:
Break On

$= SetOption("WrapAtEol","On")

$User = GetObject("WinNT://@LDOMAIN/@USERID,user")

If @ERROR = 0

 $Date = $User.PasswordExpirationDate

 If @ERROR = 0

  ?"Your password will expire on " + $Date

 Endif

Endif

If @ERROR

  ? "Error @ERROR : @SERROR"

Endif

Exit 0