code:

---

$user=getobject("WinNT://@domain")
$user.filter="User",""
for each $user in $user
	? $user.name "	"
	$maxage = $user.MaxPasswordAge / (60*60*24)
	$psdage = $user.PasswordAge / (60*60*24)
	Select
	Case $maxage < $psdage
		"Password is expired."
	Case $maxage - $psdage <= 7
		"Password will expire in 7 days or less."
	Case 1
		"Password age within parameters."
	Endselect
next

---

...that should be worth a six-pack at least. Oh, import or domestic is fine.

[ 03 August 2002, 00:15: Message edited by: Chris S. ]