Here I was thinking this whole topic was an active one so I put together a script. Nonetheless I'll post it anyway.

Code:

Function GetPwDaysleft($sDomain,$sUser)
  Dim $UserObj, $sAge, $sMax, $sTmp
  $UserObj = GetObject("WinNT://" + $sDomain  + "/" + $sUser)
  $sAge = $UserObj.PasswordAge
  $sMax = $UserObj.MaxPasswordAge
  $sTmp = $sMax - $sAge
  $GetPwDaysleft = $sTmp / (60*60*24)
EndFunction

? GetPwDaysleft(@ldomain,@userid)