Break on

$aAttributes = "Name","Department"
$sADsPath = "LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")  
$strFilter = "(&(objectCategory=person)(objectClass=user)(displayName=" + @FULLNAME + "))"

$aResults = fnLDAPQuery($aAttributes,$sADsPath,$strFilter,"Name")  

For $r = 0 to Ubound($aResults)
	;$aResults[$r,0] = Fullname
	;$aResults[$r,1] = Department
	?"User: " $aResults[$r,0]
	?"Has printer: " $aResults[$r,1] " in the department field in AD."
	Sleep 5	
Next