This work just fine for me.

 Code:
Break on

$expire = 0
$notexpire = 0
;Get all users from the current domain.
$oDomain = GetObject("WinNT://" + @LDomain)
$oDomain.filter = "User", ""
For Each $oUser in $oDomain
	If Trim($oUser.accountExpirationDate) <> ""
		?
		? "Account for user: " $oUser.fullname
		? "Account expires on: " $oUser.accountExpirationDate
		$expire = $expire + 1
	Else
		?
		? "Account for user: " $oUser.fullname
		? "Account does not expire."
		$notexpire = $notexpire + 1
	EndIf
	;Sleep 1
Next

?
? "Number of expiring account: " $expire
? "Number of not expiring account: " $notexpire

Sleep 5
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.