code:

---

$usernamefromfile = @userid

$user = getobject("WinNT://@domain/$usernamefromfile")
$temp = split($user.PasswordExpirationDate,"/")
$temp[2] = substr($temp[2],1,4)
if len($temp[0]) <> 2
	$temp[0] = "0" + $temp[0]
endif
$expdate = $temp[2] + "/" + $temp[0] + "/" + $temp[1]


? "number of days until " + $user.name + " will expire is " + val(serialdate($expdate) - serialdate(@date)) + " (" + $user.PasswordExpirationDate + ")"

---