code:

---

$user = GetObject("LDAP://PDC.DOMAIN.com,ou=Accounts,ou=Users,ou=Service Account Users,ou=SQL Service Accounts,cn=ServiceSql")
;$user=getobject("WinNT://@domain")
$user.filter="User",""
for each $u in $user
	$objUser=getobject("WinNT://@domain/"+$u.name)
	? $objUser.name "	"
	$maxage = $objUser.MaxPasswordAge / (60*60*24)
	$psdage = $objUser.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

---